Como usar o componente Dundas Upload?
Abaixo segue um exemplo simples de implementação do Dundas Upload.
A primeira etapa consiste na criação de um 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 diretorio 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>
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
' Continuar se ocorrer algum erro
' Este script supoe que existe um diretorio upload dentro da pasta dados
On Error Resume Next
Dim sCaminho
sCaminho = Replace(LCase(Server.MapPath("/")),"web","dadosupload")
' Criar instancia do Objeto
Set objUpload = Server.CreateObject ("Dundas.Upload.2")
' Gravar arquivo no diretorio dados do proprio site
' Tambem sera gravado em memoria utilizando o metodo SaveToMemory
'
' 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 ficticia
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
' Mostrar o nome de cada um dos elementos do formulário
'For Each objFormItem In objUpload.Form.Count
' Response.Write "<br>Item passado no formulário e´: " & objFormItem.Value
' Response.Write "<br> Valor do ítem do formulário e´: " & objFormItem.Value & "<br>"
'Next
'Response.Write "Chegou ao final do script"
End If
' Remover o objeto
Set objUpload = Nothing
%>
Depois, crie o arquivo Erro_dundasupload.asp para ser apresentado no caso de erro:
<%@ language=vbscript %>
<%
Response.Write "Ocorreu um Erro"
%>
|