检测某一地址是否有效.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 22 行

<%
response.write "检查是否开机<br>"
on error resume next
set xml=Server.createobject("Microsoft.XMLHTTP") 
xml.open "get","http://www.mcsz.com/ss.mdb",false
xml.send
ints=xml.status
strs=xml.statustext
if isnumeric(ints) then
   if ints=12007 or  strs="Unknown" then
     response.write "地址出错<br>"
   end if
    if ints=404  then
     response.write "找不到文件<br>"
    else
    response.write "地址正确<br>"
    end if
end if
if response.buffer then 
response.flush
end if
%>