Example code for reading xml files. language.xml
Copy the code code as follows:
<?xml version=1.0 encoding=gb2312?>
<languageRoot>
<!--Simplified Chinese-->
<language>
<LanguageName>Simplified Chinese</LanguageName>
<LanguageValue>SimpilifiedChinese</LanguageValue>
<LanguageImages>images</LanguageImages>
<LanguageFile></LanguageFile>
</language>
<!--Traditional Chinese-->
<language1>
<LanguageName>Traditional Chinese</LanguageName>
<LanguageValue>TraditionalChinese</LanguageValue>
<LanguageImages>imagesBig5</LanguageImages>
<LanguageFile>ddd</LanguageFile>
</language1>
</languageRoot>
sl.asp
Copy the code code as follows:
<%
Set objXML2 = Server.CreateObject(Msxml2.DOMDocument)
objXML2.async = False
loadResult = objXML2.load(Server.MapPath(language.xml))
if not loadResult then
Response.write error loading XML file
Response.end
endIf
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
%>
The above code has passed the editing test of Wulin.com.