asp讀取xml實(shí)例代碼

?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文件錯(cuò)誤"
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
%>