备份,ASP验证网址是否有效并可以访问

2010年07月03日 01:13 by:lao8
备份,ASP验证验证网址是否有效并可以访问
  1. Function aspurl(dz)
  2.     on error resume next  '这段是防止当检测的网页不能访问时出错
  3.     Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
  4.     xmlHttp.open "GET",dz,false
  5.     xmlHttp.send
  6.     if xmlHttp.Status =200 then '当被检测的网址可以访问就会返回200状态码
  7.         aspurl=true
  8.     else
  9.         aspurl=false
  10.     end if
  11. End Function

调用方法:response.write aspurl( "http://www.lao8.org")