LOGO UOL HOST

Como usar o componente Dundas Upload?

O componente Dundas Upload permite o upload de arquivos através de páginas ASP.

Abaixo segue um exemplo simples de implementação do Dundas Upload.

A primeira etapa consiste na criação de uma página HTML que servirá de formulário para o upload dos arquivos, abaixo segue um exemplo:

 

< html>
< body bgcolor="#FFFFFF">


Selecione até 5 arquivos do seu computador para carregar no diretório de dados/upload do site. Tamanho máximo de até 1MB:


< form method="POST" enctype="multipart/form-data" action="teste_dundasupload.asp">
< input type="file" size="40" name="Arquivo1">< br>
< input type="file" size="40" name="Arquivo2">< br>
< input type="file" size="40" name="Arquivo3">< br>
< input type="file" size="40" name="Arquivo4">< br>
< input type="file" size="40" name="Arquivo5">< br>
< input type=submit value="Carregar">
< /form>
< /body>
< /html> 

 

OBS: Ao copiar o código retire os espaços.

 

Após, crie um arquivo chamado teste_dundasupload.asp, ele será executado como "ACTION" do formulário previamente publicado:

 

<%

' Baseado no exemplo da propria ASPAlliance
' Este script supoe que existe um diretorio upload dentro da pasta dados

Dim sCaminho

sCaminho = Server.MapPath("/")

' Criar instancia do Objeto
Set objUpload = Server.CreateObject ("Dundas.Upload.2")

' Gravar arquivo no diretorio raíz do proprio site
'
' Tamanho maximo de arquivo de 1MB
objUpload.MaxFileSize=1048576
objUpload.UseUniqueNames=FALSE
objUpload.Save sCaminho

' Verificar se ocorreu algum erro durante a chamada.
' Se ocorrer, redirecionar para uma pagina de Erro fictícia
If Err.Number <> 0 Then
Response.Redirect "Erro_dundasupload.asp"
Else
' Criar um loop para verificar os arquivos carregados
' Se for executavel, apagar do disco
' Mostrar uma caixa de diálogo com nome dos arquivos
For Each objUploadedFile in objUpload.Files
Response.Write "campo "" & objUploadedFile.TagName & "" do Formulario - Caminho : " & objUploadedFile.Path & " - Tamanho : " & CStr(objUploadedFile.Size) & " bytes< br>"

If InStr(1,objUploadedFile.ContentType,"octet-stream") Then
Response.Write " MAS O Arquivo foi REMOVIDO por ser um tipo proibido"
objUploadedFile.Delete
End If

Next

End If

' Remover o objeto

Set objUpload = Nothing

%>

 

OBS: Ao copiar o código retire os espaços.

 

Depois, crie o arquivo Erro_dundasupload.asp para ser apresentado no caso de erro:

 

< %@ language=vbscript %>
< %
Response.Write "Ocorreu um Erro"
%>

Assuntos recentes

Atendimento Online

Somente para assinantes

Fale com um dos nossos atendentes especializados via chat ou envie um e-mail.

Iniciar Chat ou Enviar E-mail

Central de atendimento

Atendimento 24 horas por dia, 7 dias por semana.

Se preferir você pode entrar em contato com a nossa central de atendimento

4003 9011 Capítais e regiões metropolitanas

0800 881 9011 Demais localidades