|
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 程 序 功 能 ， 请 在 开 始 教 程 以 前 启 用 该 功 能 
|