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
Séance privée En tant que séance
Sous-page publique sur la page de démarrage (passé le contexte de script en tant que 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 rsresult(strsql As String) As Recordset
Dim mycnn comme connexion
Dim myset comme jeu d'enregistrements
Dim strconnstring As String
'strconnstring = "provider=sqloledb.1;
mot de passe=;" & "identifiant utilisateur=sa;" & "catalogue initial=vlog;" & "source de données=hpe60;
délai de connexion = 15"
strconnstring = "driver={serveur SQL};server=yang;uid=sa;pwd=;
base de données=dcss"
'mycnn.ConnectionString = chaîne de connexion
mycnn.Open strconnstring
monset.ActiveConnection = moncnn
monset.Open strsql, mycnn, 3, adCmdText
Définir rsresult = mon ensemble
Fin de la fonction
fonction publique datasource() en tant que variante
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")