一、引言
Server端的腳本運行環(huán)境，它簡單易用，不需要編譯和連接，腳本可以在 Server端直接運行，并且它支持多用戶、多線程，在 Web開發(fā)中得到了廣泛的應用。服務器端的組件有別于客戶端的組件?？蛻舳说慕M件是通過網(wǎng)絡傳輸,依靠HTML來起作用，而且只能在IE上有用。但是服務 器端的組件是運行在服務器端,它在服務器上執(zhí)行各種操作。因此，所有的瀏覽器都能享用,它依靠的是服務器而不是瀏覽器。但是，因為 ASP腳本是純文本格式，所以惡意者通過源代碼可以很容易地看到原本不該看到的頁面內(nèi)容。因此，保護ASP源代碼顯得非常重要。將ASP代碼封裝成 DLL,不僅加快了ASP代碼的執(zhí)行速度,而且也能保護原代碼。當IIS被請求執(zhí)行一個ASP程序,它首先會在ASP文件中找到標簽之間的代碼,并且執(zhí)行 它(也可以是之間的代碼)。如果這個ASP程序在先前被調(diào)用過,那么它就會用內(nèi)存中的編譯過的程序來向用戶返回HTML代碼,如果沒有,那么它就重新編 譯。這樣就大大節(jié)省了服務器的資源。
二、實現(xiàn)方法
啟動你的VB,選擇ActiveX圖標。這個圖標可以 在新建工程找到!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代碼中的關鍵功能制作成動態(tài)鏈接庫(.dll)，部分隱藏 ASP源代碼。 例如：程序清單中的Global.bas和Class1.cls中輸入的代碼（代碼的主要功能是檢索數(shù)據(jù)庫中的記錄并顯示出來）。
在VB的下拉菜單中選擇文件→生成article.dll→選擇要保存的目錄。找到article.dll將其復制到系統(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"">文章標題</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>文章管理系統(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">文章標題</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 %> |
四、結(jié)論
因為這些代碼是在服務器端運行的，所以客戶端不需要安裝任何東西。這僅僅是用ActiveX DLL所能實現(xiàn)的功能的小小的例子。你們可以寫好自己的更大的組件,而且還可以用VB中的很多控件。讓我們用組件來擴展我們的程序的功能吧!也希望多多的 看到我們中國人的組件。但愿本文能起到拋磚引玉的作用。
