xml的节点属性读出来后如何用ASP循环列出

[伊凡yifan]

abc.xml

<PriceXML SERVICE_SM="SMS_NORMAL_PRICE" Price="100"/>
<PriceXML SERVICE_SM="SMS_FLASH_PRICE" Price="80"/>
<PriceXML SERVICE_SM="SMS_KING_PRICE" Price="70"/>
<PriceXML SERVICE_SM="MMS_TEXT_PRICE" Price="60"/>
<PriceXML SERVICE_SM="MMS_PIC_PRICE" Price="50"/>
<PriceXML SERVICE_SM="MMS_ANI_PRICE" Price="40"/>
<PriceXML SERVICE_SM="MMS_SOUND_PRICE" Price="30"/>



我只能用asp显示出一行来，循环显示多行怎么写

<%@ LANGUAGE=VBScript%>
<%
dim objxml

Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load("d:\wwwroot\XMLFILES\price.xml")

set objnodes=objXML.documentElement.SelectSingleNode("/PRICES/PriceXML").GetAttributeNode("SERVICE_SM").attributes
''set objnodes=objXML.getElementsByTagName("PriceXML")



''set objattrtofind=objXML.documentElement.SelectSingleNode("//PRICES/PriceXML"). GetAttributeNode("PriceXML")
''response.write objnodes.SERVICE_SM.value

''set objnodes=xmlxml.documentelement.firstchild


%>
<?xml version="1.0" encoding="GB2312"?>
<PRICES xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="E:ProjectXMLDefinePrices.xsd">
<% for each element in objnodes%>
<<%=objnodes.element.SERVICE_SM%>>
<%next %>


</PRICES>
<%



''objxml.save(response)

%>

[孟子E章]

<%
dim objxmlm,node,att,i

Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.async=false
objXML.load ("d:\asptest\ab.xml")

Set ns = objXML.selectNodes("/PRICES/PriceXML")
For Each node In ns
For i = 0 To node.attributes.length - 1
Response.write node.attributes(i).nodeName & "=" & node.attributes(i).value & "<br>"
Next
Response.write "<hr>"

Next

%>