前幾天大哥對我說，使用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.

從菜單中選擇ProjectReferences命令,引用'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

%>

好了，希望我的方法能夠解決大哥的苦惱，呵呵。