ASP实现多语言支持
ringHolder 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 技 术 提 供 了 一 个 极 好 的 方 案 来 实 现 站 点
内 容 从 源 语 言 到 其 它 语 言 的 扩 展 。

我没时间就摘抄了一些，反正是为了大家的学习，是不是