XML读取事例程序

最新推荐文章于 2022-08-24 21:52:34 发布

转载最新推荐文章于 2022-08-24 21:52:34 发布 · 69 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/meil/archive/2011/01/24/ReadXml.html

本文介绍两种使用VBScript读取XML文件的方法。一种是遍历所有节点并读取属性，另一种是直接获取指定节点（如COMPNAME）的内容。通过示例代码展示了如何利用Microsoft.XMLDOM对象操作XML数据。

data.xml 数据文件

1 <?xml version="1.0" encoding="utf-8" ?>
2 <root>
3 <row ID="1" COMPNAME="DALIAN" POST="063000" TEL="0315-2695" LEVEL="888888888"/>
4 <row ID="2" COMPNAME="TIANJUN" POST="063000" TEL="0315-2695" LEVEL="888888888"/>
5 <row ID="3" COMPNAME="BEIJIN" POST="063000" TEL="0315-2695" LEVEL="888888888"/>
6 </root>

读取程序一：遍历全部节点

<%
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
%>

读取程序二：获取“COMPNAME”节点的内容

<%
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

response.write objAtr.Attributes.item(i).Text&" "
Next

Response.Write " "

Set objAtr=Nothing
Set objNode=Nothing
Set xml=Nothing

%>

转载于:https://www.cnblogs.com/meil/archive/2011/01/24/ReadXml.html