ASP appelle la DLL et encapsule l'instance de la DLL. L'encapsulation dans la DLL peut assurer l'efficacité de l'exécution et chiffrer le code. Ouvrez VB6 et créez une nouvelle DLL ActiveX
2. Ajoutez la sélection de la bibliothèque d'objets Microsoft Active Server Pages à la référence du projet.
3. Remplissez le code comme suit :
Copiez le code comme suit :
'Démarrage du code
'Partie déclaration
MyScriptingContext privé en tant que ScriptingContext
MyApplication privée en tant qu'application
MyRequest privé en tant que demande
MyResponse privée comme réponse
MyServer privé en tant que serveur
Privé MySession en tant que session
'Ce qui suit définit les fonctions communes (pour accéder aux objets ASP en VB, c'est-à-dire que dans VB vous pouvez utiliser MyApplication pour être équivalent à Application en ASP, MyRequest pour être équivalent à Request en ASP, MyResponse pour être équivalent à Response en ASP et MyServer est équivalent à Server dans ASP, MySession est équivalent à l'utilisation de Session dans ASP)
Sous-public OnStartPage (PassedScriptingContext As ScriptingContext)
Définir MyScriptingContext = PassedScriptingContext
Définir MyApplication = MyScriptingContext.Application
Définir MyRequest = MyScriptingContext.Request
Définir MyResponse = MyScriptingContext.Response
Définir MyServer = MyScriptingContext.Server
Définir MaSession = MyScriptingContext.Session
Fin du sous-marin
Sous-public OnEndPage()
Définir MyScriptingContext = Rien
Définir MyApplication = Rien
Définir MyRequest = Rien
Définir MyResponse = Rien
Définir MyServer = Rien
Définir MySession = Rien
Fin du sous-marin
'Créer une fonction personnalisée SayHello
Sous-public DitesBonjour()
MaRéponse.Write(Bonjour tout le monde)
Fin du sous-marin
'Fin du code
4. Changez le nom de la classe en : HelloWorld et changez le nom du projet en : TestVBCode
5. Générez le fichier TestVBCode.DLL et utilisez la commande du composant d'enregistrement d'exécution Windows Regsvr32 path/TestVBCode.DLL pour l'enregistrer en vue de son utilisation. (La commande pour désinstaller le composant est Regsvr32 /u path/TestVBCode.DLL)
6. Créez le fichier Test.asp, le code est le suivant
Copiez le code comme suit :
<%
'Format d'appel de fonction VB auto-construit
'Définir le nom de l'objet = Server.CreateObject (nom du projet.nom de la classe)
'Nom de l'objet. Nom de la fonction auto-construite
Définir MyTestObj = Server.CreateObject (TestVBCode.HelloWorld)
MyTestObj.DitesBonjour
%>
7. Les résultats de l'exécution du fichier Test.asp sont les suivants :
Bonjour le monde
=================================================== =========
Pour des applications plus complexes, vous pouvez développer votre projet grâce à cet exemple.
comme:
Copiez le code comme suit :
Sous-constr2 publique()
Définir conn = MyServer.CreateObject (ADODB.Connection)
conn.Open driver={Pilote Microsoft Access (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Définir rs = conn.Execute (sélectionner * dans les actualités)
Faire sans rs.EOF
MyResponse.Write (rs(news_title) & <br>)
rs.MoveNext
Boucle
rs.Fermer
Définir la connexion = Rien
Fin du sous-marin
Ceci est encapsulé avec le code de connexion à la base de données. Bien entendu, les références ADO doivent être ajoutées ici.