第 三 课 ： 使 用 Ad Rotator （ 广 告 轮 换 器 ）
                       组 件

Internet Web 节 点 通 常 提 供 广 告 空 间 。 要 让 节 点 看 起 来 有 趣 ， 并 且 要 在 有 限 的 空 间 内 显 示 好 几 个 客 户 的 广 告 ， 您 也 许 希 望 循 环 显 示 不 同 的 广 告 。 Ad Rotator 组 件 简 化 了 按 顺 序 显 示 每 幅 广 告 的 任 务 ， 并 且 让 添 加 新 广 告 的 工 作 变 得 更 轻 松 。 另 外 ， 您 能 够 轻 松 地 添 加 或 更 改 广 告 的 超 级 链 接 ， 这 样 用 户 就 可 以 通 过 单 击 广 告 来 访 问 广 告 客 户 的 Web 节 点 。 在 本 课 中 ， 您 将 创 建 一 个 脚 本 ， 通 过 调 用 Ad Rotator 组 件 来 轮 换 4 个 随 机 选 择 的 广 告 。 单 击 下 面 的 ?演 示 (Show Me) ?按 钮 ， 可 以 看 到 一 个 示 例 广 告 ， 然 后 再 次 单 击 该 按 钮 ， 轮 换 到 另 一 个 广 告 。

----------

创 建 广 告 文 件

我 们 已 经 为 一 项 虚 构 的 业 务 创 建 了 一 个 Web 页 ， 名 叫 ?Bayshore Travel ?， 您 将 在 该 页 中 插 入 广 告 轮 换 脚 本 。 您 可 以 创 建 一 个 简 单 的 文 本 文 件 来 告 诉 Ad Rota tor 组 件 要 插 入 哪 些 广 告 以 及 每 个 广 告 显 示 时 间 的 百 分 比 。 我 们 已 经 为 您 创 建 了 一 个 包 含 广 告 的 文 件 。 要 查 看 它 ， 请 用 文 本 编 辑 器 打 开 localhost Web 服 务 器 上 Tutorial 目 录 (C:\WINNT\Help\iis\htm\tutorial) 中 的 Adrot.txt 文 件 。 文 件 第 一 行 设 置 的 脚 本 文 件 （ 此 处 是 Redirect.asp ） 将 在 用 户 单 击 广 告 时 被 调 用 。 通 过 修 改 Redirect.asp 文 件 ， 可 以 在 链 接 到 广 告 客 户 的 Web 节 点 之 前 执 行 指 定 的 操 作 ， 比 如 追 踪 广 告 受 欢 迎 的 程 度 。 后 面 3 行 规 定 了 广 告 图 像 的 宽 、 高 和 边 框 。

redirect /iishelp/iis/htm/tutorial/redirect.asp

> width 180

height 180

border 1

接 下 来 ， 文 件 包 含 了 广 告 数 据 。 对 每 一 个 广 告 ， 都 包 括 使 用 的 图 像 、 用 户 单 击 时 转 向 的 URL （ 此 处 是 调 用 Redirect.asp 之 后 ） 、 图 像 的 说 明 文 字 以 及 广 告 显 示 时 间 的 百 分 比 ：

/iishelp/iis/htm/tutorial/nyc.jpg

http://www.microsoft.com

Big Deals in the Big Apple

35

通 过 在 分 离 的 文 件 中 维 护 广 告 信 息 ， 您 单 位 中 的 不 同 小 组 就 能 够 更 新 Adrot.txt 文 件 ， 而 不 用 您 来 更 新 ASP 页 。 不 同 的 小 组 能 够 维 护 节 点 中 不 同 部 分 的 广 告 文 件 。

创 建 脚 本

用 文 本 编 辑 器 打 开 localhost Web 服 务 器 上 Tutorial 目 录 (C:\WINNT\Help\i is\htm\tutorial) 中 的 Bayshore.asp 文 件 。

在 Bayshore.asp 文 件 的 开 头 ， 在 任 何 HTML 标 记 或 ASP 语 句 之 前 ， 粘 贴 以 下 脚 本 ：

〈 %@ LANGUAGE = "VBScript" % 〉

此 脚 本 是 一 个 ASP 指 令 语 句 ， 告 诉 Web 服 务 器 您 的 脚 本 是 用 VBScript 编 写 的 。 这 个 指 令 语 句 必 须 位 于 ASP 文 件 的 第 一 行 。 查 找 文 字 ?Tutorial Lesson: Ad Rotator. ?， 您 的 脚 本 将 插 入 到 这 一 行 之 后 。

下 列 脚 本 命 令 创 建 一 个 Ad Rotator 组 件 实 例 ， 然 后 将 其 赋 值 给 变 量 Ad 。 请 将 下 列 脚 本 命 令 复 制 并 粘 贴 到 文 本 编 辑 器 中 （ 在 上 一 步 找 到 的 文 字 行 之 下 ） ：

〈 % Set Ad = Server.CreateObject("MSWC.Adrotator") % 〉

将 一 个 组 件 实 例 赋 值 给 一 个 变 量 ， 这 样 就 能 在 随 后 的 脚 本 中 引 用 这 个 组 件 。

如 果 在 此 以 前 ， 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 ， 那 么 此 脚 本 命 令 就 已 经 存 在 了 。 请 用 复 制 的 脚 本 覆 盖 已 有 的 脚 本 ， 或 者 将 未 使 用 过 的 Bayshore.asp 从 Template 目 录 (C:\WINNT\Help\iis\htm\tutorial\template) 复 制 到 Tutorial目 录 中 。

若 要 显 示 新 广 告 ， 可 以 使 用 Ad Rotator 组 件 的 GetAdvertisement 方 法 。 将 以 下 命 令 添 加 到 您 的 脚 本 中 ：

〈 %= Ad.GetAdvertisement("adrot2.txt")% 〉

GetAdvertisement 方 法 需 要 一 个 参 数 ， 就 是 包 含 广 告 信 息 的 文 件 的 名 称 。 该 名 称 可 以 与 Adrot.txt 不 同 ， 此 处 是 Adrot2.txt 。 以 该 参 数 为 基 础 ， 此 方 法 返 回 一 个 全 格 式 的 HTML 〈 IMG 〉 标 记 ， 其 中 包 含 适 当 的 广 告 。 您 赋 予 Ad Rotator 组 件 实 例 的 变 量 名 Ad 在 前 ， 然 后 是 GetAdvertisement 方 法 ， 最 后 是 文 件 路 径 Adr ot2.txt 。 等 号 将 方 法 返 回 的 值 （ 真 正 的 广 告 ） 发 送 给 用 户 的 浏 览 器 。

以 纯 文 本 格 式 保 存 文 件 Bayshore.asp ， 然 后 退 出 文 本 编 辑 器 。 注 意 文 件 后 缀 .a sp 不 要 被 文 本 编 辑 器 替 换 。