asp获取xml实例代码

asp获取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

%>

以上代码，经站长站编辑测试通过。

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!