ASP Read XML Instance code _ Application Tips

Language.xml

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

<!--Chinese-->
<language1>
<LanguageName> Traditional Chinese </LanguageName>
<LanguageValue>TraditionalChinese</LanguageValue>
<LanguageImages>imagesBig5</LanguageImages>
<LanguageFile>ddd</LanguageFile>
</language1>
</languageRoot>

Sl.asp

Copy 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 "Load XML File Error"
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
%>

The above code is passed by the cloud-dwelling community editing test.