Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

matheuscgd

Script com erro

Por , em ASP Clássico

Recommended Posts

matheuscgd    0

matheuscgd
Postado

Galera, eu era hospedado na locaweb, mais por problemas pessoais eu tive que parar de hospedar la, eu usava softartisans pra upload de arquivos, mais agora não funciona mais no servidor que estou só funciona usando Persits File Upload... por favor me ajudem, vou postar o codigo, me ajudem a modificar por favor...

 

<% elseIf request.querystring("acao") = "2" then  %>
				  <%
rem Upload da imagem

Set upl = Server.CreateObject("SoftArtisans.FileUp")

if upl.form("imagem") = "0" then

Count = Upload.Save("e:\Inetpub\vhosts\localhost21.com\httpdocs\edilton_santos\fotos")

upl.Save

	link = Mid(upl.Form("FILE1"), InstrRev(upl.Form("FILE1"), "\") + 1)
	
	diahora = day(now) & month(now) & year(now) & hour(now) & minute(now) & second(now)

	nomefoto = diahora & link
	
	tipoimagem = upl.Form("tipoimagem")
	
	data_local= upl.form("ano")& "/" & upl.form("mes")& "/" & upl.form("dia")
	
	idioma_local = upl.Form("idioma")
	
	vartitulo1 = upl.form("chamada")
	vartitulo1 = replace(vartitulo1, "'", """")
	vartitulo1 = replace(vartitulo1, ">", ">")
	vartitulo1 = replace(vartitulo1, "<", "<")
	vartitulo1 = replace(vartitulo1, "chr(34)", "chr(39)")
	
	chamada_local = vartitulo1
	
	vartitulo = upl.form("texto")
	vartitulo = replace(vartitulo, "'", """")
	vartitulo = replace(vartitulo, ">", ">")
	vartitulo = replace(vartitulo, "<", "<")
	vartitulo = replace(vartitulo, "chr(34)", "chr(39)")

	texto_local = vartitulo


Rem Redimencionando a Imagem

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage("..\fotos\" & link)

if tipoimagem = 0 then
	intXSize = 300
	intYSize = (intXSize / Image.MaxX) * Image.MaxY
else
	intYSize = 300
	intXSize = (intYSize / Image.MaxY) * Image.MaxX
end if

Image.Resize intXSize, intYSize

Image.FileName = "..\fotos\" & "colunistaG" & nomefoto
Image.SaveImage

Set Image = nothing

Rem Redimencionando a Imagem

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage("..\fotos\" & link)

if tipoimagem = 0 then
	intXSize = 100
	intYSize = (intXSize / Image.MaxX) * Image.MaxY
else
	intYSize = 100
	intXSize = (intYSize / Image.MaxY) * Image.MaxX
end if

Image.Resize intXSize, intYSize

Image.FileName = "..\fotos\" & "colunistaP" & nomefoto
Image.SaveImage

Set Image = nothing

upl.Delete
Set upl = Nothing

conn.open ConnString

sqlstmt = "INSERT INTO colunista (chamada, materia, nomeFoto, idioma) values ('" & chamada_local & "', '" & texto_local & "', '" & nomefoto & "', '" & idioma_local & "')"

set rsquery = conn.execute(sqlstmt)


set rsquery = nothing 

set conn = nothing

elseif upl.form("imagem") = "1" then

	idioma_local = upl.Form("idioma")

	vartitulo1 = upl.form("chamada")
	vartitulo1 = replace(vartitulo1, "'", """")
	vartitulo1 = replace(vartitulo1, ">", ">")
	vartitulo1 = replace(vartitulo1, "<", "<")
	vartitulo1 = replace(vartitulo1, "chr(34)", "chr(39)")
	
	chamada_local = vartitulo1

	vartitulo = upl.form("texto")
	vartitulo = replace(vartitulo, "'", """")
	vartitulo = replace(vartitulo, ">", ">")
	vartitulo = replace(vartitulo, "<", "<")
	vartitulo = replace(vartitulo, "chr(34)", "chr(39)")

	texto_local = vartitulo

	nomefoto = "semfoto"

conn.open ConnString

sqlstmt = "INSERT INTO colunista (chamada, materia, nomeFoto, idioma) values ('" & chamada_local & "', '" & texto_local & "', '" & nomefoto & "', '" & idioma_local & "')"

set rsquery = conn.execute(sqlstmt)


set rsquery = nothing 

set conn = nothing

end if

response.Redirect("admin_colunista.asp?acao=1&text=1")
%>
				  <% elseIf request.querystring("acao") = "3" then  %>
				  <table width="556" border="0" cellspacing="3" cellpadding="0">
					<tr> 
					  <td width="573" align="center" class="adminTextos"><span class="textosDestaque">VOCÊ 
						TEM CERTEZA QUE DESEJA EXCLUIR ESTA MATÉRIA?</span></td>
					</tr>
					<tr> 
					  <td align="center" class="adminTextos"> 
						<%
					  id_local1= request("id")
					  %>
						<input name="Submit2" type="button" class="form" onClick="MM_goToURL('parent','admin_colunista.asp?acao=4&id=<% = id_local1 %>');return document.MM_returnValue" value="SIM"> 
						  <input name="Submit3" type="button" class="form" onClick="MM_goToURL('parent','admin_colunista.asp?acao=1');return document.MM_returnValue" value="NÃO"></td>
					</tr>
				  </table>
				  <% elseIf request.querystring("acao") = "4" then  %>
				  <%
id_local= request("id")

conn.open ConnString

set recordset = conn.execute("SELECT * FROM colunista where id like "& id_local &"")


if recordset("nomeFoto") <> "semfoto" then
	Set objFile = Server.CreateObject("Persits.Upload")
		var = "..\fotos\colunistaG" & recordset("nomeFoto")
	objFile.Delete var
	Set objFile = Server.CreateObject("Persits.Upload")
		var = "..\fotos\colunistaP" & recordset("nomeFoto")
	objFile.Delete var 
end if

recordset.Close
set recordset = Nothing

sqlstmt = "delete from colunista WHERE id like '" & id_local & "'" 

set rsquery = conn.execute(sqlstmt)


set rsquery = nothing 

set conn = nothing


response.Redirect("admin_colunista.asp?acao=1&text=2")
%>
				  <% elseIf request.querystring("acao") = "5" then  %>
				  <%
id_local= request("id")
rs.Open "select * from colunista WHERE id like '" & id_local & "'", data_source
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum numero de erro ???

 

se sim, poste o número e linha do code

Compartilhar este post

Link para o post
Compartilhar em outros sites

matheuscgd    0

matheuscgd
Postado
  Em 08/06/2010 at 12:45, 'xanburzum' disse:

ele gera algum numero de erro ???

 

se sim, poste o número e linha do code

 

O erro é

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/edilton_santos/admin/admin_colunista.asp, line 352

 

800401f3

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

este erro é quando você não tem o componente instalado, executa este code, para ver se existe o componente

 

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(14)
Dim theComponentName(14)

        ' Lista dos Componentes
        theComponent(0) = "ADODB.Connection"
        theComponent(1) = "SoftArtisans.FileUp"
        theComponent(2) = "AspHTTP.Conn"
        theComponent(3) = "AspImage.Image"
        theComponent(4) = "LastMod.FileObj"
        theComponent(5) = "Scripting.FileSystemObject"
        theComponent(6) = "SMTPsvg.Mailer"
        theComponent(7) = "CDONTS.NewMail"
        theComponent(8) = "Jmail.smtpmail"
        theComponent(9) = "SmtpMail.SmtpMail.1"
        theComponent(10) = "Persits.Upload.1"
        theComponent(11) = "UnitedBinary.AutoImageSize"
        theComponent(12) = "aspSmartUpload.SmartUpload"
        theComponent(13) = "DAO.DBEngine.35"

        ' Apelido dos Componentes
        theComponentName(0) = "ADODB"
        theComponentName(1) = "SA-FileUp"
        theComponentName(2) = "AspHTTP"
        theComponentName(3) = "AspImage"
        theComponentName(4) = "LastMod"
        theComponentName(5) = "FileSystemObject"
        theComponentName(6) = "ASPMail"
        theComponentName(7) = "CDONTS"
        theComponentName(8) = "JMail"
        theComponentName(9) = "SMTP"
        theComponentName(10) = "Persits Upload"
        theComponentName(11) = "AutoImageSize"
        theComponentName(12) = "ASpSmartUpload"
        theComponentName(13) = "DBEngine"

Function IsObjInstalled(strClassString)
        On Error Resume Next
                IsObjInstalled = False
        Err = 0
                Dim xTestObj
                        Set xTestObj = Server.CreateObject(strClassString)
        If 0 = Err Then IsObjInstalled = True
                Set xTestObj = Nothing
        Err = 0
End Function
%>
<html>
<head>
<title>O que tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Dim i
        For i = 0 To UBound(theComponent)
        If Not IsObjInstalled(theComponent(i)) Then
        Else
                Response.Write "<tr>" & vbCrLf
                Response.Write "<td width=""100%"">" & vbCrLf
                Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
                Response.Write "</td>" & vbCrLf
                Response.Write "</tr>" & vbCrLf
        End If
Next
%>
</table>
</font>
</td>
</tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz uma pesquisa no fórum que existem vários exemplos e tutoriais falando sobre o componente

olha este exemplo:

 

Set Upload = Server.CreateObject("Persits.Upload")
                Upload.OverwriteFiles = False 
                Upload.Save CaminhoUpload

                Set Foto1 = Upload.Files("Foto1")
                Set Foto2 = Upload.Files("Foto2")
                Set Foto3 = Upload.Files("Foto3")
                Set Foto4 = Upload.Files("Foto4")
                Set Foto5 = Upload.Files("Foto5")

Response.Write Foto1.FileName &"<br>"
Response.Write Foto2.FileName &"<br>"
Response.Write Foto3.FileName &"<br>"
Response.Write Foto4.FileName &"<br>"
Response.Write Foto5.FileName &"<br>"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito