使用VB编写纯ASP程序

发表日期：2000-8-25

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

前几天大哥对我说，使用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

　　%>

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

关注此文的读者还看过：
·2012-5-21 15:36:57 一个简单的网上书城的例子（六）
·2012-5-21 15:34:12 无组件上传图片至SQLSERVER数据库
·2012-5-21 15:33:19 ASP连接执行程序
·2012-5-21 15:31:45 用ASP建立邮件列表
·2012-5-21 15:31:12 制作我们自己的Ebay(拍卖系统)(6)
·2012-5-21 15:30:27 用ASP+实现一个简单的计算器(适合入门者)
·2012-5-21 15:28:24 一个把数字转英文的实用程序
·2012-5-21 15:22:47 用ASP.NET构建完整E-mail发送系统
·2012-5-21 15:19:25 ASP生成Word文档的又一方法

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·汽车配件网站制作 50000元
·整站SEO优化
·课件门户网程序
·求长期合作网站设计制作高手
·公司网站重新改版 8000元
·asp企业网站小改动
·网站flash片头
·文化传播公司网站设计稿
·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·做B2C网站 20000元
·Android或QT软硬件平台设计（工
·网站首页FLASH

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP实例>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发