ASP检测URL可访问性并可替换的函数

isurl(url1,url2)

通过xmlhttp验证网址的有效性，其中url1为要验证的网址，url2为如果出错，希望替换的网址。

代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

function isurl(url1,url2)

  Set xmlHttp = CreateObject("Msxml2.XMLHTTP") '创建对象

  On Error Resume Next               '错误处理

  xmlHttp.Open "POST", url1, False '用 "POST" 方法异步打开连接

  xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"  '发送表单数据

  xmlHttp.Send  '向服务器发送 HTTP 请求

  If Err.Number = 0 Then   '如果成功

    isurl=url1

  Else

    isurl=url2   '如果错误

  End If

  Set xmlHttp = nothing   '释放对象

end function



'试验

aa="http://www.114dxs.com"

bb="http://www.115dxs.com"

response.write isurl(aa,bb)

%>