国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

 

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