这样的树结构的xml怎么读出来

[lion_lh]

<?xml version="1.0" encoding="GB2312" standalone="yes"?>
<mywork>
<packageitem name="统计报表">
<packageitem name="报表浏览">
<linkitem>
<title>查询</title> <link>/ERreport/ERreport_queryTemp3.asp</link>
</linkitem>
</packageitem>
<packageitem name="报表维护">
<linkitem>
<title>添加</title> <link>/ERreport/ERreport_add.asp</link>
</linkitem>
<linkitem>
<title>查询</title> <link>/ERreport/ERreport_queryTemp.asp</link>
</linkitem>
</packageitem>
</packageitem>
</mywork>
要求读出后树目录为，帮我写段ASP代码，谢谢了

统计报表(目录)
报表浏览(目录)
查询(连接)
报表维护(目录)
添加(连接)
查询(连接)

[lion_lh]

顺便再告诉我如何新增一个packageitem、linkitem，谢谢了

[double22822]

用script就能实现，太麻烦了，读结构用xsl，学学dom就会了。

[yangsm]

不懂，关注中……

[lion_lh]

TO:double22822(大宝) 兄：这个应该不算很麻烦吧，我现在对XMLDOM不熟悉呀急需解决这个问题，没时间研究了

[online]

我做的一个treeview的(vb的),修改就可以使用
Dim objXML As DOMDocument
Dim nXML As Node
Dim childnode As Node
Dim secondnode As Node

Private Sub Command1_Click()

'xmlDom object
'Set objXML = CreateObject("Microsoft.XMLDOM")
Set objXML = New DOMDocument
objXML.async = False
'load the xml menu file
objXML.Load ("mysites.xml")
Set objLst = objXML.getElementsByTagName("site")
'how many items
intNoOfHeadlines = objLst.length
'looping over the items -1 because it's starts from 0\
Set nXML = TreeView1.Nodes.Add(, , "root", "站点信息")
'Call LoadTree(nXML, children)
For i = 0 To intNoOfHeadlines - 1
Set objHdl = objLst.Item(i)
key1 = "p" & i
Set childnode = TreeView1.Nodes.Add(nXML, tvwChild, "", objHdl.childNodes(0).Text)
Set secondnode = TreeView1.Nodes.Add(childnode, tvwChild, "", objHdl.childNodes(1).Text)
'List2.AddItem objLst.Item(i).Attributes(i).Text
'List3.AddItem objHdl.childNodes(2).Text
Next

End Sub



mysites.xml

<?xml version="1.0"?>
<mysites>
<site>
<topic>news</topic>
<name>CNN</name>
<url>http://www.cnn.com</url>
</site>
<site>
<topic>sport</topic>
<name>Sydney 2000</name>
<url>http://www.olympics.com</url>
</site>
<site><topic>Travel</topic><name>VirtualTourist</name><url>http://www.virtultourist.com</url></site><site><topic>computers</topic><name>Experts-exchange</name><url>http://www.experts-exchange.com</url></site><site><topic>computers</topic><name>Microsoft</name><url>http://www.microsoft.com</url></site><site><topic>sport</topic><name>Sportelo</name><url>http://www.sportelo.co.il</url></site><site><topic>computers</topic><name>myscript</name><url>http://www.myscript.co.il</url></site><site><topic>computers</topic><name>asp101</name><url>http://www.asp101.com</url></site><site><topic>y</topic><name>y</name><url>http://y</url></site></mysites>

[nolonely]

http://fason.nease.net/