Tatsächlich macht sich jeder beim Schreiben eines ASP-Programms am meisten Sorgen, dass einige Leute die Datenbankverbindungsinformationen sehen und Schaden anrichten können. Als nächstes verwenden wir vb6.0, um eine dynamische Linkbibliothek (.dll) zu erstellen, um die Datenbankverbindungsinformationen auszublenden.
Starten Sie vb6.0, erstellen Sie ein neues -> Aktives DLL-Projekt. Klicken Sie auf „Projekt“ -> Referenzen und wählen Sie „Microsoft Active Server Pages-Objektbibliothek“.
und „Microsoft ActiveX Data Objects 2.1 Library“ zwei Elemente. Ändern Sie den Namen des Klassenmoduls in dcss. Ändern Sie den Namen des Projekts in yygwy.vbp und die Klassendatei dcss.cls.
Schreiben Sie in dcss.cls:
Privater myscriptingcontext als ScriptingContext
Private myapplication als Anwendung
Private myrequest als Anfrage
Private myresponse als Antwort
Privater Myserver als Server
Private Sitzung als Sitzung
Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
Setze myscriptingcontext = passscriptingcontext
Setzen Sie myapplication = myscriptingcontext.Application
Setze myrequest = myscriptingcontext.Request
Setzen Sie myresponse = myscriptingcontext.Response
Setzen Sie myserver = myscriptingcontext.Server
Setze mysession = myscriptingcontext.Session
End Sub
Public Sub onendpage()
Setze myscriptingcontext = Nichts
Setze myapplication = Nichts
Setze myrequest = Nichts
Setze myresponse = Nichts
Setze myserver = Nichts
Setze mysession = Nichts
End Sub
'Die obige Anweisung ist erforderlich.
'Definieren Sie zwei öffentliche Funktionen
: Public Function rsresult(strsql As String) As Recordset
Dimmen Sie mycnn als Verbindung
Dimmen Sie myset als Recordset
Dimmen Sie strconnstring als String
'strconnstring = "provider=sqloledb.1;
Passwort=;“ & „Benutzer-ID=sa;“ & „Initialkatalog=vlog;“ & „Datenquelle=hpe60;
Verbindungszeitüberschreitung=15"
strconnstring = "driver={sql server};server=yang;uid=sa;pwd=;
Datenbank=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Open strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql, mycnn, 3, adCmdText
Setze rsresult = myset
Endfunktion
Öffentliche Funktion datasource() als Variante
datasource = "driver={sql server};server=yang;uid=sa;pwd=; Database=dcss"
End Function
kompiliert und generiert die Datei dcss.dll. Registrieren Sie regsvr32 pathdcss.dll.
Öffnen Sie die Datei global.asa mit visual interdev. Natürlich können Sie sie auch in anderen Dateien verwenden.
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn
kann auf anderen Seiten wie folgt aufgerufen werden:
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open application("strconn")