ASP ruft DLL auf und kapselt DLL-Instanzen

ASP ruft die DLL auf und kapselt die DLL-Instanz. Durch die Kapselung in der DLL kann die Ausführungseffizienz erhöht und der Code verschlüsselt werden. Öffnen Sie VB6 und erstellen Sie eine neue ActiveX-DLL

2. Fügen Sie die Auswahl der Microsoft Active Server Pages-Objektbibliothek zur Projektreferenz hinzu

3. Geben Sie den Code wie folgt ein:

Kopieren Sie den Codecode wie folgt:

'Code Start

'Erklärungsteil

Privater MyScriptingContext als ScriptingContext

Private MyApplication als Anwendung

Private MyRequest als Anfrage

Private MyResponse als Antwort

Privater MyServer als Server

Private MySession als Sitzung

„Im Folgenden werden allgemeine Funktionen definiert (um auf ASP-Objekte in VB zuzugreifen, d. h. in VB können Sie MyApplication als Äquivalent zu Application in ASP, MyRequest als Äquivalent zu Request in ASP, MyResponse als Äquivalent zu Response in ASP usw. verwenden MyServer entspricht Server in ASP, MySession entspricht der Sitzungsnutzung in ASP.

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)

Legen Sie MyScriptingContext = PassedScriptingContext fest

Legen Sie MyApplication = MyScriptingContext.Application fest

Setzen Sie MyRequest = MyScriptingContext.Request

Setzen Sie MyResponse = MyScriptingContext.Response

Legen Sie MyServer = MyScriptingContext.Server fest

Legen Sie MySession = MyScriptingContext.Session fest

Sub beenden

Öffentliches Sub OnEndPage()

Legen Sie MyScriptingContext = Nothing fest

Setzen Sie MyApplication = Nothing

Setze MyRequest = Nothing

Setzen Sie MyResponse = Nothing

Setzen Sie MyServer = Nothing

Setzen Sie MySession = Nothing

Sub beenden

'Erstellen Sie eine benutzerdefinierte Funktion SayHello

Öffentlicher Sub SayHello()

MyResponse.Write (Hallo Welt)

Sub beenden

'Code Ende

4. Ändern Sie den Klassennamen in: HelloWorld und den Projektnamen in: TestVBCode

5. Generieren Sie die Datei TestVBCode.DLL und registrieren Sie sie mit dem Windows-Befehl „Regsvr32 path/TestVBCode.DLL“ für die Registrierungskomponente zur Verwendung. (Der Befehl zum Deinstallieren der Komponente lautet Regsvr32 /u path/TestVBCode.DLL)

6. Erstellen Sie die Datei Test.asp. Der Code lautet wie folgt

Kopieren Sie den Codecode wie folgt:

<%

'VB selbst erstelltes Funktionsaufrufformat

'Objektnamen festlegen=Server.CreateObject(Projektname.Klassenname)

'Objektname.Selbst erstellter Funktionsname

Setze MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)

MyTestObj.SayHello

%>

7. Die Ergebnisse der Ausführung der Datei Test.asp sind wie folgt:

Hallo Welt

=============================================== =========

Für komplexere Anwendungen können Sie anhand dieses Beispiels eine Erweiterung nach außen vornehmen.

wie:

Kopieren Sie den Codecode wie folgt:

Öffentlicher Sub connstr2()

Setze conn = MyServer.CreateObject(ADODB.Connection)

conn.Open Driver={Microsoft Access Driver (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)

Setze rs = conn.Execute(select * from news)

Tun Sie dies, solange nicht rs.EOF

MyResponse.Write (rs(news_title) & <br>)

rs.MoveNext

Schleife

rs.Schließen

Setze conn = Nothing

Sub beenden

Dies ist mit Datenbankverbindungscode gekapselt. Natürlich müssen hier ADO-Referenzen hinzugefügt werden.