<%
Dim xmldoc,aa,bb,cc,dd
Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.load(Server.MapPath("21.xml"))
xmldoc.async = false
Set aa = xmldoc.documentElement.selectNodes("link")

num=aa.length
Response.Write   num & "<hr>"
for i=0 to num-1
    bb = aa(i).GetAttributeNode("url").value
    cc = aa(i).GetAttributeNode("name").value
    dd = aa(i).GetAttributeNode("time").value
    Response.write bb & "<br>"
next
%>

<!--in loop-->
<xsl:for-each select="//link[@id=1]">
order:<xsl:value-of select="./@order"/><br/>
name:<xsl:value-of select="./@name"/><br/>
url:<xsl:value-of select="./@url"/><br/>
time:<xsl:value-of select="./@time"/><br/>
</xsl:for-each>
<!--end loop-->


<!--for single node-->
order:<xsl:value-of select="//link[@id=1]/@order"/><br/>
name:<xsl:value-of select="//link[@id=1]/namer"/><br/>
url:<xsl:value-of select="//link[@id=1]/@url"/><br/>
time:<xsl:value-of select="//link[@id=1]/@time"/><br/>
<!--end single node-->

<!--for xml template-->
不写了

Set myNode = xmlDoc.SelectNode("//link[@id=1]")
Response.Write "order:" & myNode.Attributes.item(1).value & "<br/>"
Response.Write "name:" & myNode.Attributes.item(2).value & "<br/>"
Response.Write "url:" & myNode.Attributes.item(3).value & "<br/>"
Response.Write "time:" & myNode.Attributes.item(4).value & "<br/>"