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