asp读取xml属性

asp读取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
%>
XML内容test.xml
以下是引用片段：
<?xml version="1.0" encoding="utf-8" ?>
<root>
<row ID="1" COMPNAME="过桥轩" ADDR="广东省广州市越秀区北京路" 邮编="510000" TEL="8620-8333" PRODSERV="经营面" 经济行业="粥粉面店" 省份="广东省" 地市="广州市" 区域="越秀区" visit="0" 优先级="9999999999" zhuangtai="最新"/>
<row ID="2" COMPNAME="周仔" ADDR="广东省广州市" 邮编="510000" TEL="8620-8330" PRODSERV="经营快餐饮食" 经济行业="快餐" 省份="广东省" 地市="广州市" 区域="越秀区" visit="0" 优先级="9999999999" zhuangtai="最新"/>
<row ID="3" COMPNAME="香菜馆" ADDR="广东省广州市越秀区" 邮编="510000" TEL="8620-837" PRODSERV="经营湘菜" 经济行业="湘菜" 省份="广东省" 地市="广州市" 区域="越秀区" visit="0" 优先级="9999999999" zhuangtai="最新"/>
</root>

asp读取xml节点：

<%
strSourceFile = Server.MapPath("./") & "\test.xml"
'获取XML文件的路径这里根据你的虚拟目录不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由线程创建一个XML对像
objXML.load(strSourceFile)'把XML文件读入内存
Set objRootsite = objXML.documentElement.selectSingleNode("root")
'选取root节点
num=objRootsite.childNodes.length-1
For i=0 To num
response.write "网站名:"&objRootsite.childNodes.item(i).childNodes.item(1).text
response.write ",网址："&objRootsite.childNodes.item(i).childNodes.item(2).text&""
response.write ",添加时间:"&objRootsite.childNodes.item(i).childNodes.item(3).text&"<br>"
next
%>
<script>
function delxml(id)
{
   if(!confirm("确定要删除吗？")) return false;
   location.href='delxml.asp?id='+id;
}
</script>

XML内容：
<?xml version="1.0" encoding="utf-8"?>
<site>
<root>
    <list>
      <id>0</id>
      <name>新浪</name>
      <url>http://www.sina.com.cn</url>
      <time>2007-11-1 10:10:10</time>
    </list>
    <list>
      <id>1</id>
      <name>google</name>
      <url>http://www.google.cn</url>
      <time>2007-11-2 11:11:11</time>
    </list>
   </root>
</site>

结合两者：

''''''''''''读取xml内容'BEGIN''''''''''''''''''''''''''''
dim strSourceFile,objXML,objRootsite,num
dim keyword,keylink,keywordWithLink
dim objNode,keyItemCount
dim artContent
artContent=arr(page-1)
   strSourceFile = Server.MapPath("./admin/keylink.xml")
   '获取XML文件的路径这里根据你的虚拟目录不同而不同
   Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
   '以自由线程创建一个XML对像
   objXML.load(strSourceFile)'把XML文件读入内存

   set objNode=objXML.documentElement
   keyItemCount=objNode.ChildNodes.length-1
   for i=0 to keyItemCount
    keyword=objNode.childNodes.item(i).childNodes.item(1).text
    keylink=objNode.childNodes.item(i).childNodes.item(2).text
    keywordWithLink="<A href='"&keylink&"' class='artContentLink'>"&keyword&"</A>"
    artContent=replace(artContent,keyword,keywordWithLink)
   next
''''''''''''读取XML内容'END'''''''''''''''''''''''''''''''
<?xml version="1.0" encoding="utf-8"?>
<keylist>
<keyItem>
    <keyID>2</keyID>
    <keyword>前列腺炎5</keyword>
    <link>http://www.2211888.com</link>
</keyItem>
<keyItem>
    <keyID>128858053557343750</keyID>
    <keyword>尿频尿急症状</keyword>
    <link>http://www.2211888.com/showArticleJk.asp?ClassID=16&amp;amp;ArticleID=252</link>
</keyItem>
<keyItem>
    <keyID>128858061207187500</keyID>
    <keyword>尿频尿急症状2</keyword>
    <link>http://www.2211888.com/showArticleJk.asp?ClassID=16&amp;ArticleID=252</link>
</keyItem>
<keyItem>
    <keyID>128858098862656250</keyID>
    <keyword>面解读带状疱疹</keyword>
    <link>http://www.0592yk.com/</link>
</keyItem>

</keylist>