日本xxxx18视频在线观看-日本xxxx1819-日本xxxwww在线观看-日本xxx-日本xx-日本www在线视频

 

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 編輯過