Use ASP object instances in VB

Development steps:
1. Create a New ActiveX dll Project
2. Modify the project name
3. Modify the module name
4. Add reference: During Development under NT and 98, Microsoft Transaction Server Type Library must be referenced in the project. For Development under Windows 2000, COM + service type library must be referenced.
5. debug the code and generate the *. dll file.

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 ", use the VB environment to write ASP programs! "

End sub

6. Test ASP code in IIS

<% Set objtest = server. Createobject ("aspobject. aspclass ")
Objtest. asptest
Set objtest = nothing
%>