开发学院WEB开发ASP ASP一个检测链接是否正常的函数 阅读

ASP一个检测链接是否正常的函数

 2009-05-07 10:39:40 来源:WEB开发网   
核心提示:<%Function urlChk(sUrl)on error resume nextSet xmlHttp = Server.CreateObject("Microsoft.xmlhttp")xmlHttp.open "GET",sUrl,falsexmlHttp.sen

<%
Function urlChk(sUrl)
on error resume next
Set xmlHttp = Server.CreateObject("Microsoft.xmlhttp")
xmlHttp.open "GET",sUrl,false
xmlHttp.send
   if xmlHttp.Status <> 200 then
     urlChk=false
   else
     urlChk=true
   end if
End Function

sUrl="http://code.dlstu.cn"

if urlChk(sUrl) then
   response.write(sUrl&"(可以正常访问!)")
else
   response.write(sUrl&"(页面打开错误!)")
end if
%>

Tags:ASP 一个 检测

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接