Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","XXX",False
http.send
Response.Write(http.responseText)
Set XMLObj=Server.CreateObject("MicroSoft.XMLDOM")
XMLObj.Async = False
XMLObj.ValidateOnParse = False
XMLObj.loadXML(http.responseText)
If XMLObj.ReadyState = 4 Then
Set XMLNode = XMLObj.getElementsByTagName("item")
Dim week,menu1,menu2,menu3
'Response.Write("Node:"&XMLNode.length&"<br>")':Response.End()
Response.Write(XMLNode.length)
For i=0 to XMLNode.length-1
a = XMLNode.item(i).getElementsByTagName("title").item(0).text
Response.Write(a)
Next
'week = XMLNode(i).getAttribute("week")'week
'If Err Then Err.Clear
'If Err Then FlightNum3="":Err.Clear
'DateTimeChanged=XMLNode(i).SelectSingleNode("DATETIMECHANGED").Text'更新时间
'If Err Then DateTimeChanged="":Err.Clear
'Registration=XMLNode(i).SelectSingleNode("REGISTRATION").Text'注册
'If Err Then Registration="":Err.Clear
End If
Set http = Nothing
Set XMLObj = Nothing
http.Open "GET","XXX",False
http.send
Response.Write(http.responseText)
Set XMLObj=Server.CreateObject("MicroSoft.XMLDOM")
XMLObj.Async = False
XMLObj.ValidateOnParse = False
XMLObj.loadXML(http.responseText)
If XMLObj.ReadyState = 4 Then
Set XMLNode = XMLObj.getElementsByTagName("item")
Dim week,menu1,menu2,menu3
'Response.Write("Node:"&XMLNode.length&"<br>")':Response.End()
Response.Write(XMLNode.length)
For i=0 to XMLNode.length-1
a = XMLNode.item(i).getElementsByTagName("title").item(0).text
Response.Write(a)
Next
'week = XMLNode(i).getAttribute("week")'week
'If Err Then Err.Clear
'If Err Then FlightNum3="":Err.Clear
'DateTimeChanged=XMLNode(i).SelectSingleNode("DATETIMECHANGED").Text'更新时间
'If Err Then DateTimeChanged="":Err.Clear
'Registration=XMLNode(i).SelectSingleNode("REGISTRATION").Text'注册
'If Err Then Registration="":Err.Clear
End If
Set http = Nothing
Set XMLObj = Nothing