Un documento de hace mucho tiempo, ordenado y recordado
Use VB para encapsular ASP y establecer un programa de prueba de Sayhello
1. Abra VB6 y cree una nueva ActiveXDLL
2. Agregue Microsoft ActiveServerPagesObjectLibrary a la referencia del proyecto
3. Complete el código de la siguiente manera:
'CodeStart
'Part de la declaración
PrivateMyscriptingContextasscriptingContext
Privatemia aplicaciones aplicadas
PrivatemyRequestassquest
PrivateMyResponseasAsponse
PrivateMyServerAserver
Privatemyessionsession
'A continuación se define una función común (que accede al objeto ASP en VB, es decir, en VB, MyApplication puede ser equivalente a la aplicación en ASP, MyRequest es equivalente a solicitar en ASP, MyResponse es equivalente a la respuesta en ASP, MyServer es equivalente al servidor en ASP, MySession es equivalente a la sesión en ASP)
PublicsubonStartPage (paseScriptingContextasscriptingContext)
SetmyscriptingContext = paseScriptingContext
SetMyApplication = myScriptingContext.Application
SetMyRequest = myScriptingContext.Request
SetmyResponse = myScriptingContext.Response
Setmyserver = myScriptingContext.Server
Setmysession = myscriptingContext.session
Endsub
PublicsubonendPage ()
SetmyscriptingContext = nada
Setmyapplication = nada
SetMyRequest = nada
SetmyResponse = nada
Setmyserver = nada
Setmysession = nada
Endsub
'Crear función personalizada sayhello
Publicsubsayhello ()
MyResponse.Write ("Helloworld")
Endsub
'CodeEnd
4. Cambie el nombre de la clase a: HelloWorld Cambie el nombre del proyecto a: testVbCode
5. Genere el archivo testvbcode.dll y use Windows para ejecutar la ruta RegSVR32/testVbcode.dll para registrarse y usarlo. (El comando Desinstalar componente es regsvr32/u ruta/testvbcode.dll)
6. Cree el archivo test.asp, el código es el siguiente
<%
'Formato de llamadas de función auto-construida VB
'Establecer el nombre del objeto = Server.CreateObject ("Nombre del proyecto. Nombre de clase")
'Nombre del objeto. Nombre de la función auto-construcción
SetMyTestObj = server.createObject ("testVbCode.Helloworld")
Mytestobj.sayhello
%>
7. Los resultados de ejecutar el archivo test.asp se muestran de la siguiente manera:
Hola Mundo
El ejemplo anterior abrirá la puerta a su mundo de programación VB
Vamos a unirnos, jaja!