<?xml version="1.0" encoding="gb2312" ?>
<node label="流动的树 walking Tree" >
<node label="友情blog" >
<node label="在水一方" url="http://tangting.5dblog.com"/>
<node label="夜清晨" url="http://ccor.5dblog.com"/>
</node>
<node label="电影站点" >
<node label="地下电影" url="http://www.dixia.net" />
<node label="远方艺社" url="http://www.qd-hhx.cn/1/bbs" />
<node label="电影夜航船" url="http://movie.newyouth.beida-online.com" />
</node>
<node label="音乐站点" >
<node label="灰尘音乐社" url="http://www.supernb.com" />
<node label="乌鸦音乐社" url="http://www.wuya.org" />
</node>
<node label="文学站点" >
<node label="新散文" url="http://www.xinsanwen.com"/>
</node>
<node label="FLASH站点" >
<node label="闪吧" url="http://www.flash8.net" />
<node label="luar's Flash Playground" url="http://luar.com.hk/flashbook/" />
</node>
</node>
只是想写个遍历出来,结果弄了半天,偶真是笨啊!!!
<%
dim objXML
dim nodelist
dim rootNode
dim name
dim i,length
set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.async=false
objXML.load(server.MapPath("link.xml"))
set rootNode=objXML.documentElement
set nodelist=objXML.getElementsByTagName("node")
length=nodelist.length
for i=0 to length-1
set name=nodelist.item(i)
if name.hasChildnodes then
response.write(name.Attributes.item(0).text&"<br>")
else
response.write(name.Attributes.item(1).text&"<br>")
end if
next
%>
不知道最好的方法
郁闷
<node label="流动的树 walking Tree" >
<node label="友情blog" >
<node label="在水一方" url="http://tangting.5dblog.com"/>
<node label="夜清晨" url="http://ccor.5dblog.com"/>
</node>
<node label="电影站点" >
<node label="地下电影" url="http://www.dixia.net" />
<node label="远方艺社" url="http://www.qd-hhx.cn/1/bbs" />
<node label="电影夜航船" url="http://movie.newyouth.beida-online.com" />
</node>
<node label="音乐站点" >
<node label="灰尘音乐社" url="http://www.supernb.com" />
<node label="乌鸦音乐社" url="http://www.wuya.org" />
</node>
<node label="文学站点" >
<node label="新散文" url="http://www.xinsanwen.com"/>
</node>
<node label="FLASH站点" >
<node label="闪吧" url="http://www.flash8.net" />
<node label="luar's Flash Playground" url="http://luar.com.hk/flashbook/" />
</node>
</node>
只是想写个遍历出来,结果弄了半天,偶真是笨啊!!!
<%
dim objXML
dim nodelist
dim rootNode
dim name
dim i,length
set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.async=false
objXML.load(server.MapPath("link.xml"))
set rootNode=objXML.documentElement
set nodelist=objXML.getElementsByTagName("node")
length=nodelist.length
for i=0 to length-1
set name=nodelist.item(i)
if name.hasChildnodes then
response.write(name.Attributes.item(0).text&"<br>")
else
response.write(name.Attributes.item(1).text&"<br>")
end if
next
%>
不知道最好的方法
郁闷
回复Comments
作者:
{commentrecontent}