ASP利用XMLHTTP检测网址URL是否可访问

ASP利用XMLHTTP检测网址URL是否可访问，网址是否有效，网站是否在线。检测目标网址是否有效。

我借鉴了网上的一个例子：http://topic.csdn.net/t/20020712/00/868049.html

修改之后，做成函数方式，就变成自己的，如下：

<%Function GetUrlStatus(url)
  set obj = createObject("Microsoft.XMLHTTP") 
  On  Error Resume Next 
  obj.Open "get",url,FALSE 
  obj.Send 
  if Err.Number <> 0 then 
    GetUrlStatus= Err.Description'False
  else 
    if obj.Status = 200 then 
    GetUrlStatus= "OK"'True
    else   
    GetUrlStatus= "Maybe  down,   returned   status:"   &   obj.Status'False
    end   if 
  end if 
  set obj = nothing 
End Function%>

函数引用：<%=GetUrlStatus("http://edwin.jkqun.com/blog/default.asp")%>

[本日志由 edwin 于 2010-04-10 03:42 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: ASPASP XMLHTTPXMLHTTP 网址网址 URLURL 网站在线网站在线