ASP实现多语言支持

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 >