Upload

[<%nando%> 0]

:wacko: puts tô me batendo faz uma cara ...já entrei em uns 50 sites de códigos mas nenhum me ajudou....o problema é : até consigo fazer o upload, mas o arquivo não grava com o nome original no servidor.Se a foto se chama teste ...depois do upload ele fica +- {89890545470254820025480065}_teste.jpgMeu servidor tem o DundasUpload.Se alguém puder dar um help, pago umas cervejinhas....heheheValeu!!!

[ricardovg 1]

Olá ...

 

Olha .. este exemplo é o que tem na locaweb ....

 

<%

Response.Buffer = true

on error resume next

 

'declara as variáveis

dim objUpload

dim strMessage

 

'cria instância do objeto

set objUpload = server.CreateObject("Dundas.Upload.2")

 

'verifica um possível erro

if err.number <> 0 then

Response.Redirect "Dundas.asp?Message=" & err.description

end if

 

'estipula o tamanho máximo do arquivo

objUpload.MaxFileSize = 1048576

 

'*******************************************

' O SEGREDO ESTA AQUI

'*******************************************

'formatando o nome do arquivo

objUpload.UseUniqueNames = false

 

'não lembro se pra ficar o nome original é TRUE ou FALSE ... mas é simples ... faça um teste com os dois e 'pronto .... tenho pelna certeza q você vai resolver seu problema.

 

 

 

 

'informa o path onde os arquivos serão salvos

'obs: o diretório deve ter permissão de escrita

objUpload.Save "e:home\xyz\web\teste"

 

dim temp

 

'verifica erro

if IsEmpty(objUpload.Form("txtName")) = false then temp = " "

if err.number <> 0 then

strMessage = objUpload.Form("txtName") & temp & "Falha, ocorreu o erro: " & err.description

 

'mensagem de sucesso

else

strMessage = "Upload realizado com sucesso pelo" & temp & objUpload.Form("txtName") & "."

end if

 

Response.Redirect "Dundas.asp?Message=" & strMessage

 

'destroi o objeto

set objUpload = nothing

%>

 

Espero ter ajudado.

 

 

Fuiiiiiiiiiiiiiiiiiiiiiiii http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif