<%
url = "http://127.0.0.1/bookupdate.xml" ' 58044 是连云港相对应的天气预报码
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",url,False
http.send
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=true
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
If xml.ReadyState>2 Then
set res = xml.selectSingleNode("//qwbmbook")
book_up_open = res.getAttribute("uopen") '是否有更新内容
book_up_time = res.getAttribute("utime") '最后更新时间
book_up_urls = res.getAttribute("uurl") '更新内容对应的网址
End if
Set oNode = Nothing
Set oDoc = Nothing
response.write book_up_open & "____<br>"
response.write book_up_time & "____<br>"
response.write book_up_urls & "____<br>"
%>
苏公网安备 32070502010230号