url = "http://www.zkuvoeo.com/book/qwbm_book_update.xml"
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("http://qwbmbook")
book_up_open = res.getAttribute("uopen") '是否有更新內(nèi)容
book_up_time = res.getAttribute("utime") '最后更新時(shí)間
book_up_urls = res.getAttribute("uurl") '更新內(nèi)容對(duì)應(yīng)的網(wǎng)址
End if
Set oNode = Nothing
Set oDoc = Nothing
利用此方法制作的查看目標(biāo)網(wǎng)站是否有最新的更新信息。
蘇公網(wǎng)安備 32070502010230號(hào)