<?xml version="1.0" encoding="gb2312"?> <languageRoot> <!--简体中文--> <language> <LanguageName>简体中文</LanguageName> <LanguageValue>SimpilifiedChinese</LanguageValue> <LanguageImages>images</LanguageImages> <LanguageFile></LanguageFile> </language> <!--繁體中文--> <language1> <LanguageName>繁體中文</LanguageName> <LanguageValue>TraditionalChinese</LanguageValue> <LanguageImages>imagesBig5</LanguageImages> <LanguageFile>ddd</LanguageFile> </language1> </languageRoot>

<% Set objXML2 = Server.CreateObject("Msxml2.DOMDocument") objXML2.async = False loadResult = objXML2.load(Server.MapPath("language.xml")) if not loadResult then Response.write "装载XML文件错误" Response.end end If Set objNodes = objXML2.getElementsByTagName("languageRoot/language") For i = 0 to objNodes.length - 1 Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>" Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>" Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>" Next set objNodes = Nothing Set objNodes = objXML2.getElementsByTagName("languageRoot/language1") For i = 0 to objNodes.length - 1 Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>" Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>" Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>" Response.write Trim(objNodes(i).selectSingleNode("LanguageFile").Text)&"<br>" Next set objNodes = Nothing Set objXML = Nothing %>