Analise este cod

[mx loco 1]

Olha galera... montei este codigo para upload...

funciona legal, porem como naum tenho muito conhecimento em asp gostaria que vcs podesse observar se por algum motivo algo poderia dar errado.

 

Compenets usados:

"asp upload

"aspjpeg

 

cod a seguir

 

ASP

[*]

 

[*]<!--#include file="../com_geral.asp" -->

 

[*]<%

 

[*]ON ERROR RESUME NEXT

 

[*]server.ScriptTimeout = 3000000

 

[*]Set ObjLink = Server.CreateObject("Persits.Upload")

 

[*] ObjLink.SetMaxSize 10000000, True

 

[*] ObjLink.Save

 

[*] Path = "c:\web\leonardomonteirocombr\www/links/img/"

 

[*] ObjLink.CreateDirectory Path, True

 

[*]

 

[*]For Each File in ObjLink.Files

 

[*]

 

[*] renome=time&"__"&date

 

[*] renome=replace(renome, ".", "-")

 

[*] renome=replace(renome, ":", "-")

 

[*] renome=replace(renome, "/", "-")

 

[*] renome=replace(renome, "*", "-")

 

[*] renome=replace(renome, "?", "-")

 

[*] renome=replace(renome, "\", "-")

 

[*] renome=replace(renome, ",", "-")

 

[*] renome=renome& "__"& file.FileName

 

[*]

 

[*] File.SaveAs Path&"\"&renome

 

[*]

 

[*]Next

 

[*]

 

[*] img = renome

 

[*] titulo = replace(ObjLink.form("titulo"), "'", "")

 

[*] url = replace(ObjLink.form("url"), "'", "")

 

[*]  

 

[*]  If Err Then

 

[*] Response.Write("<b>Ocorreu um erro : </b>" & Err.description)

 

[*] Else

 

[*] Set Jpeg = Server.CreateObject("Persits.Jpeg")

 

[*] Jpeg.Open "c:\web\leonardomonteirocombr\www/links/img\"&img

 

[*] L = 190

 

[*] Jpeg.Width = L

 

[*] Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

 

[*] Jpeg.Save "c:\web\leonardomonteirocombr\www/links/img\"&img

 

[*]

 

[*]  set add_links=server.CreateObject("adodb.command")

 

[*]  add_links.activeconnection=com_geral

 

[*]  add_links.commandtext="insert into link (titulo, url, img) values ('"&titulo&"', '"&url&"', '"&img&"')"

 

[*]  add_links.execute()

 

[*]  response.Redirect("ver_links.asp")

 

[*] end if  

 

[*]%>

 

[*]

 

valeu galera.

[Generation 0]

Bom analisar so testando mesmo...está ocorrendo algum erro??

 

se estiver e nao acusar, retire essa linha

ASP

[*]ON ERROR RESUME NEXT

 

e execute o codigo caso tenha algum erro ou nao funcione aparecerá o erro na tela.

 

T+

[mx loco 1]

Valeu Generationolhe so.. seguinte... esta funcionando :D hehemas so queria que vcs desse uma olhada para realmente ver se tem alguma coisa fora do lugar...ou seja... se caso o usuario fiser XXX ação o o que poderia ocorrer saca?tipo possíveis erros que poderia ocorrer...esta linha que você sitou sempre coloco mesmo, pois se ocorrer erro o user naum vê.

[Marcelo Barcellos 0]

esta linha que você sitou sempre coloco mesmo, pois se ocorrer erro o user naum vê.

<{POST_SNAPBACK}>

E você só vai saber quando tiver bagunçado tudo. !!!!

Já que você não quer mostrar qual o erro para o usuário faça um teste no final da página tipo assim

 

if Err <> 0 then   Response.Write "Ocorreu um erro ao enviar o arquivo, entre em contato com o administrador"End if