Microsoft.XMLDOM 遍历xml所有节点实现代码

microsoft.xmldom 遍历xml所有节点实现代码
所有microsoft xml parser函数得到w3c xml dom的正式推荐，除了load和loadxml函数（正式的dom不包括标准函数loading xml文档）。有13个节点类型被microsoft xml parser支持

文档对象模型（dom）
　　 　　dom是html和xml文档的编程基础，它定义了处理执行文档的途径。编程者可以使用dom增加文档、定位文档结构、填加修改删除文档元素。w3c的重要目标是把利用dom提供一个使用于多个平台的编程接口。w3c dom被设计成适合多个平台，可使用任意编程语言实现的方法。

dim xml,objnode,objatr,ncntchd,ncntatr
set xml=server.createobject("microsoft.xmldom")

xml.async=false
xml.load(server.mappath("data.xml"))
set objnode=xml.documentelement

ncntchd=objnode.childnodes.length-1
for i=0 to ncntchd

set objatr=objnode.childnodes.item(i)
ncntatr=objatr.attributes.length-1

for j=0 to ncntatr
response.write objatr.attributes.item(j).text&"
"
next

response.write "
"
next

response.write "
"

set objatr=nothing
set objnode=nothing
set xml=nothing
%>
data.xml文档

看一款利用xml dom采集数据的代码

用xmldom方法打开xml文件，如果是本地的没有问题，就是用server.mappath("xml.xml")的方法，这时能正常分析出内容，但是直接用url却不显示出xml内容（在xmldom里表示是支持url方式的），后来研究一下发现可以用xmlhttp的方法获取xml后再分析，代码如下：

set http=server.createobject("microsoft.xmlhttp")
http.open "get","http://l**oc*alhost/xml.xml",false
http.send

set xml=server.createobject("microsoft.xmldom")
xml.async=false
xml.validateonparse=false
xml.load(http.responsexml)
if xml.readystate>2 then
response.write("文档已经准备就绪。状态："& xml.readystate &"
")
set item=xml.getelementsbytagname("item")
for i=0 to (item.length-1)
set title=item.item(i).getelementsbytagname("title")
set link=item.item(i).getelementsbytagname("link")
response.write("
")
next
else
response.write("文档还未准备就绪。状态："& xml.readystate &"
")
end if
set http=nothing
set xml=nothing

xml.xml文档的内容如下：

http://*lo*calhos*t/



http://localho*st*i*ndex.asp教程