ASP实现多语言支持

纲 要 :
让 我 们 设 想 你 使 用 Active Server Pages 设 计 了 一 个 成 功 的 站 点 ， 而 你 的 客 户 纷 纷 要 求 将 此 站 点 国 际 化 以 提 供 多 种 语 言 版 本 。这 时 候 你 该 怎 么 办？请 看 本 文。

正 文 :
　　  一 、 介 绍

　　  让 我 们 设 想 你 使 用 Active Server Pages 设 计 了 一 个 成 功 的 站 点 ， 而 你 的 客 户 纷 纷 要 求 将 此 站 点 国 际 化 以 提 供 多 种 语 言 版 本 。 该 问 题 的 关 键 在 于 ， 你 必 须 使 用 某 种 方 法 实 现 快 速 的 页 面 内 容 转 换 。 可 以 将 此 问 题 看 成 是 从 数 据 库 提 取 适 当 数 据 并 用 ASP 动 态 显 示 。 在 本 文 中 我 们 将 讨 论 如 何 使 用 Active Server Pages 的 字 典 对 象 以 及 一 个 后 台 数 据 库 实 现 国 际 化 支 持 。

　　  具 体 实 现 过 程 分 以 下 三 个 步 骤 ：
　　  ◇ 设 计 数 据 库 并 存 储 文 本 和 文 件 路 径 。
　　  ◇ 从 数 据 库 读 取 数 据 到 字 典 对 象 。
　　  ◇ 在 ASP 页 面 引 用 文 本 和 文 件 路 径 。

　　  二 、 步 骤 1 - 设 计 数 据 库 并 存 储 文 本 和 文 件 路 径

　　  我 们 需 要 在 数 据 库 设 计 上 花 些 时 间 。 使 用 此 数 据 库 ， 我 们 希 望 能 够 把 所 有 要 用 到 的 文 本 和 图 片 适 当 编 目 ， 并 且 这 些 文 本 和 图 片 不 能 重 复 ； 如 果 要 在 应 用 中 把“ 是 ” 改 成 “ 确 定 ” ， 希 望 只 在 一 个 地 方 作 改 动 ； Web 维 护 者 在 更 改 内 容 时 应 能 够 快 速 找 到 目 标 文 本 。 基 于 以 上 要 求 ， 让 我 们 开 始 设 计 数 据 库 。

　　  首 先 创 建 两 个 表 来 放 置 文 本 。 其 中 一 个 表 为 CommonStrings ， 用 于 存 放 在 整 个 站 点 重 复 使 用 的 单 词 和 短 语 。 另 外 一 个 表 为 SpecializedStrings ， 用 于 存 放 只 在 特 定 页 面 使 用 的 单 词 和 短 语 。 把 公 用 和 限 于 特 定 页 面 使 用 的 文 本 分 别 存 放 有 利 于 简 化 站 点 维 护 。

　　  两 个 表 都 使 用 StringKey 字 段 来 标 记 纪 录 ， 使 用 StringLanguage 来 说 明 所 用 语 言 ， 联 合 StringKey 和 StringLanguage 创 建 一 个 主 键 。 字 段 StringHolder 用 来 保 存 单 词 、 短 语 或 语 句 。 这 个 字 段 必 须 创 建 唯 一 索 引 以 保 证 不 会 输 入 重 复 的 单 词 、 短 语 或 语 句 。

　　  对 于 SpecializedStrings 表 ， 还 需 要 一 个 额 外 的 字 段 ASPPage 来 标 记 文 本 所 在 的 ASP 页 面 。

　　  对 于 图 片 文 件 ， 我 们 可 以 使 用 相 同 的 步 骤 创 建 表 来 存 储 指 向 这 些 文 件 的 路 径 。 只 需 要 在 CommonImage 表 和 SpecializedImage 表 中 用 FileName 字 段 替 换 对 应 的 StringHolder 就 可 以 了 。

　　  在 新 创 建 的 表 中 装 入 数 据 时 ， StringKey 的 内 容 应 该 给 站 点 维 护 者 尽 可 能 多 的 提 示 以 表 明 页 面 上 将 显 示 的 文 本 。 例 如 ， 对 于 一 个 在 线 销 售 站 点 来 说 有 关 拒 绝 承 诺 的 声 明 语 句 使 用 OrderDisclaimer 是 一 个 不 错 的 选 择 ， 站 点 维 护 者 由 此 可 以 非 常 清 楚 地 了 解 使 用 该 记 录 将 在 Web 页 面 上 显 示 的 内 容 。

　　  把 那 些 公 用 的 单 词 和 短 语 放 在 CommonStrings 表 。 这 样 ， 维 护 者 就 知 道 如 果 他 们 修 改 CommonStrings 表 中 的 一 个 记 录 ， 将 影 响 到 站 点 内 的 许 多 页 面 。

　　  对 于 大 的 站 点 ， 可 以 设 计 一 个 易 于 使 用 的 界 面 来 输 入 和 修 改 数 据 库 中 的 文 本 。 准 备 这 些 资 料 是 一 项 冗 长 乏 味 的 任 务 ， 越 简 单 就 越 少 出 错 。

　　  三 、 步 骤 2 - 从 数 据 库 读 取 数 据 到 字 典 对 象

　　  字 典 对 象 （ Dictionary Object ） 是 一 个 多 用 途 的 服 务 器 端 对 象 ， 它 相 当 于 二 维 数 组 ， 保 存 了 键 以 及 与 键 相 关 联 的 数 据 。 提 取 数 据 的 唯 一 途 径 在 于 取 得 键 值 或 索 引 。 可 以 把 字 典 对 象 的 作 用 范 围 配 置 为 整 个 应 用 范 围 或 对 话 范 围 ， 而 不 必 担 心 损 失 性 能 。 赋 予 应 用 层 作 用 范 围 意 味 着 对 象 只 被 实 例 化 一 次 ， 且 所 有 会 话 均 使 用 同 一 个 字 典 对 象 。 以 下 代 码 创 建 两 个 字 典 对 象 实 例 ， 分 别 和 两 个 文 本 表 关 联 。 记 住 ， 我 们 希 望 对 象 只 被 初 始 化 一 次 ， 所 以 把 这 些 代 码 放 在 Application_OnStart 事 件 中 ：

< script RUNAT=SERVER Language=VBscript>
Sub Application_OnStart()
Dim DictCommonStrings
Dim DictSpecializedStrings

Dim Conn
Dim rsCommonStrings
Dim rsSpecializedStrings

Set DictCommonStrings = Server.CreateObject("scripting.Dictionary")
Set DictSpecializedStrings = Server.CreateObject("scripting.Dictionary")

　　  接 下 来 的 任 务 是 把 数 据 装 入 字 典 对 象 。 我 们 将 遍 历 表 ， 连 接 StringKey 和 StringLanguage ， 并 把 连 接 后 的 值 作 为 字 典 的 键 值 ， 把 StringHolder 放 在 对 应 的 字 典 数 据 区 。 由 此 我 们 获 得 了 使 用 数 据 库 存 储 数 据 的 弹 性 ， 并 避 免 了 持 久 的 数 据 库 连 接 而 导 致 的 性 能 影 响 。 事 实 上 ， 数 据 库 只 在 应 用 启 动 时 被 访 问 一 次 ， 其 后 ASP 页 面 将 从 速 度 更 快 的 字 典 对 象 读 取 所 需 数 据 。

'建立数据库连接
Set Conn = Server. CreateObject("ADODB.Connection")<BR>
Conn.ConnectionString = "Some Connection String"<BR>
Conn.open

'打开 CommonStrings 表, 遍历所有记录并装入数据
Set rsCommonStrings = Conn.Execute("Select StringKey, StringHolder from CommonStrings")
Do until rsCommonStrings.EOF
DictCommonStrings.Add rsCommonStrings("StringLanguage") & rsCommonStrings("StringKey")  _
,rsCommonStrings("StringHolder")
rsCommonStrings.MoveNext
Loop

'打开SpecializedStrings表, 遍历所有记录并装入数据
Set rsSpecializedStrings = Conn.Execute("Select StringKey, StringHolder from SpecializedStrings")
Do until rsSpecializedStrings.EOF
DictSpecializedStrings.Add rsSpecializedStrings ("StringLanguage") &  _
rsSpecializedStrings ("StringKey")  , rsSpecializedStrings ("StringHolder")
rsSpecializedStrings.MoveNext
Loop

rsSpecializedStrings.Close
rsCommonStrings.Close
Conn.Close
Set rsSpecializedStrings = Nothing
Set rsCommonStrings = Nothing
Set Conn = Nothing
End Sub

< /script>

　　  四 、 步 骤 3-在 ASP 页 面 引 用 文 本 和 文 件 路 径

　　  接 下 来 的 工 作 是 在 ASP 页 面 引 用 已 经 实 例 化 的 字 典 对 象 中 的 文 本 （ 以 及 文 件 路 径 ） 。 首 先 我 们 需 要 知 道 当 前 用 户 所 使 用 的 语 言 ， 其 中 一 个 办 法 是 从 Request.Server.Variables 取 得 该 值 。 请 把 下 列 代 码 放 入 Session_Onstart 事 件 处 理 过 程 ：


< script Language=VBscript>
Sub Session_OnStart()
Session("Lang") = Request.Server.Variables("HTTP_ACCEPT_LANGUAGE")
End Sub
< /script>

  　  通 过 键 值 可 以 从 字 典 对 象 取 得 对 应 的 文 本 （ 或 图 片 文 件 路 径 ） ， 键 值 由 语 言 前 缀 加 名 字 组 成 。 以 下 为 示 例 代 码 ：
< HTML>
< P Align=center>
< h1>< %= DictSpecializedStrings.Item(Session("Lang")  & "Confirmation")%>< /h1>
< /P><BR>
< P Align=center>
< h5>< %= DictSpecializedStrings.Item(Session("Lang")  & "OrderDisclaimer")%>< /h5>
< /P>
< /HTML>

　　  对 于 中 文 浏 览 器 ， 该 页 面 的 提 示 类 如 ：
　　  感 谢 您 的 购 买 。 请 进 入 下 一 页 付 款 。
　　  而 对 于 一 个 缺 省 语 言 为 英 文 的 的 浏 览 器 ， 则 提 示 为 ：
Thank you for your order. Continue to the Next Page to make your payment.

　　  根 据 我 的 经 验 ， 从 字 典 对 象 引 用 文 本 （ 以 及 图 片 路 径 ） 和 直 接 在 ASP 代 码 中 输 入 数 据 相 比 ， 没 有 性 能 上 的 不 利 影 响 。 这 是 由 于 文 本 （ 和 图 片 路 径 ） 字 典 被 放 在 内 存 中 ， 因 而 可 以 快 速 地 提 取 。

　　  五 、 讨 论

　　  当 然 ， 实 现 多 语 言 支 持 还 有 其 它 的 因 素 需 要 考 虑 。 使 站 点 内 容 的 变 化 和 应 用 开 发 者 隔 离 是 本 文 试 图 说 明 的 实 质 内 容 。 本 方 案 不 仅 对 于 实 现 站 点 内 容 国 际 化 非 常 有 用 ， 而 且 对 于 站 点 内 容 频 繁 改 变 而 布 局 基 本 不 变 的 情 形 ， 本 方 案 同 样 能 起 作 用 。 后 台 数 据 库 、 集 合 对 象 （ 字 典 对 象 ） 以 及 ASP 技 术 提 供 了 一 个 极 好 的 方 案 来 实 现 站 点 内 容 从 源 语 言 到 其 它 语 言 的 扩 展 。


原作者：不详
来 源：不详