一、引言
Server端的腳本運行環境，它簡單易用，不需要編譯和連接，腳本可以在Server端直接運行，並且它支援多用戶、多線程，在Web開發中得到了廣泛的應用。伺服器端的元件有別於客戶端的元件。客戶端的元件是透過網路傳輸,依賴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:winntsystem32article.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("Sobjion")
Set
Session = objContext.Item("Sobj.".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 %>
四、結論
因為這些程式碼是在伺服器端運行的，所以客戶端不需要安裝任何東西。這只是用ActiveX DLL所能實現的功能的小小的例子。你們可以寫好自己的更大的組件,而且還可以用VB中的很多控件。讓我們用組件來擴展我們的程式的功能吧!也希望多多的看到我們中國人的組件。但願本文能起到拋磚引玉的作用。