午夜视频在线观看区二区-午夜视频在线观看视频-午夜视频在线观看视频在线观看-午夜视频在线观看完整高清在线-午夜视频在线观看网站-午夜视频在线观看亚洲天堂

 

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 編輯過(guò)