2。现在需要在VB中引用两个dll.
第一个是引用ASP引擎的dll.
从菜单中选择Project\References命令,引用’Microsoft Active Server Pages Object Library’.
如果你没有找到它的话,你可以在以下目录中查找这个asp.dll文件%systemdirectory%/system32/inetsvr目录
单击按钮’Browse...’可以导入这个动态连接库
第二个是引用Microsoft Transaction Server (MTS)对象.选择同样的命令,引用
’Microsoft Transaction Server Type Library’.
如果你没有找到它的话,你可以在以下目录中查找这个mtxas.dll文件
%systemdirectory%/system32/Mts/ 3。好了,所有准备工作完成,下面是如何编写的代码,我想大家都能够看明白的。
这个是类文件的代码:
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程序!"
Sub
将以上的代码拷贝粘贴到你的程序中,然后编译这个项目成dll。最后使用regsvr32 componentname.dll把这个dll注册到iis中。
下面是在asp文件中使用这个组件的方法:
<%
Set objTest = Server.CreateObject("YourPrjName.ASPTest")
objTest.ASPTest
Set objTest = Nothing
%>
好了,希望我的方法能够解决大哥的苦恼,呵呵。
156
[VB.NET程序]使用VB编写纯ASP程序