<
%
url = " http://www.sina.com.cn "
Function chku(murl)
on error resume next
Set xmlHttp = Server.CreateObject( " Microsoft.XMLHTTP " )
xmlHttp.open " GET " ,murl, false
xmlHttp.send
if xmlHttp.Status <> 200 then
chku = false
else
chku = true
end if
End Function
if chku(url) then
response.write(url & " (链接正常) " )
else
response.write(url & " (掉链、坏链、死链) " )
end if
% >
url = " http://www.sina.com.cn "
Function chku(murl)
on error resume next
Set xmlHttp = Server.CreateObject( " Microsoft.XMLHTTP " )
xmlHttp.open " GET " ,murl, false
xmlHttp.send
if xmlHttp.Status <> 200 then
chku = false
else
chku = true
end if
End Function
if chku(url) then
response.write(url & " (链接正常) " )
else
response.write(url & " (掉链、坏链、死链) " )
end if
% >