首页 > 编程 > ASP > 正文

使用VB编写纯ASP程序

2024-05-04 11:06:21
字体:
来源:转载
供稿:网友
  前几天大哥对我说,使用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文件中使用这个组件的方法:

  <%

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

  objtest.asptest

  set objtest = nothing

  %>

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

  • 本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理,欢迎访问。
  • 发表评论 共有条评论
    用户名: 密码:
    验证码: 匿名发表