用VB將ASP代碼封裝成DLL

2019-11-18 19:16:33

字體：大中小

來源：轉載

供稿：網友

一、引言

　　Server端的腳本運行環境，它簡單易用，不需要編譯和連接，腳本可以在 Server端直接運行，并且它支持多用戶、多線程，在 Web開發中得到了廣泛的應用。服務器端的組件有別于客戶端的組件?？蛻舳说慕M件是通過網絡傳輸,依靠HTML來起作用，而且只能在IE上有用。但是服務器端的組件是運行在服務器端,它在服務器上執行各種操作。因此，所有的瀏覽器都能享用,它依靠的是服務器而不是瀏覽器。但是，因為 asp腳本是純文本格式，所以惡意者通過源代碼可以很容易地看到原本不該看到的頁面內容。因此，保護ASP源代碼顯得非常重要。將ASP代碼封裝成DLL,不僅加快了ASP代碼的執行速度,而且也能保護原代碼。當IIS被請求執行一個ASP程序,它首先會在ASP文件中找到標簽之間的代碼,并且執行它(也可以是之間的代碼)。如果這個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
Response.Write " "
Response.Write rs("標題")
Response.Write "</a></td>" & vbCrLf
Response.Write " <td width=""94"">"
Response.Write rs("點擊")
Response.Write "</td>" & vbCrLf
Response.Write " <td width=""148"">"
Response.Write rs("添加日期")
Response.Write "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
rs.MoveNext
Wend
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & 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

　　使用article.dll后的index.asp中的代碼：
<%Dim AspTransBuilderObject

Set AspTransBuilderObject = Server.CreateObject("article.Class1")

AspTransBuilderObject.AspClassInit

Set AspTransBuilderObject = Nothing%>

　　使用article.dll前的index.asp中的代碼：
<% 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 %>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章管理系統-CSSTUDIO</title>
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<table width="100%" border="0" cellpadding="2"
cellspacing="0">
<tr>
<td width="742" height="20">文章標題</td>
<td width="90">點擊</td>
<td width="145">添加日期</td>
</tr>
</table>
<% While Not Rs.Eof And Rows<Rs.PageSize %>
<table width="100%" border="0" cellspacing="0"
cellpadding="0">
<tr>
<td width="747" height="20">☆<a href="view.asp?id=<%
= rs("ArticleID") %>">
<% =rs("標題") %></a></td>
<td width="94"><% = rs("點擊") %></td>
<td width="148"><% = rs("添加日期") %></td>
</tr>
</table>
<% Rs.MoveNext
Wend %>
</body>
</html>
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>