asp xml 인 스 턴 스 코드 읽 기

language.xml

 
<?xml version="1.0" encoding="gb2312"?> 
<languageRoot> 

<!--    --> 
<language> 
<LanguageName>    </LanguageName> 
<LanguageValue>SimpilifiedChinese</LanguageValue> 
<LanguageImages>images</LanguageImages> 
<LanguageFile></LanguageFile> 
</language> 

<!-- w  --> 
<language1> 
<LanguageName> w  </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 
%> 

이상 코드 는 우리 의 편집 테스트 를 통 과 했 습 니 다.