asp下的一个检测链接是否正常的函数
程序员文章站
2022-03-25 21:01:32
function urlchk(surl) on error resume next set xmlhttp =...
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="//www.jb51.net"
if urlchk(surl) then
response.write(surl&"(可以正常访问)")
else
response.write(surl&"(访问不了)")
end if
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="//www.jb51.net"
if urlchk(surl) then
response.write(surl&"(可以正常访问)")
else
response.write(surl&"(访问不了)")
end if
推荐阅读
-
asp 下用正则表达式检测邮箱格式的函数
-
asp代码实现检测组件是否安装的函数
-
asp 实现检测字符串是否为纯字母和数字组合的函数
-
ASP下检测图片木马的函数代码
-
python 2.7 检测一个网页是否能正常访问的方法
-
在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数。
-
在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数
-
在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数。
-
在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数。
-
在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序。请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数