asp 读取xml文档实例代码

<%
'asp教程读取xml文档实例代码
h=GetLocationURL()
h1=Split(h,"/")
h=Replace(h,h1(UBound(h1)),"note.xml")

Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",h,False
http.send

Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
If xml.ReadyState>2 Then
   Response.Write("文档已经准备就绪。状态："& xml.ReadyState &"<br>")
   Set item=xml.getElementsByTagName("item")
   For i=0 To (item.Length-1)
   Set title=item.Item(i).getElementsByTagName("title")
   Set link=item.Item(i).getElementsByTagName("link")
   Response.Write("<a href="""& link.Item(0).Text &""" target=""_blank"">"& title.Item(0).Text &"</a><br>")
   Next
Else
   Response.Write("文档还未准备就绪。状态："& xml.ReadyState &"<br>")
End If
Set http=Nothing
Set xml=Nothing

Function GetLocationURL()
  Dim Url
  Dim ServerPort,ServerName,ScriptName,QueryString
  ServerName = Request.ServerVariables("SERVER_NAME")
  ServerPort = Request.ServerVariables("SERVER_PORT")
  ScriptName = Request.ServerVariables("SCRIPT_NAME")
  QueryString = Request.ServerVariables("QUERY_STRING")
  Url="http://"&ServerName
  If ServerPort <> "80" Then Url = Url & ":" & ServerPort
  Url=Url&ScriptName
  If QueryString <>"" Then Url=Url&"?"& QueryString
  GetLocationURL=Url
End Function
'<?xml version="1.0" encoding="gb2312"?>
<channel>
<item>
<title>新浪</title>
<link>http://www.zzzyk.com教程</link>
</item>
<item>
<title>google</title>
<link>http://www.zzzyk.com</link>
</item>
<item>
<title>百度</title>
<link>http://www.zzzyk.com</link>
</item>
</channel>
%>

补充：asp教程,高级应用