第七课：从脚本调用 Finance 组件

要 测 试 组 件 ， 可 以 从 ASP 、 Visual Basic 、 Microsoft Office 产 品 的 Visual Basic for Applications 或 任 何 OLE 自 动 控 件 来 调 用 组 件 。 要 使 用 VBScript 从 ASP 调 用 Finance 组 件 ， 可 以 使 用 一 个 HTML 表 格 作 为 输 入 来 计 算 某 人 存 款 计 划 的 未 来 值 。

所 需 的 HTML 表 格

我 们 将 使 用 一 个 HTML 表 格 后 ， 就 能 用 Request("APR") 的 方 式 引 用 。 HTML 标 记 〈 INPUT TYPE=TEXT NAME=APR 〉 提 供 了 输 入 数 值 所 需 的 字 段 。 要 将 表 格 标 记 的 ACTION 属 性 指 定 的 网 页 。 ?Submit ?按 钮 的 HTML 标 记 ( 〈 INP UT TYPE=SUBMIT VALUE=" Calculate Future Value " 〉 ) 使 用 ACTION 的 值 ， 从 HTML 表 格 标 记 ( 〈 FORM METHOD=POST ACTION="Finance.asp" 〉 ) 来 调 用 ASP 页 Finance.asp 。 我 们 已 经 为 您 创 建 好 了 表 格 。 用 文 本 编 辑 器 打 开 localhost Web 服 务 器 上 Tuto rial 目 录 (C:\WINNT\Help\iis\htm\tutorial) 中 的 FVform.asp 文 件 即 可 。

脚 本

我 们 使 用 VBScript 来 调 用 您 的 Finance 服 务 器 组 件 。 脚 本 首 先 确 认 来 自 HTML 表 格 中 任 何 没 有 输 入 的 变 量 赋 默 认 值 。 Server.CreateObject 创 建 一 个 Finance 组 件 的 实 例 （ 也 就 是 使 组 件 可 用 ） ， 名 为 MS.Finance 。 为 组 件 创 建 实 例 以 后 ， 就 可 以 使 用 组 件 的 方 法 和 属 性 了 。 在 脚 本 中 紧 随 Server.CreateObject 之 后 ， 使 用 了 CalcFV 方 法 来 计 算 存 款 计 划 的 未 来 值 。 计 算 结 果 将 出 现 在 请 求 这 个 信 息 的 浏 览 器 中 。

要 查 看 脚 本 ， 请 用 文 本 编 辑 器 打 开 Tutorial 目 录 (C:\WINNT\Help\iis\htm\tu torial) 中 的 Finance.asp 文 件 。

用 浏 览 器 进 行 测 试 要 运 行 Finance.asp ASP 页 ， 请 打 开 FVform.asp 文 件 ， 该 文 件 将 绘 制 一 个 表 格 并 调 用 Finance.asp 脚 本 来 计 算 表 格 中 描 述 的 存 款 计 划 的 未 来 值 。

要 打 开 FVform.htm ， 请 将 浏 览 器 导 向 http://localhost/iishelp/iis/htm/tut orial/FVform.asp 。

在 ?Savings Plan ?表 格 中 输 入 数 值 。 单 击 ?Calculate Future Value ?按 钮 。 存 款 计 划 的 结 果 将 会 出 现 。

经 过 不 长 时 间 的 学 习 ， 您 已 经 创 建 了 一 个 有 用 的 ActiveX 服 务 器 组 件 。 如 果 需 要 使 用 其 他 财 务 函 数 ， 只 要 通 过 Visual Basic 将 其 他 方 法 添 加 到 Finance 服 务 器 组 件 中 ， 就 可 以 执 行 其 他 财 务 函 数 了 。 我 们 鼓 励 您 进 行 尝 试 并 提 出 创 造 性 的 方

法 来 利 用 自 己 的 ActiveX 组 件 。 您 很 快 将 会 发 现 ， 用 组 件 来 开 发 Web 应 用 程 序 几 乎 没 有 任 何 限 制 。

----------