asp读取xml实例代码

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

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