使用VB將ASP代碼封裝生成DLL文件

一、引言
    Server端的腳本運行環(huán)境，它簡單易用，不需要編譯和連接，腳本可以在 Server端直接運行，并且它支持多用戶、多線程，在 Web開發(fā)中得到了廣泛的應(yīng)用。服務(wù)器端的組件有別于客戶端的組件。客戶端的組件是通過網(wǎng)絡(luò)傳輸,依靠HTML來起作用，而且只能在IE上有用。但是服務(wù)器端的組件是運行在服務(wù)器端,它在服務(wù)器上執(zhí)行各種操作。因此，所有的瀏覽器都能享用,它依靠的是服務(wù)器而不是瀏覽器。但是，因為 ASP腳本是純文本格式，所以惡意者通過源代碼可以很容易地看到原本不該看到的頁面內(nèi)容。因此，保護(hù)ASP源代碼顯得非常重要。將ASP代碼封裝成DLL,不僅加快了ASP代碼的執(zhí)行速度,而且也能保護(hù)原代碼。當(dāng)IIS被請求執(zhí)行一個ASP程序,它首先會在ASP文件中找到標(biāo)簽之間的代碼,并且執(zhí)行它(也可以是之間的代碼)。如果這個ASP程序在先前被調(diào)用過,那么它就會用內(nèi)存中的編譯過的程序來向用戶返回HTML代碼,如果沒有,那么它就重新編譯。這樣就大大節(jié)省了服務(wù)器的資源。
    二、實現(xiàn)方法
    啟動你的VB,選擇ActiveX圖標(biāo)。這個圖標(biāo)可以在新建工程找到!VB會提供一個默認(rèn)的工程名(project1)和類名(class1)。在動手之前請首先確認(rèn)我們擁有Microsoft ActiveX Data Object 2.0 Library,它在我們的程序非常有用。從菜單中選擇"工程",然后在其中選擇"引用",就會出現(xiàn)"引用"窗口,從中選擇Microsoft ActiveX Data Object 2.0 Library。
    現(xiàn)在我們有了我們自己的工程(project1)和類名(class1)。以后我們就會在ASP代碼中使用它們的名字來引用這個組件。在ASP中我們就這樣引用,如下:
    Set ObjReference = Server.CreateObject("ProjectName.ClassName")
    為了在類中使用ASP的方法,你必須在此類中寫上初始和終止這兩個函數(shù)。輸入如下代碼：程序清單中
    Class1.cls中的Private Sub Class_Initialize()和Private Sub Class_Terminate()
    將ASP代碼中的關(guān)鍵功能制作成動態(tài)鏈接庫(.dll)，部分隱藏 ASP源代碼。 例如：程序清單中的Global.bas和Class1.cls中輸入的代碼（代碼的主要功能是檢索數(shù)據(jù)庫中的記錄并顯示出來）。
    在VB的下拉菜單中選擇文件→生成article.dll→選擇要保存的目錄。找到article.dll將其復(fù)制到系統(tǒng)盤system32文件夾中，最后一步注冊DLL文件。在開始菜單中選擇運行輸入regsvr32 c:\winnt\system32\article.dll。
    三、程序清單
    Global.bas中的代碼：
    以下是引用片段：
    Public objContext As ObjectContext
    Public Application As ASPTypeLibrary.Application
    Public Server As ASPTypeLibrary.Server
    Public Session As ASPTypeLibrary.Session
    Public Response As ASPTypeLibrary.Response
    Public Request As ASPTypeLibrary.Request
    Class1.cls中的代碼：
    Private Sub Class_Initialize()
    On Error Resume Next
    Set objContext = GetObjectContext
    Set Application = objContext.Item("Application")
    Set Server = objContext.Item("Server")
    Set Session = objContext.Item("Session")
    Set Request = objContext.Item("Request")
    Set Response = objContext.Item("Response")
    End Sub
    Private Sub Class_Terminate()
    On Error Resume Next
    Set Application = Nothing
    Set Server = Nothing
    Set Session = Nothing
    Set Request = Nothing
    Set Response = Nothing
    Set objContext = Nothing
    End Sub
    Public Sub AspClassInit()
    On Error GoTo Err
    Set conn = Server.CreateObject("ADODB.Connection")
    strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("Article.mdb")
    conn.Open strcon
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql = "select * from Article order by ArticleID desc"
    rs.Open sql, conn, 1, 1
    Response.Write "" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "
    " & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write "

文章標(biāo)題

點擊

添加日期

" & vbCrLf
    While Not rs.EOF And Rows < rs.PageSize
    Response.Write "" & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write " " & vbCrLf
    Response.Write "

☆Response.Write rs("ArticleID")     Response.Write """>" & vbCrLf     Response.Write " "     Response.Write rs("標(biāo)題")     Response.Write "

"     Response.Write rs("點擊")     Response.Write "

"     Response.Write rs("添加日期")     Response.Write "

" & vbCrLf
    rs.MoveNext
    Wend
    Response.Write "" & vbCrLf
    Response.Write "
    " & vbCrLf
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    Exit Sub
    Err:
    If Err.Number = -13572468 Then Exit Sub
    Resume Next
    End Sub