asp读取xml实例代码_应用技巧_

<%
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)&"
"
Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"
"
Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"
"
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)&"
"
Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"
"
Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"
"
Response.write Trim(objNodes(i).selectSingleNode("LanguageFile").Text)&"
"
Next
set objNodes = Nothing
Set objXML = Nothing
%>