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 & " " '读取节点属性值
next
xmlStr = xmlStr & "<br>"
nCntNd=objAtr.ChildNodes.length-1 '获取当前一级节点的子节点数目
for k = 0 to nCntNd
xmlStr = xmlStr & "<br> " & 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
%>
