asp讀取xml實例程式碼

读取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

%>

以上代码，经武林网编辑测试通过。