asp读取xml实例代码

　　language.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>

sl.asp
复制代码 代码如下:
<%
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
%>

以上代码，经脚本之家编辑测试通过。