¿Cómo convertir código ASP en componente DLL usando VB?

Primero cree el nombre del proyecto (proyecto1) y el nombre de la clase (clase1). Luego seleccione "Proyecto" en el menú, luego seleccione "Referencia", aparecerá la ventana "Referencia", seleccione Biblioteca Microsoft ActiveX Data Object 2.0.

objcontext público como contexto de objeto

aplicación pública como asptypelibrary.application

servidor público como asptypelibrary.server

sesión pública como asptypelibrary.session

respuesta pública como asptypelibrary.response

solicitud pública como asptypelibrary.request

'El código en class1.cls se coloca aquí, no cambie otras cosas, se generará automáticamente:

Función AAAA(ByVal Temp)

AAAA=eeee

Función final

subclase privada_terminate()

en caso de error, reanudar siguiente

establecer aplicación = nada

establecer servidor = nada

establecer sesión = nada

establecer solicitud = nada

establecer respuesta = nada

establecer objcontext = nada

end sub

Seleccione el archivo en el menú desplegable menú desplegable de vb → generar como prueba .dll → Seleccione el directorio para guardar. Busque test.dll y cópielo en la carpeta system32 del disco del sistema. El último paso es registrar el archivo dll. Seleccione Ejecutar en el menú Inicio e ingrese regsvr32 c:\\winnt\\system32\\test.dll. (De hecho, está bien no registrarse)

La siguiente es la llamada

En la página asp

set rs = server.createobject("project1. class1")

La salida de rs.AAAA()' es suficiente