DundasUpload.html
<html> <head> <title>Dundas Upload</title> </head> <body> <h4>Dundas Upload</h4> <p> <form name="MyForm" method="post" enctype="multipart/form-data" action="DundasUpload.asp"> <input type="file" size="40" name="File1" /><br /> <input type="submit" value="Upload" /><br /> </table> </form> </p> </body> </html> |
<% ' Cria uma instância do controle Set DundasUpload = Server.CreateObject("Dundas.Upload.2") ' Estipula o tamanho máximo do arquivo DundasUpload.MaxFileSize = 1048576 ' Formata o nome do arquivo DundasUpload.UseUniqueNames = False ' Salva o arquivo DundasUpload.Save Server.MapPath("upload\") ' Tira o objeto da memória Set DundasUpload = Nothing Response.Write "Upload realizado com sucesso." %> |