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

2020-07-18 16:11:41

字體：大中小

供稿：網(wǎng)友

一、引言

　　Server端的腳本運行環(huán)境，它簡單易用，不需要編譯和連接，腳本可以在 Server端直接運行，并且它支持多用戶、多線程，在 Web開發(fā)中得到了廣泛的應(yīng)用。服務(wù)器端的組件有別于客戶端的組件?？蛻舳说慕M件是通過網(wǎng)絡(luò)傳輸,依靠HTML來起作用，而且只能在IE上有用。但是服務(wù)器端的組件是運行在服務(wù)器端,它在服務(wù)器上執(zhí)行各種操作。因此，所有的瀏覽器都能享用,它依靠的是服務(wù)器而不是瀏覽器。但是，因為 ASP腳本是純文本格式，所以惡意者通過源代碼可以很容易地看到原本不該看到的頁面內(nèi)容。因此，保護ASP源代碼顯得非常重要。將ASP代碼封裝成DLL,不僅加快了ASP代碼的執(zhí)行速度,而且也能保護原代碼。當(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會提供一個默認的工程名(project1)和類名(class1)。在動手之前請首先確認我們擁有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 "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<title>文章管理系統(tǒng)-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"">文章標(biāo)題</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("標(biāo)題")
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>文章管理系統(tǒng)-CSSTUDIO</title>
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<table width="100%" border="0" cellpadding="2"
cellspacing="0">
<tr>
<td width="742" height="20">文章標(biāo)題</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("標(biāo)題") %></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 %>

　　四、結(jié)論

　　因為這些代碼是在服務(wù)器端運行的，所以客戶端不需要安裝任何東西。這僅僅是用ActiveX DLL所能實現(xiàn)的功能的小小的例子。你們可以寫好自己的更大的組件,而且還可以用VB中的很多控件。讓我們用組件來擴展我們的程序的功能吧!也希望多多的看到我們中國人的組件。但愿本文能起到拋磚引玉的作用。

上一篇：cuteftp序列號

下一篇：Windows XP與Vista的性能對比評測