l6.txt

asp txt版教程

第 一 课 ： 创 建  ActiveX  财 务 组 件 

组 件 将 包 含 一 组 相 关 的 方 法 （ 函 数 ） ， 用 来 提 供 脚 本 语 言 所 不 具 有 的 功 能 。 由 于 
 VBScript  不 提 供 财 务 函 数 ， 所 以 您 必 须 通 过 自 己 的  Finance  服 务 器 组 件 来 提 供 
对  Visual Basic  财 务 函 数 的 使 用 能 力 。 该 服 务 器 组 件 能 提 供 所 有 的  Visual Ba 
sic  财 务 函 数 ， 包 括  DDB  函 数 （ 双 倍 余 额 递 减 法 ） 、 FV  函 数 （ 未 来 值 ） 、 IPmt 
  函 数 （ 支 付 利 息 ） 、 IRR  函 数 （ 内 部 回 报 率 ） 以 及 其 他 函 数 。 不 过 ， 在 本 教 程 中 
， 您 将 只 使 用  FV  函 数 ， 基 于 固 定 利 率 及 等 额 定 期 支 付 方 式 ， 返 回 一 笔 年 金 。   


　 

启 动  Visual Basic 

单 击 “ 开 始 ” 按 钮 ， 指 向 “ 程 序 ” ， 然 后 指 向 “ Microsoft Visual Basic 5.0 ” 
  

单 击 子 菜 单 中 的 “ Visual Basic 5.0 ” ， 运 行 编 程 环 境 。   

开 始 并 命 名 一 个 工 程 

在 “ New Project ” 对 话 框 中 ， 双 击 “ ActiveX DLL ” 。   

在 “ Project ” 菜 单 上 ， 单 击 “ Project1 Properties ” 。   

在 “ General ” 属 性 页 的 “ Project Name ”   框 中 ， 键 入 “ MS ” 。   

选 择 “ Unattended Execution ” 。   

注 意   选 择 该 选 项 表 明 这 个 工 程 运 行 时 不 需 要 用 户 交 互 ， 并 且 将 不 具 有 用 户 交 互 的 
基 础 。 

　 

单 击 “ OK ” 。   

现 在 工 程 被 命 名 为 “ MS ” 。 以 后 ， 您 将 从  ASP  脚 本 中 以  MS.Finance  的 形 式 引 用 
 Finance  服 务 器 组 件 。   

　 

将  Finance Class  添 加 到 工 程 中 

在  Visual Basic  中 ， 若 要 创 建 具 有 一 组 可 以 调 用 的 函 数 组 件 ， 必 须 定 义 一 个   类 
。 一 个 类 包 含 一 组 方 法 和 属 性 。 在 您 的 工 程 中 ， 类 就 是 您 说 明 财 务 方 法 的 地 方 。 


　 

按 下  F4  键 打 开 类 模 块 的 “ Properties ” 窗 口 ， 双 击 “ Name ” 属 性 并 键 入 “ Func 
tion ” ， 然 后 按  Enter 。   

双 击 “ Instancing ” 。   

单 击 箭 头 ， 然 后 选 择 “ 5 - MultiUse ” 。   

进 一 步 学 习  Visual Basic  财 务 函 数 

Visual Basic  的 帮 助 系 统 描 述 了 可 以 使 用 的 财 务 函 数 。 

　 

单 击 “ Help ” 。   

选 择 “ Microsoft Visual Basic Help Topics ” 。   

选 择 “ Index ” 选 项 卡 ， 然 后 键 入 “ financial functions ” 作 为 查 找 的 文 字 。   


双 击 “ financial functions ” 索 引 条 。   

单 击 “ FV Function ” ， 学 习 该 函 数 。   

学 习 完 财 务 函 数 后 ， 关 闭 “ Visual Basic Help ” 对 话 框 。   

将  CalcFV  函 数 添 加 到  Finance  类 

Finance  服 务 器 组 件 需 要 一 些 代 码 。 这 些 代 码 让 使 用 您 组 件 的 语 言 可 以 调 用  Vis 
ual Basic  内 建 的 未 来 值 函 数 。   

　 

将 下 列 行 复 制 并 粘 贴 到  Finance  类 的 代 码 窗 口 中 ： 

　 

Public Function CalcFV(rate, nper, pmt, Optional pv, Optional whendue) 
  

CalcFV = FV(rate, nper, pmt, pv, whendue) 

End Function 

添 加 组 件 的 入 口 点 

所 有 服 务 器 组 件 都 需 要 一 个 入 口 （ 起 始 ） 点 。 这 是 当 对 象 第 一 次 可 用 于 一 种 语 言 
时 ， 将 被 调 用 的 代 码 。 在  VBScript  中 ， 当 您 使 用  Server.CreateObject  时 ， 将 
创 建 对 象 的 一 个 实 例 。 当 执 行  Server.CreateObject  语 句 时 ， （ 由  Visual Bas 
ic  创 建 的 ） 服 务 器 组 件 上 的  Sub Main  过 程 将 被 调 用 。 

当 您 的 财 务 组 件 被 调 用 时 ， 它 不 需 要 任 何 特 殊 代 码 来 初 始 化 自 身 。 因 此 ， 需 要 提 
供 一 个 空 的 （ 没 有  Visual Basic  语 句 的 ） Sub Main  过 程 。   

　 

选 择 “ Project ” 菜 单 中 的 “ Add Module ” 。   

在 “ Module 1 ” 对 话 框 中 ， 双 击 模 块 图 标 。   

在  Module 1  代 码 窗 口 中 ， 键 入  Sub Main 。   

按 下  Enter  键 。   

将 自 动 进 入 如 下 代 码 ： 

　 

Sub Main() 

End Sub 

保 存  Finance  工 程 

当 保 存 所 作 的 工 作 时 ， 将 询 问 您 是 否 保 存  Visual Basic  工 程 的 全 部  3  部 分 。 其 
中 包 括 工 程 文 件 、 类 模 块 和 代 码 模 块 。 

　 

打 开 “ File ” 菜 单 。   

选 择 “ Save Project ” 。   

在 “ File name ” 文 本 框 中 ， 键 入 “ Finance ” 。 选 择  localhost Web  服 务 器 上 的 
如 下 路 径 ： DriveLetter:\Winnt\System32\Inetsrv\ ， 其 中  DriveLetter  是 适 当 
的 驱 动 器 号 。 （ 如 果 您 没 有 接 受 默 认 的 安 装 目 录 ， 请 用 您 的 安 装 目 录 替 换  \Winn 
t\System32 。 ）   

单 击 “ Save ” 按 钮 。   

如 果 在 此 以 前 ， 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 ， 将 出 现 一 条 消 息 ， 提 示 
文 件 已 经 存 在 。 请 用 您 的 文 件 覆 盖 旧 文 件 。 

　 

双 击 “ File name ” 文 本 框 中 的 值   “ Project1 ” ， 选 中 它 。   

为 工 程 文 件 键 入 名 称 “ Finance ”  (.vbp) 。   

单 击 “ Save ” 按 钮 保 存 工 程 。   

如 果 在 此 以 前 ， 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 ， 将 出 现 一 条 消 信 息 ， 提 
示 文 件 已 经 存 在 。 请 用 您 的 文 件 覆 盖 旧 文 件 。 

　 

成 为 “ 进 程 内  (In-Process) ” 组 件 

Visual Basic  允 许 您 创 建 进 程 内  ActiveX  组 件 （ 通 常 称 为  OLE  自 动 服 务 器 ） 和 
进 程 外  ActiveX  组 件 。 一 个 进 程 内  ActiveX  组 件 是 一 个 动 态 链 接 库 （ 带  .dll  
后 缀 ） ， 由 调 用 它 的 进 程 进 行 加 载 。 一 个 进 程 外  ActiveX  组 件 是 一 个 可 执 行 文 件 
（ 带  .exe  后 缀 ） ， 当 它 被 应 用 程 序 调 用 后 ， 以 独 立 进 程 的 状 态 运 行 。 由 于 进 程 
内 组 件 与 调 用 它 的 程 序 在 同 一 个 进 程 空 间 ， 所 以 性 能 比 进 程 外 组 件 要 佳 。 

使  Finance  服 务 器 组 件 成 为 进 程 内  ActiveX  组 件 

打 开 “ File ” 菜 单 。   

选 定 “ Make Finance.dll ” 。   

单 击 “ Options ” 按 钮 。   

选 定 “ Auto Increment ” 复 选 框 。   

单 击 “ OK ” 。   

键 入  DriveLetter:\localhost\Winnt\System32\Inetsrv\Finance ， 其 中  Drive 
Letter  是 适 当 的 驱 动 器 号 。 （ 如 果 您 没 有 接 受 默 认 的 安 装 目 录 ， 请 用 您 的 安 装 目 
录 替 换  \Winnt\System32 。 ） 

如 果 在 此 以 前 ， 另 一 个 用 户 已 经 学 完 了 教 程 的 这 一 部 分 ， 将 出 现 一 条 消 信 息 ， 提 
示 文 件 已 经 存 在 。 请 用 您 的 文 件 覆 盖 旧 文 件 。   

退 出  Visual Basic 。   

注 册  Finance  服 务 器 组 件 

所 有 服 务 器 组 件 都 必 须 注 册 。 Windows NT  和  Windows 95  用 系 统 注 册 表 来 追 踪 哪 
个 服 务 器 组 件 是 可 用 的 。 在 您 的 计 算 机 上 将  Finance  服 务 器 组 件 注 册 后 ， 就 可 以 
在  VBScript  和 所 有 兼 容  OLE  的 语 言 中 调 用 它 了 。 

打 开 一 个 命 令 提 示 符 窗 口 。   

在 命 令 提 示 符 后 键 入  cd Drive Letter:\localhost\Winnt\System32\Inetsrv ， 
其 中  DriveLetter  是 适 当 的 驱 动 器 号 。 （ 如 果 您 没 有 接 受 默 认 的 安 装 目 录 ， 请 用 
您 的 安 装 目 录 替 换  \Winnt\System32 。 ）   

按 下  Enter  键 。   

键 入  regsvr32 Finance.dll 。   

按 下  Enter  键 。   

当 出 现 一 个 对 话 框 显 示 “ DllRegisterServer in finance.dll succeeded ” 时 ， 
请 单 击 “ OK ” 按 钮 。   

关 闭 命 令 提 示 符 窗 口 。