第 三 課 ： 使 用  Database Access  （ 數 據 庫 訪 問 ） 組 件   

ASP  的  Database Access  組 件 使 用  ActiveX Data Objects (ADO)  提 供 一 種 輕 而 
易 舉 的 方 法 ， 可 以 訪 問 存 儲 在 數 據 庫 或 其 他 表 格 式 數 據 結 構 （ 如 電 子 表 格 ） 中 的 
信 息 ， 只 要 它 們 遵 循  Open Database Connectivity (ODBC)  標 準 即 可 。 在 本 課 中 
， 您 將 連 接 到 一 個  Microsoft? Access  客 戶 數 據 庫 ， 并 且 顯 示 目 錄 列 表 。 您 將 學 
習 如 何 使 用  SQL SELECT  語 句 來 檢 索 數 據 ， 并 且 創 建 一 個  HTML  表 格 來 顯 示 結 果 
。 

　 

---------------------------------------------------------------------- 
---------- 

　 

　 

　 　 　  

　 

　 　 　  

　 

　 　 　  

　 

　 

---------------------------------------------------------------------- 
---------- 

識 別 數 據 庫 

在 通 過  Database Access  組 件 使 用 一 個 數 據 庫 之 前 ， 必 須 在 “ 控 制 面 板 ” 的  OD 
BC  程 序 中 識 別 這 個 數 據 庫 。 在 本 例 中 ， 您 將 使 用 本 教 程 提 供 的 一 個  Microsoft? 
 Access  數 據 庫 。 

在 運 行  Web  服 務 器  (localhost)  的 計 算 機 上 ， 打 開 “ 控 制 面 板 ” 。   

　 

雙 擊 “ ODBC ” 圖 標 ， 然 后 單 擊 “ 系 統  DSN ” 選 項 卡 。   

DSN  將 告 訴 數 據 庫 驅 動 程 序 （ 用 來 配 置 數 據 庫 并 與 其 通 訊 的 程 序 ） 數 據 庫 文 件 所 
在 的 位 置 。 您 可 以 創 建  3  種 類 型 的  DSN:  用 戶  DSN (User DSN) ， 只 能 對 您 起 作 
用 ；   系 統  DSN (System DSN) ， 可 以 對 計 算 機 的 所 有 用 戶 起 作 用 ；   文 件  DSN (F 
ile DSN) ， 將  DSN  信 息 保 存 為 文 件 ， 并 且 允 許 所 有 用 戶 使 用 相 同 的 數 據 庫 驅 動 程 
序 。 本 教 程 使 用 的  DSN  必 須 是 系 統  DSN (System DSN)  。 

單 擊 “ 添 加 ” ， 選 擇 “ Microsoft Access  驅 動 程 序 ” ， 然 后 單 擊 “ 完 成 ” 。   

　 

在 “ 數 據 源 名 稱 ” 框 中 ， 鍵 入  ASPTutorial ， 然 后 單 擊 “ 選 擇 ” 。 選 擇  BTCustm 
r.mdb  文 件 （ 默 認 情 況 下 位 于  WINNT\Help\IIS\Htm\Tutorial  目 錄 中 ） ， 然 后 單 
擊 “ 確 定 ” 。   

　 

單 擊 “ 確 定 ” 關 閉 對 話 框 。   

創 建 組 件 實 例 

用 文 本 編 輯 器 打 開  localhost Web  服 務 器 上  Tutorial  目 錄  ( C:\WINNT\Help\ 
iis\htm\tutorial)  中 的  Database.asp  文 件 。 

　 

查 找 文 字 “ Define Scripting Language ” ， 將 下 列 腳 本 插 入 找 到 的 文 字 行 之 后 ： 
  

〈 %@ LANGUAGE = "VBScript" % 〉 

必 須 保 證 這 個 標 記 是 所 有  .asp  文 件 的 第 一 個 腳 本 行 。 

　 

查 找 文 字 “ Tutorial Lesson - ADO Connection ” ， 腳 本 將 插 入 到 找 到 的 文 字 行 
之 后 。   

　 

必 須 先 創 建 一 個 對 象 的 實 例 ， 然 后 才 能 使 用 它 。 請 復 制 并 粘 貼 以 下 腳 本 命 令 ：   


〈 %  

Set objConnection = Server.CreateObject("ADODB.Connection")  

如 果 在 此 以 前 ， 另 一 個 用 戶 已 經 學 完 了 教 程 的 這 一 部 分 ， 那 么 這 些 腳 本 命 令 就 已 
經 在 “ Tutorial Lesson ” 注 釋 行 以 下 了 。 請 用 復 制 的 腳 本 覆 蓋 已 有 的 腳 本 ， 或 者 
將 未 使 用 過 的  Database.asp  從  Template  子 目 錄  (C:\WINNT\Help\iis\htm\tu 
torial/template)  復 制 到  Tutorial  目 錄 中 。 

　 

對 于  Database Access  組 件 來 說 ， 您 必 須 指 定  ODBC  數 據 源 （ 要 從 其 中 檢 索 數 據 
的 數 據 庫 ） ， 方 法 是 打 開 一 個 到 數 據 庫 的 連 接 。 復 制 并 粘 貼 以 下 腳 本 命 令 ：   

objConnection.Open "ASPTutorial"  

使 用  Database Access  組 件 的  Execute  方 法 ， 可 以 向 數 據 庫 發 送 一 個 將 結 構 化 
查 詢 語 言  (Structured Query Language, SQL)  的  SELECT  命 令 ， 并 且 將 返 回 的 
記 錄 保 存 到 結 果 集 合  (rsCustomersList)  中 。 請 將 下 列 腳 本 命 令 復 制 并 粘 貼 到   
objConnection.Open  語 句 之 后 ：   

SQLQuery = "SELECT * FROM Customers"  

Set rsCustomersList = objConnection.Execute(SQLQuery) 

% 〉 

如 果 將  SQL  查 詢 字 符 串 直 接 傳 遞 給  Execute  方 法 ， 而 不 是 先 給 變 量  SQLQuery  
賦 值 ， 就 可 以 將 這 兩 行 合 并 。 當  SQL SELECT  行 比 較 長 時 ， 為 使 腳 本 易 讀 一 些 ， 
可 以 將 字 符 串 賦 值 給 一 個 變 量 （ 如  SQLQuery ） ， 然 后 將 變 量 名 傳 遞 給  Execute  
方 法 。   

　 

顯 示 返 回 的 結 果 集 合 

您 可 以 將 結 果 集 合 視 為 一 個 表 格 ， 這 個 表 格 的 結 構 由  SQL SELECT  語 句 中 的 字 段 
決 定 。 顯 示 檢 索 返 回 的 行 ， 就 象 在 結 果 集 合 中 按 行 數 執 行 循 環 一 樣 簡 單 。 在 本 示 
例 中 ， 返 回 的 數 據 顯 示 在  HTML  表 格 行 中 。   

在  Database.asp  文 件 中 ， 查 找 文 字 “ Tutorial Lesson - Display ADO Data ” 
， 將 以 下 腳 本 復 制 并 粘 貼 到 找 到 的 行 之 后 ：   

〈 % Do Until rsCustomersList.EOF% 〉 

〈 tr 〉 

〈 td bgcolor="f7efde" align=center 〉 

〈 %= rsCustomersList("ContactFirstName")% 〉   

〈 %= rsCustomersList("ContactLastName") % 〉 

〈 /td 〉 

〈 td bgcolor="f7efde" align=center 〉   

〈 a href="mailto: 〈 %= rsCustomersList("ContactLastName")% 〉 " 〉 

〈 %= rsCustomersList("ContactLastName")% 〉   〈 /a 〉 

〈 /td 〉 

〈 td bgcolor="f7efde" align=center 〉 

〈 %= rsCustomersList("City")% 〉 

〈 /td 〉 

〈 td bgcolor="f7efde" align=center 〉 

〈 %= rsCustomersList("StateOrProvince")% 〉 

〈 /td 〉 

〈 /tr 〉   

如 果 在 此 以 前 ， 另 一 個 用 戶 已 經 學 完 了 教 程 的 這 一 部 分 ， 那 么 這 些 腳 本 命 令 就 已 
經 存 在 了 。 用 復 制 的 腳 本 覆 蓋 已 有 的 腳 本 ， 或 者 將 未 使 用 過 的  Bayshore.asp  從 
 Template  目 錄 復 制 到  Tutorial  目 錄 中 。 

當 條 件 為 “ 真 ” 時 ， VBScriptDo...Loop  語 句 重 復 執 行 一 段 語 句 。 被 重 復 執 行 的 
語 句 可 以 是 腳 本 命 令 或  HTML  文 本 和 標 記 。 因 此 ， 在 循 環 的 每 次 重 復 中 ， 您 都 可 
以 用  HTML  畫 出 表 格 行 ， 并 且 用 腳 本 命 令 插 入 返 回 的 數 據 。 

要 完 成 循 環 ， 還 要 使 用  MoveNext  方 法 來 移 動 行 指 針 到 下 一 行 。 因 為 這 一 語 句 仍 
然 在  Do...Loop  語 句 中 ， 所 以 它 一 直 重 復 ， 直 到 到 達 文 件 結 尾 才 停 止 。 請 復 制 以 
下 腳 本 ， 并 將 其 粘 貼 到 “ Tutorial Lesson - Retrieve Next Row ” 行 之 后 ：   

〈 %  

rsCustomersList.MoveNext  

Loop  

% 〉 

以 純 文 本 格 式 保 存  Database.asp  文 件 ， 并 且 退 出 文 本 編 輯 器 。 注 意 文 件 后 綴  . 
asp  不 要 被 文 本 編 輯 器 替 換 。   

　 

若 要 驗 證 您 創 建 的  ASP  頁 是 否 正 常 運 行 ， 請 將 您 的 瀏 覽 器 導 向  http://localho 
st/IISHelp/IIS/Help/Htm/Tutorial/Database.asp 。 （ 此 后 若 要 返 回 本 教 程 ， 只 
要 在 瀏 覽 器 中 單 擊 “ 上 一 頁 ” 或 “ Back ” 按 鈕 即 可 。 ）   

自 學 參 考   

如 果 您 正 使 用  Windows NT ， 要 參 閱 更 完 整 的  Database Access  組 件 示 例 ， 可 以 
訪 問  Exploration Air  示 范 節 點 。 單 擊  Behind the Scenes  圖 像 ， 可 以 學 習 用 
來 創 建 這 個  Web  節 點 的 腳 本 的 更 多 知 識 。 在  Bayshore Travel Web  頁 上 也 有 指 
向  Exploration Air  示 范 節 點 的 鏈 接 。 

注 意   如 果 您 還 沒 有 訪 問  Exploration Air  示 范 節 點 ， 上 面 的 鏈 接 將 把 您 帶 到  E 
xploration Air  主 頁 。 此 后 若 要 返 回 本 教 程 ， 只 要 在 瀏 覽 器 中 單 擊 “ 上 一 頁 ” 或 
“ Back ” 按 鈕 即 可 。 

現 在 ， 您 已 經 用 過 了  ActiveX  組 件 ， 讓 我 們 來 學 習   模 塊  3 ： 編 寫 自 己 的 組 件 。 
  

　 

---------------------------------------------------------------------- 
---------- 

模 塊  3 ： 編 寫 自 己 的 組 件 

請 選 擇 本 課 的 腳 本 語 言 。 

在 模 塊  2  中 ， 您 已 經 熟 悉 了  ASP  提 供 的 組 件 ， 現 在 該 創 建 自 己 的 組 件 來 滿 足 自 
己 的 特 殊 需 要 了 。 

假 設 您 需 要 創 建 一 個  ASP  程 序 ， 以 便 通 過  Web  節 點 提 供 特 定 的 財 務 功 能 。 ASP  
沒 有 直 接 提 供 這 樣 的 功 能 ， 不 過 您 可 以 通 過 創 建 自 己 的  Java  或  ActiveX  組 件 來 
解 決 問 題 。 您 將 在 本 模 塊 中 學 會 這 些 。 

如 果 要 學 習 如 何 創 建 并 使 用 組 件 ， 首 先 使 用 下 面 的 表 格 進 行 選 擇 : 

　 

---------------------------------------------------------------------- 
---------- 

選 擇 本 課 要 創 建 的 組 件 類 型 ： 

Visual Basic 5.0 ActiveX  組 件 

Visual J++ 1.1 Java?  組 件 

　 

---------------------------------------------------------------------- 
---------- 

要 點   

若 要 保 存 并 查 看 您 在 本 模 塊 中 的 工 作 結 果 ， 需 要 ：   

對  localhost Web  服 務 器 上 的  /iishelp/iis/htm/tutorial  虛 擬 目 錄 具 有 “ 寫 
 (Write) ” 和 “ 改 編  Web  服 務 器  (Script Web server) ” 權 限 。 詳 細 信 息 ， 請 參 
閱   設 置  Web  服 務 器 權 限 。   

您 的  Windows NT  帳 號 ， 必 須 在  DriveLetter:\Winnt\System32\Inetsrv\  目 錄 
及 其 子 目 錄 上 具 有  Windows NT File System (NTFS)  的 讀 、 寫 和 運 行 程 序 權 限 （ 
此 處 的  DriveLetter  代 表  localhost Web  服 務 器 的 適 當 的 驅 動 器 號 ， 如 果 您 沒 
有 安 裝 到 默 認 目 錄 下 ， 請 用 您 的 安 裝 目 錄 代 替  \Winnt\System32 ） 。   

要 完 成 本 模 塊 ， 必 須 在  localhost Web  服 務 器 上 安 裝 ：   

Microsoft? Visual Basic 5.0  專 業 版 的  32  位 版 本 或  Visual Basic 5.0  企 業 
版 開 發 系 統 。   

如 果 已 經 禁 止 了  Web  瀏 覽 器 運 行  Java  程 序 功 能 ， 請 在 開 始 教 程 以 前 啟 用 該 功 能