asp读取xml实例代码

　　<?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

　　%>