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 &"
")
   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("
")
   Next
 Else
   Response.Write("文档还未准备就绪。状态："& xml.ReadyState &"
")
 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="
  If ServerPort "80" Then Url = Url & ":" & ServerPort
  Url=Url&ScriptName
  If QueryString "" Then Url=Url&"?"& QueryString
  GetLocationURL=Url
 End Function
 '


 
  http://ww*w*.11*1cn


 
  https://www.**111*cn.net


 
  https://www.**111*cn.net


%>