ASP如何实现站点国际化多语言支持?
如果客户纷纷要求将Asp的站点国际化以提供多种语言版本,这个问题如何实现呢?该问题的关键在于,你必须使用某种方法实现快速的页面内容转换。可以将此问题看成是从数据库提取适当数据并用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")
Conn.ConnectionString="Some Connection String"
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>