以前收集的一些资料---使用VB编写纯ASP程序(献给大哥)

2024-05-04 11:06:19

字体：大中小

来源：转载

供稿：网友

注册会员，创建你的web开发资料库，            使用vb编写纯asp程序
    前几天大哥对我说，使用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.
   从菜单中选择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程序！"
                      end sub

将以上的代码拷贝粘贴到你的程序中，然后编译这个项目成dll。最后使用
                      regsvr32 componentname.dll
把这个dll注册到iis中。
下面是在asp文件中使用这个组件的方法：
        &nbs

|||

p;             <%
                      set objtest = server.createobject("yourprjname.asptest")
                      objtest.asptest
                      set objtest = nothing
                      %>
好了，希望我的方法能够解决大哥的苦恼，呵呵。

上一篇：用VB生成DLL封装ASP代码，连接数据库

下一篇：已调试好的asp程序在VB中转换为组件的技巧