|
前几天大哥对我说，使用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程序? /p>
End Sub
将以上的代码拷贝粘贴到你的程序中，然后编译这个项目成dll。最后使用
regsvr32 componentname.dll把这个dll注册到iis中。
下面是在asp文件中使用这个组件的方法：
$#@60;%
Set objTest = Server.CreateObject("YourPrjName.ASPTest")
objTest.ASPTest
Set objTest = Nothing
%$#@62;
好了，希望我的方法能够解决大哥的苦恼，呵呵。
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
