请问如何使用ASP读取XML数据

[cfstudio]

例如目标xml地址为：http://vol.stock.hexun.com/charts/now/share/MinAmount.ashx?code=600575

<?xml version="1.0" encoding="utf-8" ?>
- <Data>
<Title name="芜湖港(600575)分时成交分析" />
- <Item>
<Title name="分时成交分析" unit="万元" />
<Item NowAmount="32.30" CloseAmount="5.83" />
<Item NowAmount="3451.27" CloseAmount="1730.14" />
<Item NowAmount="3098.90" CloseAmount="957.45" />
<Item NowAmount="1783.01" CloseAmount="2162.93" />
<Item NowAmount="7114.57" CloseAmount="631.20" />
<Item NowAmount="2182.44" CloseAmount="241.32" />
<Item NowAmount="3348.57" CloseAmount="569.75" />
<Item NowAmount="2322.36" CloseAmount="337.02" />
<Item NowAmount="374.05" CloseAmount="370.07" />
</Item>
</Data>


怎么把里面的数据读取出来（其他标签字符不要）。


我在网上看了些文档，都没成功，麻烦指导，最好提供代码，本人刚学ASP,对XML一点都不懂。

谢谢！！！

[hookee]

<%
sUrl = "http://vol.stock.hexun.com/charts/now/share/MinAmount.ashx?code=600575"
Set oDoc    = CreateObject("Msxml2.DOMDocument")
With oDoc
	.async              = False
	.validateOnParse    = False
	.preserveWhiteSpace = False
    .resolveExternals   = False
'	.setProperty "NewParser", True
	.load sUrl
    If .parseError.errorCode <> 0 Then
        sErrMsg     = .parseError.errorCode & "|" &_
                      .parseError.srcText & "|" & .parseError.reason
        Set oDoc    = Nothing
        Response.Write sErrMsg
        Response.End
    End If
    Set oNode = .selectSingleNode("/Data/Title")
    Response.Write oNode.getAttribute("name") & "<br>"
    Set oNode = .selectSingleNode("/Data/Item/Title")
    Response.Write oNode.getAttribute("name") & "  " & oNode.getAttribute("unit") & "<br>"
    Set oNode = .selectNodes("/Data/Item/Item")
    For i=0 To oNode.length-1
    	Response.Write oNode(i).getAttribute("NowAmount") & "  " & oNode(i).getAttribute("CloseAmount") & "<br>"
	Next
	Set oNode = Nothing
End With
Set oDoc    = Nothing
%>

[001007009]

ReadXml.asp
<%
XmlUrl="路径"
set xml = server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.resolveExternals = "false"
xml.setProperty "ServerHTTPRequest", true
xml.load(XmlUrl)
If xml.parseError.errorCode <> 0 Then
response.Write("读取出错!")
End If
'xml.Load (Server.MapPath("1.xml"))
Set objNodes = xml.getElementsByTagName("item")
For i = 0 to objNodes.length - 1
Response.write "<li><a href='"&Trim(objNodes(i).selectSingleNode("link").Text)&"' target='_blank'>"&Trim(objNodes(i).selectSingleNode("title").Text) &"</a></li>"
Next
%>

Xml.xml


<?xml version="1.0" encoding="GBK"?>
<rss version="2.0">
<channel>
<title>Test</title>
<id>1</id>
<description>Test</description>

<item>
<title>百度一下</title>
<pubDate>2010-10-10</pubDate>
<author>Admin</author>
<description>test</description>
<link>http://www.baidu.com</link>
</item>

<item>
<title>Test</title>
<pubDate>2010-10-10</pubDate>
<author>Admin</author>
<description>test</description>
<link>http://www.baidu.com</link>
</item>

</channel>
</rss>

[Me_zhen]

mark
学习了。

[aibhmss]

学习中。