En fait, ce qui inquiète le plus tout le monde lors de l'écriture d'un programme ASP, c'est que les informations de connexion à la base de données soient vues par certaines personnes et causent des dommages. Ensuite, nous utilisons vb6.0 pour créer une bibliothèque de liens dynamiques (.dll) afin de masquer les informations de connexion à la base de données.
Démarrez vb6.0, créez un nouveau -> Projet dll actif. Cliquez sur "Projet" -> Références et sélectionnez "Bibliothèque d'objets Microsoft Active Server Pages"
et "Bibliothèque Microsoft ActiveX Data Objects 2.1" deux éléments. Changez le nom du module de classe en dcss. Changez le nom du projet en yygwy. Enregistrez le fichier de projet yygwy.vbp et le fichier de classe dcss.cls.
Écrivez dans dcss.cls :
Myscriptingcontext privé en tant que ScriptingContext
Monapplication privée en tant qu'application
Ma demande privée en tant que demande
Ma réponse privée en guise de réponse
Mon serveur privé en tant que serveur
Ma session privée en tant que session
Public Sub sur la page de démarrage (passedscriptingcontext As ScriptingContext)
Définir moncontexte de script = passécontexte de script
Définir monapplication = myscriptingcontext.Application
Définir ma requête = mon scriptingcontext.Request
Définir ma réponse = myscriptingcontext.Response
Définir mon serveur = mon scriptingcontext.Server
Définir ma session = myscriptingcontext.Session
Fin du
sous-sous-public onendpage()
Définir myscriptingcontext = Rien
Définir monapplication = Rien
Définir ma demande = Rien
Définir ma réponse = Rien
Définir mon serveur = Rien
Définir ma session = Rien
End Sub
'L'instruction ci-dessus est requise.
'Définir deux fonctions publiques
Public Function datasource() As Variant
datasource = "driver={serveur SQL};server=yang;uid=sa;pwd=; base de données=dcss"
End Function
compile et génère le fichier dcss.dll. Enregistrez le chemin regsvr32dcss.dll.
Ouvrez le fichier global.asa avec visual interdev. Bien sûr, vous pouvez également l'utiliser dans d'autres fichiers.
set dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn
peut être appelé comme suit dans d'autres pages :
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Ouvrir l'application ("strconn")