繼上一篇中作者給大家介紹了 AD Rotator 組件的使用方法后，今天我們接著來看看其它的一些 ASP 常用組件。
一、 Database Access 組件
我們在 WEB 服務器上運用 WEB 應用程序進行的最常見和最實用的任務就是訪問服務器端的數據庫。而 ASP 內建的 Database Access 組件使得我們能夠輕而易舉地通過 ActiveX Data Objects (ADO) 訪問存儲在服務器端的數據庫或其他表格化數據結構中的信息。 ADO 是對當前微軟所支持的數據庫進行操作的最有效和最簡單直接的方法，它是一種功能強大的數據訪問編程模式，從而使得大部分數據源可編程的屬性得以直接擴展到你的 Active Server 頁面上?？梢允褂?ADO 去編寫緊湊簡明的腳本以便連接到 Open Database Connectivity (ODBC) 兼容的數據庫和 OLE DB 兼容的數據源，這樣 ASP 程序員就可以訪問任何與 ODBC 兼容的數據庫，包括 MS SQL SERVER、 Access、 Oracle 等等。如果您是一個對數據庫連接有一定了解的腳本編寫人員，那么您將發(fā)現 ADO 命令語句并不復雜而且容易掌握。同樣地，如果您是一個經驗豐富的數據庫編程人員，您將會正確認識 ADO 的先進的與語言無關性和查詢處理功能。熟悉 VB 數據庫編程的朋友會發(fā)現 ADO 與 RDO (Remote Data Objects) 有某種類似的地方。但據說 ADO 的訪問的速度更快，內存需要更小。
下面給大家簡要介紹一下利用 ASP 的 Database Access 組件通過 ADO 連接并操作 WEB 數據庫的步驟
第一步 : 指定想要連接的數據庫，有 DSN 和 DSN-less 兩種方法。
DSN(Data Source Name 數據源名稱 ): 建立一個系統(tǒng)數據源名稱，方法如下 :
1、單擊“開始”，選設置控制面板。
2、雙擊圖標“32 位 ODBC” , 將彈出一個對話框，選標簽“System DSN”
3、單擊“Add”添加一個 DSN 入口 , 選擇如“Microsoft Access Drive”并確認。
4、在“Data Source Name”欄里輸入你希望指定的 DSN, 然后單擊“Select”選擇數據庫存放位置，你可以按“Browse”來選取。
5、以上步驟完成后在 ASP 程序中指定 DSN，如下 :
＜ %connstr = "DSN"%＞
DSN-less: 是另一種通過在 ASP 文件里直接指定數據庫文件所在位置，而無需建立 DSN 的方法。由于許多公司沒有自己的 WEB 服務器，他們的網站往往是存放在遠端的虛擬服務器上，因此要建立和修改 DSN 的設置比較麻煩。而使用 DSN-less 方法直接指定遠端數據庫所在位置恰恰解決了這一問題，方法如下 :
＜ %
connstr = "DBQ=" + server.mappath("database/source.mdb") + ";DefaultDir=; DRIVER={Microsoft Access Driver (＞.mdb)}; DriverId=25; FIL=MS Access; ImplicitCommitSync=Yes; MaxBufferSize=512; MaxScanRows=8; PageTimeout=5; SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
%＞
在指定了想要連接的數據庫后，就可以通過以下方法連接并打開數據庫 :
＜ %
Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open constr
%＞
第二步 : 指定想要執(zhí)行的 SQL 指令，可以使用 RecordSet。
當連接了數據庫后就可以對數據庫進行操作，比如查詢、刪除、更新等等，這些操作都是通過 SQL 指令來完成的，如下例在數據庫表 datebase 中查詢所有姓名中有“A”的記錄 :
＜ %
sql="select ＞ from datebase where name like 'A%%'"
Set rs = Conn.Execute(sql)
%＞
盡管 Connection 對象簡化了連接數據庫和查詢任務，但 Connection 對象仍有許多不足。確切地說，檢索和顯示數據庫信息的 Connection 對象不能用于創(chuàng)建腳本，您必須確切知道要對數據庫作出的更改，然后才能使用查詢實現更改。對于檢索數據、檢查結果、更改數據庫， ADO 提供了 Recordset 對象。正如它的名稱所暗示的那樣， Recordset 對象有許多您可以使用的特性，根據您的查詢限制，檢索并且顯示一組數據庫行，即記錄。 Recordset 對象保持查詢返回的記錄的位置，允許您一次一項逐步掃描結果。根據 Recordset 對象的指針類型屬性設置，您可以滾動和更新記錄。數據庫指針可以讓您在一組記錄中定位到特定的項。指針還用于檢索和檢查記錄，然后在這些記錄的基礎上執(zhí)行操作。 Recordset 對象有一些屬性，可用于精確地控制指針的行為，提高您檢查和更新結果的能力。
Recordset 的使用方法如下 :
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL 指令 , Conn, 1, 1 ' 讀取
或
rs.Open SQL 指令 , Conn, 1, 3 ' 新增、修改、或刪除
第三步 : 使用 RecordSet 屬性和方法，并顯示執(zhí)行的結果。
通過以上指令，我們創(chuàng)建了一個包含數據的游標 (RecordSet)“rs”，事實上游標是存儲在活動內存中的類似記錄和字段的數組的東西，當通過 RecordSet 組件創(chuàng)建一個游標時，它從數據提供者的得到一個數據集，并用它來充實游標，我們可以想象 ADO 產生的 RecordSet 是一個象電子表格的記錄，它有一行行的記錄，在任何時候都有一行是它的當前行，而 RecordSet 的字段是用 RecordSet 的 Field 集合表示的。下面列出了所創(chuàng)建的 RecordSet 對象 ( 游標 ) 的一些屬性和方法 :
rs.Fields.Count: RecordSet 對象的字段總數。
rs(i).Name: 第 i 個字段的名稱， i 由 0 算起到 rs.Fields.Count-1。
rs(i): 讀取第 i 個字段的數據， i 由 0 算起到 rs.Fields.Count-1。
rs(" 字段名稱 "): 讀取指定字段的數據。
rs.RecordCount: 游標中的數據記錄總數。
rs.EOF: 是否已指到最后一條記錄。
rs.MoveNext: 將指標移到下一筆記錄。
rs.MovePrev: 將指標移到上一筆記錄。
rs.MoveFirst: 將指標移到第一筆記錄。
rs.MoveLast: 將指標移到最后一筆記錄。
rs.Close: 關閉 RecordSet 對象
有關 ADO 的其他介紹，作者將在今后給大家詳細講解。
二、 Content Linking 組件
如果你的網站有一系列相互關聯的頁面的話， Content Linking 組件將非常適合你的需求，它非但可以使你在這些頁面中建立一個目錄表，而且還可以在它們中間建立動態(tài)連接，并自動生成和更新目錄表及先前和后續(xù)的 Web 頁的導航鏈接。這對于列出聯機報刊、電子讀物網站以及論壇郵件是十分理想的選擇。
Content Linking 組件創(chuàng)建管理 URL 列表的 Nextlink 對象，要使用 Content Linking 組件，必須需要先創(chuàng)建 Content Linking List 文件。 Content Linking 組件正是通過讀取這個文件來獲得處理我們希望鏈接的所有頁面的信息。事實上該文件是一個純文本文件，其內容如下 :
page1.htm one
page2.htm two
page3.htm three
page4.htm four
page5.htm five
page6.htm six
這個文本文件的每行有如下形式 :
url 888 comment
其中， URL 是與頁面相關的超鏈地址， 888 提供了能被超鏈使用的文本信息， comment 則包含了不被 Content Linking 組件解釋的注釋信息，它的作用如同程序中的注釋。 888 和 comment 參數是可選的。
下面我們來看看如何具體使用 Content Linking 組件 :
＜ html＞
＜ head＞
＜ meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜ title＞ 網絡電子讀物寶藏 ＜ /title＞
＜ /head＞
＜ body＞
＜ p＞ 網絡電子讀物導航
＜ %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
Dim I
For I=1 to count
%＞
＜ ul＞＜ li＞＜ a href="＜ %= Link.GetNthURL("nextlink.txt", I) %＞"＞＜ %= Link.GetNthDescription("nextlink.txt", I) %＞＜ /a＞
＜ % Next %＞
＜ /body＞
＜ /html＞
在以上代碼中，我們先用 GetListCount 方法確定在文件 nextlink.txt 中有多少條項目，然后利用循環(huán)語句，并使用 GetNthURL、 GetNthDescription 方法逐一將存儲在 nextlink.txt 文件中的內容讀出并顯示給客戶端瀏覽器。
下面列出了 Content Linking 組件所有可使用的方法 GetListCount(file) 統(tǒng)計內容鏈接列表文件中鏈接的項目數。
GetNextURL(file) 獲取內容鏈接列表文件中所列的下一頁的 URL。
GetPreviousDescription(file) 獲取內容鏈接列表文件中所列的上一頁的說明行。
GetListIndex(file) 獲取內容鏈接列表文件中當前頁的索引。
GetNthDescription(file,index) 獲取內容鏈接列表文件中所列的第 N 頁的說明。
GetPreviousUR(file) 獲取內容鏈接列表文件中所列的上一頁的 URL。
GetNextDescription(file) 獲取內容鏈接列表文件中所列的下一頁的說明。
GetNthURL(file,index) 獲取內容鏈接列表文件中所列的第 N 頁的說明。
在我們創(chuàng)建了網站的總導航頁面后，我們當然還希望在每一頁中添加一個“上一頁”、“下一頁”的導航超鏈，下面我們就來看看如何實現導航超鏈。
由于考慮到你的網站可能包含了上千或更多的頁面，所以我們不可能在每一個頁面中都編寫實現導航超鏈的 ASP 代碼。因此，我們必須利用前幾篇中所學到的服務器端包容 SSI，這樣就避免了大量的重復作業(yè)，請看下例 :
＜ !--#include file="nextprev.inc"--＞
只要將這端代碼放在每個頁面中即可。 nextprev.inc 文件的內容如下 :
＜ %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
current = link.GetListIndex("nextlink.txt")
If current ＞ 1 Then
%＞
＜ a href="＜ %= Link.GetPreviousURL("nextlink.txt") %＞"＞ 上一頁 ＜ /a＞
＜ %
End If
If current ＜ count Then
%＞
＜ a href="＜ %= Link.GetNextURL("nextlink.txt") %＞"＞ 下一頁 ＜ /a＞
＜ % End If %＞
今天的學習又到此結束了，在這里我要再次感謝所有關心我的文章的朋友們，你們的來信給了我很大的鼓舞，不過請大家不要再稱我為“老師”，其實我也和你們一樣是在不斷的學習和摸索中，有問題我們可以一起探討，我的文章中肯定還存在很多不足或漏洞，也希望大家發(fā)現后能及時向我提出。由于近來 ASP 已經在國內的網站中廣泛運用起來，所以應朋友們的要求，在國內 ASP 高手飛鳥的熱情幫助下，我決定寫一些 ASP 應用實例作為現在這篇文章的姊妹篇，這樣也就可以為大家提供一些真正實用的東西了，敬請關注。
