Realizzare una DLL ActiveX per l'upload di file (Parte II)

Pagina 2 di 7

Vediamo quindi il codice HTML ed il codice ASP che dovrannoessere presenti nelle pagine web che chiameremoUploadSend.htm ed UploadReceive.asp:

UploadSend.htm:

Attenzione: la DLL ActiveX verrà creata per analizzarei dati trasmessi dal campo di tipo file avente nomeUploadFile, inserendo nel form un campo di tipofile con nome diverso da quello suggerito, nonverrà trasferito alcun file.

UploadReceive.asp:

<%Set ObjUpload = Server.CreateObject("MMKit.Upload")Upload = ObjUpload.DoUpload "c:inetpubwwwrootupload"If Upload = "OK" thenResponse.write "Trasferimento avvenuto con successo"ElseResponse.write "Riscontrati errori: " & UploadEnd If%>

Inutile dire che la directory del server su cui si vorrannotrasferire i file abbia gli appropriati permessi di lettura escrittura.

Iniziamo quindi a creare il cuore di tutto il sistema: la DLLActiveX.
Avviato Microsoft Visual Basic selezioniamo, comenuovo progetto, l'icona ActiveX DLL quindi dalmenù Progetto scegliamo la voceRiferimenti. A questo punto cerchiamo, e attiviamo,nella lista i riferimenti a Microsoft Active Server PagesObject Library e confermiamo permendo il tastoOK.
Rinominiamo quindi il progetto con MMKit e la classeclass1 in Upload.

Come per qualsiasi altro componente ActiveX, dobbiamodichiarare gli oggetti scripting che intenderemo usare nelnostro progetto. Queste dichiarazioni dovranno essere fattenella procedura di OnStartPage:

Option Explicit' --- Dichiarazione oggetti ASPPrivate MyScriptingContext As ScriptingContextPrivate MyRequest As RequestPrivate MyApplication As ApplicationPrivate MyResponse As ResponsePublic Sub OnStartPage(PassedScriptingContext As ScriptingContext)' --- Creo gli oggetti ASPSet MyScriptingContext = PassedScriptingContextSet MyRequest = MyScriptingContext.RequestSet MyApplication = MyScriptingContext.ApplicationSet MyResponse = MyScriptingContext.ResponseEnd Sub

Continua>>>