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
%>