用VB 6封装ASP代码, 制作DLL组件

启动vb6.0，新建-->Active dll工程。单击"工程"-->引用,选择"microsoft active server pages object library"
和"microsoft activeX data objects 2.1 library"两项。将类模块的名称改为class将工程的名称改为object

'以下2个函数是前提：

Private myscriptingcontext As ScriptingContext
Private application As application
Private request As request
Private response As response
Private server As server
Private session As session

Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
Set myscriptingcontext = passedscriptingcontext
Set application = myscriptingcontext.application
Set request = myscriptingcontext.request
Set response = myscriptingcontext.response
Set server = myscriptingcontext.server
Set session = myscriptingcontext.session
End Sub

Public Sub onendpage()
Set myscriptingcontext = Nothing
Set application = Nothing
Set request = Nothing
Set response = Nothing
Set server = Nothing
Set session = Nothing
End Sub

'定义一个方法
Public Sub aa()
response.Write "hello world!"
End Sub

最后编译生成zy.dll文件。注册regsvr32 路径zy.dll

在asp中调用

set nc=server.CreateObject("object.class")

nc.aa