使用VB编写纯ASP程序

前几天大哥对我说，使用真麻烦，编译环境实在是差劲，他总是在vb里面写好调试好代码然后在把代码粘贴到asp程序中，为此，我在这提出一个解决之道。使用vb接替asp所有的对象，在vb中编写纯粹的asp程序。

　　大家应该都知道，其实asp中的好多都是使用vb编写出来的，但是让大家感到很不方便的是如何使用asp固有的几个组件，例如response,request,application,session等等，如果我要是能够在vb里面直接使用这些组件的话，那么就能够直接使用vb编写asp运用程序了。

　　下面是详细的步骤：

　　1。在vb中新建一个activex dll.其中那些命名项目、类的过程我就省略了。

　　2。现在需要在vb中引用两个dll.

　　第一个是引用asp引擎的dll.

　　从菜单中选择projectreferences命令,引用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程序！"

　　end sub

　　将以上的代码拷贝粘贴到你的程序中，然后编译这个项目成dll。最后使用

　　regsvr32 componentname.dll把这个dll注册到iis中。

　　下面是在asp文件中使用这个组件的方法：

　　<%

　　set objtest = server.createobject("yourprjname.asptest")

　　objtest.asptest

　　set objtest = nothing

　　%>

好了，希望我的方法能够解决大哥的苦恼，呵呵。