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