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