精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

 

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