使用VB编写纯ASP程序
2007-06-29 01:03
459 查看
大家应该都知道,其实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
%>
下面是详细的步骤:
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
%>
相关文章推荐
- 使用VB编写纯ASP程序
- 使用VB编写纯ASP程序
- 在ASP中使用VFP编写脚本程序
- VB编写各类COM对象(特别是ASP)时,如何让外部对象使用含有可选参数的函数
- VB中使用WinSock控件编写网络程序
- [VB.NET]各们,请问如何使用vb.net编写两个进程间消息通信的程序啊
- 解决方案 VB编写的数据库程序在Win7 SP1编译无法在XP系统上使用的问题
- 如何使用 VB 编写自动反安装的程序?
- Visual Studio2017中编写ASP.NET程序时使用C# 7.0元组Tuple新特性的一点注意事项
- 怎么让vb编写好的程序生成独立的文件啊,在其他电脑上也能独立使用?
- OWA或Messenger样式的信息提示窗口——编写ASP.NET AJAX Extender控件(下):使用该控件(示例程序)
- 使用VB.NET编写控制excel的程序
- 使用vb编写asp组件时最需要注意的事项
- 使用soaoffice中间件+asp实例编写小型的企业管理程序(一)
- 使用soaoffice中间件+asp实例编写小型的企业管理程序(二)
- 使用VB.Net GDI+编程编写的3D魔方游戏程序
- 关于高清在线播放器:[迅播播放器][可使用javascript调用][完全兼容asp,jsp,php,.net等主流语言编写的程序]
- 使用jQuery的validation后,无法引发asp.net按钮的事件处理程序
- 使用VB Visual Studio.Net创建密码窃取程序
- 编写通用的asp防注入程序