VB中使用ASP对象实例

开发步骤:
1.新建立Activex Dll 项目
2.修改Project 名称
3.修改Module名称
4.添加引用:在NT和98下开发时，必须在项目中引用Microsoft Transaction Server Type Library，在Windows 2000下开发，必须引用COM+ Service Type Library。
5.调试代码,生成*.dll文件

Option Explicit

Dim m_objResponse As Response

Dim m_objRequest As Request

Dim m_objServer As Server

Dim m_objApplication As Application

Dim m_objSession As Session

Private Sub Class_Initialize()

Dim objContext As ObjectContext

Set objContext = GetObjectContext()

Set m_objResponse = objContext("Response")

Set m_objRequest = objContext("Request")

Set m_objServer = objContext("Server")

Set m_objApplication = objContext("Application")

Set m_objSession = objContext("Session")

End Sub

Public Sub ASPTest()

m_objResponse.Write "告别写字板，使用VB环境编写ASP程序！"

End Sub

6.在IIS中测试ASP代码

<%Set objTest = Server.CreateObject("ASPObject.ASPCLass")
objTest.ASPTest
Set objTest = Nothing
%>