L'unica particolarità di questo modulo (form) è come passare i dati inseriti (enctype="multipart/form-data").

Il file upload.asp

<%@ Language= VBScript %>
<%
' Imposta il tempo max di esecuzione dello script (espresso in millisecondi)
Server.ScriptTimeout = 100000


Response.Expires=0
Response.Buffer = TRUE
Response.Clear

'impostazioni variabili
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

'individua il tipo di file che si cerca di fare l upload
contentType = UploadRequest.Item("file").Item("ContentType")

'intero percorso del file
filepathname = UploadRequest.Item("file").Item("FileName")

'****************************** CONTROLLI IMMAGINE

'controllo tipo immagine
tipo = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"."))

'cambiare la scrita zip e gz qui sotto per inserire la sigla di un altro tipo di file
'Se si vuole permettere l'upload di qualsiasi tipo di file cancellare o commentare
'le successive 4 linee di codice e l'ultimo END IF della pagina upload.asp
If tipo <> "zip" AND tipo <> "gz" then
Response.Write ("Errore Upload. Non è possibile fare upload di un file ." & tipo)
Response.End
else

' calcolo del peso della immagine
'imposta qui, il peso max. 9000 vuol dire 9 Kb circa
IF byteCount > 9000 THEN 
Response.Write ("Errore Upload. File troppo grande!")
Response.End
else

'*********************************** NOME FINALE DEL FILE e UPLOAD
nomefile = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

'in questa variabile viene salvato il nome del file che sarà del tipo 2311235.gif
filename = nomefile

value = UploadRequest.Item("file").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

'da questa riga di codice si specifica l'indirizzo relativo dove sarà inserito il file
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../file") & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

End If
End If
%>

Questo script in poche parole effettua un controllo sul tipo e il peso del file di cui si vuole fare l'upload. Questo script va inserito tra gli HEAD della nostra pagina web, altrimenti non funzionerà. Questo codice inoltre preleva il nome del file (senza url) e lo memorizza dentro la cartella impostata.
Per funziona, questo script necessita anche della seguente riga di codice da inserire tra i tag BODY:

<!--#include file="esegui.asp"-->

La pagina esegui.asp

Questa pagina contiene codice che NON DEVE essere modificato. Basta copiarlo e incollarlo così come è.