asp讀取xml

　　有tree.xml檔案如下：

　　<?xml version="1.0" encoding="utf-8" ?>
<CategoryTree>
    <Category parentid="0">
        <id>1</id>
        <title>ASP.NET</title>
        <url></url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="1">
        <id>2</id>
        <title>GridView</title>
        <url>http://www.asp.net</url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="1">
        <id>3</id>
        <title>DataList</title>
        <url>http://www.codefans.net</url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="1">
        <id>4</id>
        <title>ListView</title>
        <url>http://www.codeproject.com</url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="1">
        <id>5</id>
        <title>Reapter</title>
        <url>http://baidu.com</url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="0">
        <id>6</id>
        <title>Create Code</title>
        <url></url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="6">
        <id>7</id>
        <title>產生細線表格</title>
        <url>http://www.codefans.net</url>
        <addtime>2008-7-6</addtime>
    </Category>
    <Category parentid="6">
        <id>8</id>
        <title>產生GridView</title>
        <url>http://www.codefans.net</url>
        <addtime>2008-7-6</addtime>
    </Category>
 <Category parentid="6">
  <id>9</id>
  <title>產生細線表格</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>10</id>
  <title>產生GridView</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>13</id>
  <title>產生細線表格</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>14</id>
  <title>產生GridView</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>11</id>
  <title>產生細線表格</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>12</id>
  <title>產生GridView</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>15</id>
  <title>產生細線表格</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
 <Category parentid="6">
  <id>16</id>
  <title>產生GridView</title>
  <url>http://www.codefans.net</url>
  <addtime>2008-7-6</addtime>
 </Category>
</CategoryTree>

　　

　　有xmlread.asp檔案如下：

　　

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
 dim xml,objNode,objAtr,nCntChd,nCntAtr,nCntNd,xmlStr
 Set xml=Server.CreateObject("Microsoft.XMLDOM") 
 xml.Async=False
 
 '一個xml檔案相當於一個資料表，xml的根節點相當於資料表的名稱
 xml.Load(Server.MapPath("tree.xml")) 
 
 '擷取xml檔案中各個一級節點，一級節點相當於資料表中的記錄
 Set objNode=xml.documentElement
 '擷取一級節點個數，即資料表中的記錄數
 nCntChd=objNode.ChildNodes.length-1
 
 '遍曆各個一級節點，即遍曆各個記錄
 for i=0 to nCntChd
  set objAtr=objNode.ChildNodes.item(i) '擷取根節點下第i個一級節點，即擷取資料表中的第i條記錄
  
  nCntAtr=objAtr.Attributes.length-1 '擷取一級節點的屬性個數
  '曆遍一條記錄裡面的所有屬性項項，屬性索引從0開始
  for j=0 to nCntAtr
   xmlStr = xmlStr & objAtr.Attributes.item(j).nodeName & ":" '讀取節點屬性名稱
   xmlStr = xmlStr & objAtr.Attributes.item(j).Text & "&nbsp;" '讀取節點屬性值
  next
  
  xmlStr = xmlStr & "<br>"
  
  nCntNd=objAtr.ChildNodes.length-1 '擷取當前一級節點的子節點數目
  for k = 0 to nCntNd
   xmlStr = xmlStr & "<br>&nbsp;&nbsp;&nbsp;&nbsp;" & objAtr.ChildNodes.item(k).nodeName & ":" '讀取節點名
   xmlStr = xmlStr & objAtr.ChildNodes.item(k).Text '讀取節點數值
  next
  
  xmlStr = xmlStr & "<br>"
 next 

 
 response.Write(xmlStr)
 
 Set objAtr=Nothing
 Set objNode=Nothing 
 Set xml=Nothing 
%>