91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

 

function checkStatus(url)
checkStatus=false
IF Url="" OR ISNull(Url) then exit function
on error resume next
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",url,false
if timer-t > 3 Then
set xmlhttp=nothing
exit function
end if
XMLHTTP.send()

IF XMLHTTP.status=200 then
checkStatus=true
end if
set xmlhttp=nothing
end function

 

該文章在 2010/10/22 17:06:50 編輯過