asp+xml实现多语言网站的解放方案
日期：2011-09-08 浏览次数：20839 次
新建两个存储语言项的xml文件,放到Languages目录下:
zh-cn.xml
以下是引用片段：
<?xml version="1.0" encoding="utf-8"?>
<Languages>
<aboutus>关于我们</aboutus>
<product>产品展示</product>
</Languages>
english.xml
以下是引用片段：
<?xml version="1.0" encoding="utf-8"?>
<Languages>
<aboutus>About us</aboutus>
<product>Products</product>
</Languages>
公用函数(方法)Functions.asp,放到Comm目录下:
以下是引用片段：
<%
’-------------------
’函数名:getLang();
’参数Lang:当前语言;
’参数Litem:设定的语言项;
’示例:Call getLang("zh-cn","aboutus");
’Author:Huerreson,huerreson@msn.com
’-------------------
Function getLang(ByVal Lang,Litem)
Dim xmlDom
If objCheck("Microsoft.XMLDOM") then
Set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
elseif objCheck("Microsoft.XMLDOM") then
Set xmlDom = Server.CreateObject("MSXML2.DOMDocument")
else
Response.Write("服务器不支持’Microsoft.XMLDOM’及’MSXML2.DOMDocument’,无法使用本功能")
End if
xmlDom.async = false
xmlDom.load(Server.MapPath("Languages/"& Lang &".xml"))
Response.Write(xmlDom.documentElement.selectSingleNode(Litem).text)
Set xmlDoc = Nothing
Set xmlDom = Nothing
End Function
’-------------------
’函数名:objCheck();
’参数ObjName:对象名称;
’示例:Call objCheck("Microsoft.XMLDOM");
’Author:Huerreson,huerreson@msn.com
’-------------------
Function objCheck(ObjName)
on error resume next
objCheck = false
Set Obj = Server.CreateObject (ObjName)
If -2147221005 <> Err then
objCheck = true
end if
Set Obj = nothing
End Function
%>
asp+xml实现多语言网站应用实例:
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
