ASP llama al dll y encapsula la instancia del dll. La encapsulación en el dll puede proporcionar eficiencia de ejecución y cifrar el código. Abra VB6 y cree una nueva DLL ActiveX
2. Agregue la selección de la biblioteca de objetos de Microsoft Active Server Pages a la referencia del proyecto.
3. Complete el código de la siguiente manera:
Copie el código de código de la siguiente manera:
'Inicio del código
'Parte de la declaración
MyScriptingContext privado como ScriptingContext
MyApplication privado como aplicación
Mi solicitud privada como solicitud
Mi respuesta privada como respuesta
MyServer privado como servidor
Mi sesión privada como sesión
'Lo siguiente define funciones comunes (para acceder a objetos ASP en VB, es decir, en VB puede usar MyApplication para que sea equivalente a Application en ASP, MyRequest para que sea equivalente a Request en ASP, MyResponse para que sea equivalente a Response en ASP y MyServer es equivalente a Server en ASP, MySession es equivalente al uso de Session en ASP)
Public Sub OnStartPage (PasadoScriptingContext como ScriptingContext)
Establecer MyScriptingContext = PassedScriptingContext
Establecer MiAplicación = MyScriptingContext.Application
Establecer MyRequest = MyScriptingContext.Request
Establecer MiRespuesta = MyScriptingContext.Response
Establecer MiServidor = MyScriptingContext.Server
Establecer Mi Sesión = MyScriptingContext.Session
Subtítulo final
Sub pública OnEndPage()
Establecer MyScriptingContext = Nada
Establecer MiAplicación = Nada
Establecer Mi Solicitud = Nada
Establecer MiRespuesta = Nada
Establecer MiServidor = Nada
Establecer Mi sesión = Nada
Subtítulo final
'Crear una función personalizada SayHello
Sub público Di hola()
MiRespuesta.Escribir(Hola mundo)
Subtítulo final
'Fin del código
4. Cambie el nombre de la clase a: HelloWorld y cambie el nombre del proyecto a: TestVBCode
5. Genere el archivo TestVBCode.DLL y use el comando de componente de registro de ejecución de Windows Regsvr32 ruta/TestVBCode.DLL para registrarlo para su uso. (El comando para desinstalar el componente es Regsvr32 /u ruta/TestVBCode.DLL)
6. Cree el archivo Test.asp, el código es el siguiente
Copie el código de código de la siguiente manera:
<%
'Formato de llamada de función autoconstruido de VB
'Establecer nombre de objeto=Server.CreateObject(nombre de proyecto.nombre de clase)
'Nombre del objeto.Nombre de la función autoconstruida
Establecer MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)
MyTestObj.SayHello
%>
7. Los resultados de ejecutar el archivo Test.asp son los siguientes:
Hola Mundo
==================================================== =========
Para aplicaciones más complejas, puede expandirlas hacia afuera mediante este ejemplo.
como:
Copie el código de código de la siguiente manera:
Subconstr2 pública ()
Establecer conexión = MyServer.CreateObject(ADODB.Connection)
conn.Open driver={Controlador de Microsoft Access (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Establecer rs = conn.Execute(seleccionar * de noticias)
Hacer mientras no rs.EOF
MiRespuesta.Escribir (rs(news_title) & <br>)
rs.MoverSiguiente
Bucle
rs.Cerrar
Establecer conexión = Nada
Subtítulo final
Esto está encapsulado con el código de conexión de la base de datos. Por supuesto, las referencias de ADO deben agregarse aquí.