以前收集的一些資料---使用VB編寫純ASP程式(獻給大哥)

程式             使用VB編寫純ASP程式
    前幾天大哥對我說，使用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檔案中使用這個組件的方法：
        &nbs