简单的方法是直接复制一个，中文改成英文，来回切换。
当然，最合理的解决方法是，写一语言名，如
english.asp
将所有的中文全部保存下来，如
sub enlang()
Dim d
Set d=Server.CreateObject("Scripting.Dictionary")
d.Add "re","Red"
d.Add "gr","Green"
d.Add "bl","Blue"
d.Add "pi","Pink"
end if
同时，也用相同的建一中文的，如
sub cnlang()
Dim d
Set d=Server.CreateObject("Scripting.Dictionary")
d.Add "re","红色"
d.Add "gr","绿色"
d.Add "bl","蓝色"
end sub
用的时候，用 d.item("re") 来调用，只要引用不同的函数即可实现不同的语句切换。
如
select case lang
case "en" : enlang
case "cn" : cnlang
end select
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024