这是本人测试通过的,大家拷过去就可以直接用哈!!!
ASP代码:
<%
dim xingzXML, xingzLayer, xingzLayerNum, xingzLayer2, xingzLayerNum2, xzi, xzk
Set xingzXML = server.CreateObject("MSXML.DOMDocument")
xingzXML.Load(Server.MapPath("test.xml")) '加载一个XML文件
Set xingzLayer=xingzXML.documentElement '确认XML文件的根节点,即第一个标签
xingzLayerNum=xingzLayer.ChildNodes.length-1 '获取第一个标签包括的子标签个数,从0算起
for xzi=0 to xingzLayerNum
set xingzLayer2=xingzLayer.childNodes.item(xzi) '子标签
xingzLayerNum2=xingzLayer2.ChildNodes.length-1
for xzk=0 to xingzLayerNum2
response.Write xingzLayer2.childNodes.item(xzk).text '获取子标签的字符
response.Write "<br />"
next
response.Write "============================<br />"
next
Set xingzLayer2=Nothing
Set xingzLayer=Nothing
Set xingzXML=Nothing
%>
XML文件:
<?xml version="1.0" encoding="utf-8" ?>
<root>
<row>
<id>1</id>
<name><![CDATA[哈喽吧]]></name>
<url>网址:http://www.hilo8.com</url>
</row>
<row>
<id>2</id>
<name><![CDATA[阅读"test"]]></name>
<url>网址:http://yuedu.hilo8.com</url>
</row>
</root>
下一篇:asp中 on error resume next的用法
讨论数量:3