搜索:
首页 >> Asp教程 >> Asp实例教程 >> 如何建设一个多语言版的ASP网站?

如何建设一个多语言版的ASP网站?

2009-11-26 来源:中国Asp之家 投递文章

 

<ScriptRUNAT=SERVERLanguage=VBScript>

SubApplication_OnStart()
DimDictCommonStrings
DimDictSpecializedStrings
DimConn
DimrsCommonStrings
DimrsSpecializedStrings
SetDictCommonStrings=Server.CreateObject("Scripting.Dictionary")
SetDictSpecializedStrings=Server.CreateObject("Scripting.Dictionary")

接下来,我们把数据装入字典对象。通过遍历表,连接StringKey和StringLanguage,并把连接后的值作为字典的键值,来把StringHolder放在对应的字典数据区。实际中,数据库只在应用启动时被访问一次,其后ASP页面将从速度更快的字典对象读取所需数据:

SetConn=Server.CreateObject("ADODB.Connection")

Conn.ConnectionString="SomeConnectionString"
Conn.open
' 连接数据库
SetrsCommonStrings=Conn.Execute("SelectStringKey,StringHolderfromCommonStrings")
DountilrsCommonStrings.EOF
DictCommonStrings.AddrsCommonStrings("StringLanguage")&rsCommonStrings("StringKey")_
,rsCommonStrings("StringHolder")
rsCommonStrings.MoveNext
' 打开CommonStrings表,遍历所有记录并装入数据
Loop
SetrsSpecializedStrings=Conn.Execute("SelectStringKey,StringHolderfromSpecializedStrings")
DountilrsSpecializedStrings.EOF
DictSpecializedStrings.AddrsSpecializedStrings("StringLanguage")&_
rsSpecializedStrings("StringKey"),rsSpecializedStrings("StringHolder")
rsSpecializedStrings.MoveNext
' 打开SpecializedStrings表,遍历所有记录并装入数据
Loop
rsSpecializedStrings.Close
rsCommonStrings.Close
Conn.Close
SetrsSpecializedStrings=Nothing
SetrsCommonStrings=Nothing
SetConn=Nothing
EndSub
</Script>

 再次,我们就要在ASP页面引用文本和文件路径了。做好了前期工作,现在我们要在ASP页面引用已经实例化的字典对象中的文本以及文件路径。

1、我们需要需要获知当前用户使用的是何种语言(忙了半天,不就是为了这个嘛)。获知对方使用何种语言的方法有好几种,我们用的是从Request.Server.Variables取得该值的办法,把下列代码放入Session_Onstart事件处理过程:

<ScriptLanguage=VBScript>

SubSession_OnStart()
Session("Lang")=Request.Server.Variables("HTTP_ACCEPT_LANGUAGE")
EndSub
</Script>

2、再通过键值从字典对象取得对应的文本或图片文件路径。键值由语言前缀加名字组成,代码示例:

<HTML>

<PAlign=center>
<h1><%=DictSpecializedStrings.Item(Session("Lang")&"Confirmation")%></h1>
</P>
<PAlign=center>
<h5><%=DictSpecializedStrings.Item(Session("Lang")&"OrderDisclaimer")%></h5>
</P>
</HTML>

都做好了。

中文版浏览器:欢迎光临中国asp之家!

英文版浏览器:Welcome to Aspxhome.com!

Tags:语言  asp  网站  字典对象  英文 
相关文章
手机版 Asp实例教程 Asp之家 Aspxhome.com
闽ICP备06017341号