xml的节点属性读出来后如何用ASP循环列出
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)
%>