用VB將ASP代碼封裝成DLL

來源:互聯網
上載者:User
封裝|封裝 摘 要 主要介紹用VB將ASP代碼封裝成DLL以保護 ASP代碼和加快ASP代碼的執行速度、節省伺服器的資源
關鍵詞 ASP,DLL,編程
一、引言
Server端的指令碼運行環境,它簡單易用,不需要編譯和串連,指令碼可以在 Server端直接運行,並且它支援多使用者、多線程,在 Web開發中得到了廣泛的應用。伺服器端的組件有別於用戶端的組件。用戶端的組件是通過網路傳輸,依靠HTML來起作用,而且只能在IE上有用。但是伺服器端的組件是運行在伺服器端,它在伺服器上執行各種操作。因此,所有的瀏覽器都能享用,它依靠的是伺服器而不是瀏覽器。但是,因為 ASP指令碼是純文字格式,所以惡意者通過原始碼可以很容易地看到原本不該看到的頁面內容。因此,保護ASP原始碼顯得非常重要。將ASP代碼封裝成DLL,不僅加快了ASP代碼的執行速度,而且也能保護原代碼。當IIS被請求執行一個ASP程式,它首先會在ASP檔案中找到<% %>標籤之間的代碼,並且執行它(也可以是<script runat=server></script>之間的代碼)。如果這個ASP程式在先前被調用過,那麼它就會用記憶體中的編譯過的程式來向使用者返回HTML代碼,如果沒有,那麼它就重新編譯。這樣就大大節省了伺服器的資源。
二、實現方法
啟動你的VB,選擇ActiveX表徵圖。這個表徵圖可以在建立工程找到!VB會提供一個預設的工程名(project1)和類名(class1)。在動手之前請首先確認我們擁有Microsoft ActiveX Data Object 2.0 Library,它在我們的程式非常有用。從菜單中選擇"工程",然後在其中選擇"引用",就會出現"引用"視窗從中選擇Microsoft ActiveX Data Object 2.0 Library。
現在我們有了我們自己的工程(project1)和類名(class1)。以後我們就會在ASP代碼中使用它們的名字來引用這個組件。在ASP中我們就這樣引用,如下:
Set ObjReference = Server.CreateObject("ProjectName.ClassName")
為了在類中使用ASP的方法,你必須在此類中寫上初始和終止這兩個函數。輸入如下代碼:程式清單中Class1.cls中的Private Sub Class_Initialize()和Private Sub Class_Terminate()。
將ASP代碼中的關鍵功能製作成動態連結程式庫(.dll),部分隱藏 ASP原始碼。 例如:程式清單中的Global.bas和Class1.cls中輸入的代碼(代碼的主要功能是檢索資料庫中的記錄並顯示出來)。
在VB的下拉式功能表中選擇檔案→產生article.dll→選擇要儲存的目錄。找到article.dll將其複製到系統硬碟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 "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<title>文章管理系統-CSSTUDIO</title>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body bgcolor=""#FFFFFF"" topmargin=""0"">" & vbCrLf
Response.Write "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""742"" height=""20"">文章標題</td>" & vbCrLf
Response.Write " <td width=""90"">點擊</td>" & vbCrLf
Response.Write " <td width=""145"">添加日期</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
While Not rs.EOF And Rows < rs.PageSize
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""747"" height=""20"">☆<a href=""view.asp?id="
Response.Write rs("ArticleID")
Response.Write """>" & vbCrLf



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。