Document il y a longtemps, réglé et remémore
Utilisez VB pour encapsuler ASP et établir un programme de test Sayhello
1. Ouvrez VB6 et créez un nouveau ActiveXdll
2. Ajouter Microsoft ActiveServerPagesObjectLibrary à la référence du projet
3. Remplissez le code comme suit:
'Codestart
'Partie de déclaration
PrivatemyscriptingContextScriptingContext
Privatemyapplicationasapplication
Privatemyrequestasrequest
PrivatemyResponseasponse
PrivatemyserverAsserver
PrivateMysseSession
`` Ce qui suit définit une fonction commune (l'accès à l'objet ASP dans VB, c'est-à-dire que dans VB, MyApplication peut être utilisé pour être équivalent à l'application dans ASP, MyRequest est équivalent à demander dans ASP, MyResesponse est équivalent à la réponse dans ASP, Myserver est équivalent à Server dans ASP, MySession est équivalente à ASP)
PublicsubonStartPage (passcriptingContextScriptingContext)
SetMyscriptingContext = passcriptingContext
SetMyApplication = MyScriptingContext.Application
SetMyRequest = myScriptingContext.request
SetMyResponse = myscriptingContext.Response
SetMyServer = myscriptingContext.server
SetMysse = myscriptingContext.Session
Fin
PublicSubonendPage ()
SetMyscriptingContext = rien
SetMyApplication = rien
SetMyRequest = rien
SetMyResponse = rien
SetMyServer = rien
SetMysse = rien
Fin
'Créer une fonction personnalisée Sayhello
PublicsubsayHello ()
MyResponse.write ("Helloworld")
Fin
'Codeend
4. Changez le nom de la classe en: Helloworld Changez le nom du projet en: testvbcode
5. Générez le fichier testvbcode.dll et utilisez Windows pour exécuter le régulateur Path / testvbcode.dll RegSVR32 pour l'enregistrer et l'utiliser. (La commande de composante de désinstallation est regsvr32 / u path / testvbcode.dll)
6. Créer le fichier test.asp, le code est le suivant
<%
«Format d'appel de fonction auto-construit VB
'SET OBJET NOM = Server.CreateObject ("Projet Name.Class Name")
'Nom de l'objet. Nom de la fonction auto-construite
SetMyTestObj = Server.CreateObject ("TestVBCode.Helloworld")
Mytestobj.sayhello
%>
7. Les résultats de l'exécution du fichier test.asp sont affichés comme suit:
Bonjour le monde
L'exemple ci-dessus ouvrira la porte à votre monde de programmation VB
Rassemblons-nous, haha!