Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET","http://localhost/xml.xml",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 ;""">"; title.Item(0).Text ;"</a><br>") Next Else Response.Write("文档还未准备就绪。状态:"; xml.ReadyState ;"<br>") End If Set http=Nothing Set xml=Nothing