通过实例学习ASP读取XML数据文件的方法

通过实例学习ASP读取XML数据文件的方法，希望大家能很快掌握，提供两段代码。

分别保存下面两段代码，一个保存为readxml.asp另一个保存为test.xml，放在同一个目录下面，调试程序即可，在程序里面我已经做了解释，读取代码可以做成一个readxml的函数，通过使用输入的参数而读取xml不同数据记录的不同的值。这段程序的改编来自互联网，有什么出入请见谅。
readxml.asp

<%
    dim xml,objNode,objAtr,nCntChd,nCntAtr
    Set xml=Server.CreateObject("Microsoft.XMLDOM") 
    xml.Async=False
    xml.Load(Server.MapPath("test.xml")) 
    Set objNode=xml.documentElement
    nCntChd=objNode.ChildNodes.length-1
    ’这个可以定义asp读取xml文件的那一个值，通过传递这个值来确定读取的数据
    for i=0 to nCntChd
    set objAtr=objNode.ChildNodes.item(i)
    nCntAtr=objAtr.Attributes.length-1
    ’历遍一条记录里面的所有的记录项，记录是从0开始的
    for j=0 to nCntAtr
    response.write objAtr.Attributes.item(j).Text&"<br>"
    next
    response.write "<br>"
    next
    Set objAtr=Nothing
    Set objNode=Nothing 
    Set xml=Nothing 
    %>
    test.xml

<?xml version="1.0" encoding="utf-8" ?>
    <root>
    <row ID="1" COMPNAME="设计家园网" ADDR="上海市上海" 邮编="200000" TEL="021-8888888" PRODSERV="设计家园" 经济行业="网页制作" 省份="上海市" 地市="上海" 区域="上海" visit="0" 优先级="888888888" zhuangtai="最新"/>
    <row ID="2" COMPNAME="无情" ADDR="上海市上海" 邮编="200000" TEL="021-8888888" PRODSERV="设计家园" 经济行业="网页制作" 省份="上海市" 地市="上海" 区域="上海" visit="0" 优先级="888888888" zhuangtai="最新"/>
    <row ID="3" COMPNAME="设计家园" ADDR="上海市上海" 邮编="200000" TEL="021-8888888" PRODSERV="设计家园" 经济行业="网页制作" 省份="上海市" 地市="上海" 区域="上海" visit="0" 优先级="888888888" zhuangtai="最新"/>
    </root>

DOM的对象和方法的简略说明：

documentElement 属性 　　　　　确认XML 文件的根（Root）节点。 
    selectSingleNode 　　　　　　　　传回第一个符合样式的节点。 
    loadXML 方法 　　　　　　　　　　加载一个XML 文件或字符串的片断。 
    haschildnodes 方法 　　　　　　　如果指定的节点有一个或更多子节点，传回值为true。 
    createElement 方法 　　　　　　　建立一个指定名称的元素。 
    AppendChild 方法 　　　　　　　　加上一个节点当作指定节点最后的子节点。 
    createCDATASection 方法 　　　　建立一个包含特定数据的CDATA。