asp读取xml节点简单例子

<?xml version="1.0" encoding="utf-8"?>
<xml>
<AO>
  <string>A</string>
  <string>B</string>
  <string>C</string>
  <string>D</string>
  <string>E</string>
</AO>
</xml>

<%
Set myxml=Server.CreateObject("Microsoft.XMLDOM")
    myxml.load(Server.MapPath("data.xml"))
Set myroot=myxml.documentElement.selectSingleNode("AO")
Dim lenth:lenth=myroot.childNodes.length'节点数
For i=0 To lenth-1
  Response.Write(myroot.childNodes.item(i).text)
Next

set myroot=nothing
set myxml=nothing 
%>