» UTILIZANDO O DUNDASUPLOAD PARA ENVIAR ARQUIVOS

Com o componente DundasUpload você permite que os visitantes do seu site enviem múltiplos arquivos utilizando apenas o browser estipulando o tamanho máximo dos arquivos.

Criando a página que enviará os arquivos:

<%
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

'formatando o nome do arquivo
objUpload.UseUniqueNames = false

'informa o path onde os arquivos serão salvos
'obs: o diretório deve ter permissão de escrita
objUpload.Save "c:\www\login\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
%>

Em nosso exemplo foi usado o diretório teste. Substitua pelo diretório em que você deseja gravar o tumbnail e o "login" por seu login FTP. Esse diretório deve necessariamente ter permissão de escrita. Para ter permissão de escrita em seu diretório solicite a nosso suporte informando seu domínio e a pasta.

Agora faça um formulário que passará as informações ao script asp responsável por chamar o componente.

Use a seguinte tag input no seu formulário:

<input NAME="File1" TYPE="file">
<input NAME="File2" TYPE="file">