读取固定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("test.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
%>

读取url地址返回的xml

<%
myxml="http://api.y.joy.cn/list?type=2&sid=1886715&count=100&page=1&format=xml&key=83af09d2993048abb6f1de1efe73205a&uid=1555851259"
set xml = server.CreateObject("Microsoft.XMLDOM")
xml.async = "false"
xml.resolveExternals = "false"
xml.setProperty "ServerHTTPRequest", true
xml.load(myxml)
   Set objNodes = xml.getElementsByTagName("video")
For i = 0 to objNodes.length - 1
    Response.write "<li><a href=\'"&Trim(objNodes(i).selectSingleNode("Fvideo_id").Text)&"\'>"&Trim(objNodes(i).selectSingleNode("Ftitle").Text) &"</a></li>"
Next
%>

http://www.cnblogs.com/ycsfwhh/archive/2012/07/11/2586436.html