前几天大哥对我说，使用a 真麻烦，编译环境实在是差劲，他总是在vb里面写好调试好代码然后在把代码粘贴到a 程序中，为此，我在这提出一个解决之道。使用VB接替A 所有的对象，在VB中编写纯粹的A 程序。

　　大家应该都知道，其实a 中的好多组件都是使用VB编写出来的，但是让大家感到很不方便的是如何使用a 固有的几个组件，例如Re o e,Request,A lication,Se ion等等，如果我要是能够在VB里面直接使用这些组件的话，那么就能够直接使用VB编写a 运用程序了。

　　下面是详细的步骤：

　　1。在VB中新建一个ActiveX DLL.其中那些命名项目、类的过程我就省略了。

　　2。现在需要在VB中引用两个dll.

　　第一个是引用A 引擎的dll.

　　从菜单中选择Project\References命令,引用'Microsoft Active Server Pages Object Library'.

　　如果你没有找到它的话，你可以在以下目录中查找这个a .dll文件%systemdirectory%/system32/inetsvr目录

　　单击按钮'Browse...'可以导入这个动态连接库

　　第二个是引用Microsoft Tra action Server (MTS)对象.选择同样的命令，引用

　　'Microsoft Tra action Server Type Library'.

　　如果你没有找到它的话，你可以在以下目录中查找这个mtxas.dll文件

　　%systemdirectory%/system32/Mts/ 3。好了，所有准备工作完成，下面是如何编写的代码，我想大家都能够看明白的。

　　这个是类文件的代码：

　　Option Explicit

　　Dim m_objRe o e As Re o e

　　Dim m_objRequest As Request

　　Dim m_objServer As Server

　　Dim m_objA lication As A lication

　　Dim m_objSe ion As Se ion

　　Private Sub Cla _Initialize()

　　Dim objContext As ObjectContext

　　Set objContext = GetObjectContext()

　　Set m_objRe o e = objContext("Re o e")

　　Set m_objRequest = objContext("Request")

　　Set m_objServer = objContext(" erver")

　　Set m_objA lication = objContext("A licatio quot;)

　　Set m_objSe ion = objContext(" e io quot;)

　　End Sub

　　Public Sub A Test()

　　m_objRe o e.Write "告别写字板，使用VB环境编写A 程序！"

　　End Sub

　　将以上的代码拷贝粘贴到你的程序中，然后编译这个项目成dll。最后使用

　　regsvr32 componentname.dll把这个dll注册到iis中。

　　下面是在a 文件中使用这个组件的方法：

　　<%

　　Set objTest = Server.CreateObject("YourPrjName.A Test")

　　objTest.A Test

　　Set objTest = Nothing

　　%>

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