如何建设一个多语言版的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
都做好了。
中文版浏览器:欢迎光临随风起舞!
英文版浏览器:Welcome to Flying Happy in the Sun!