如何建设一个多语言版的ASP网站？
来源：asp之家 时间：2009-11-26 20:36:00
<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！
0
投稿猜你喜欢
一个不错的javascript加密解密算法源码
巧用overflow属性解决中间间距问题
SQL建立数据库及删除数据库命令
JS复制特定内容到粘贴板
MySQL中的字符串模式匹配
Oracle SQL性能优化系列学习一
javascript 获取中文字符串长度
asp中常用的字符串安全处理函数集合(过滤特殊字符等)
讲解SQL Server危险扩展存储删除和恢复
ORACLE实例的后台进程
HTML5 Canvas 起步(2) - 路径
ASP连接MySQL数据库的方法
Dreamweaver MX 2004 试用心得
分步启动数据库以重命名数据文件
Asp教程:Response对象
在JScript中使用RecordSet对象的GetRows方法
SQL学习笔记一SQL基础知识
innerHTML 的一些问题
MySQL数据库生产环境的维护工作总结的经验
SEM之医疗网站跳出率 逼迫访客跳出网站的六宗罪
