请问在ASP里如何将XML的数据存储到Recordset对象中（急）

[qqhbc]

请问在ASP里如何将XML的数据存储到Recordset对象中（急）

有一个XML文件：
tree.xml
<?xml version="1.0" encoding="gb2312">
<tree>
<id>1</id>
<name>系统管理</name>
_{操作员管理
<sub2>增加</sub2>
<sub2>查询</sub2>}
_{模块管理
<sub2>增加</sub2>
<sub2>查询</sub2>}
</tree>
<tree>
<id>2</id>
<name>生产管理</name>
_{车间管理
<sub2>增加</sub2>
<sub2>查询</sub2>}
_{流程管理
<sub2>增加</sub2>
<sub2>查询</sub2>}
</tree>
<tree>
<id>3</id>
<name>人员管理</name>
_{人员信息管理
<sub2>增加</sub2>
<sub2>查询</sub2>}
_{文档管理
<sub2>增加</sub2>
<sub2>查询</sub2>}
</tree>

想把里面的数据分别分别写在三个recordset对象里
c1:id name
c2:id subid subname
c3:id subid sub2id sub2name

实现一个树形的结构

[online]

<%
Dim xmlDom, rootNode
xmlFileName = "test.xml"
Set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
'set objRetValNode As MSXML.IXMLDOMNode
'set objRetValNode=xmldom.IXMLDOMNode
xmlDom.async = false
If not xmlDom.load(Server.MapPath(xmlFileName)) Then
response.Write ("没有这个会员")
respoonse.end
Else
Set xmlNode = xmlDom.documentElement.childNodes(0)
Set rootNode = xmlDom.documentElement
set EYuan=rootNode.selectSingleNode("//UserData/UserInfo/EYuan")
response.write EYuan
Set objRetValNode = xmlDom.documentElement
Set objRetValNode = xmlDom.selectSingleNode(".//UserData/UserInfo/EYuan")
Response.write objRetValNode.Text
response.write getNodeList(xmlFileName,"UserName")
For i = 0 To xmlNode.childNodes.length - 1
response.write xmlNode.childNodes(i).nodeName
response.write " "
response.write xmlNode.childNodes(i).Text
response.write "<br>"
Next
End If

%>
xml文件
<?xml version="1.0" encoding="gb2312"?>
<UserData>
<UserInfo>
<UserName>testEnte</UserName>
<UserEmail>[e-mail]</UserEmail>
<EYuan>20</EYuan>
<iDate>2003-12-20 0:03:53</iDate>
</UserInfo>
<其他节点>
<Company>公司名称</Company>
</其他节点>
</UserData>

读出后，保存导rs中，然后形成树

[xieyj]

我也想知道，up！