ASP+XMLHTTP检测文件是否存在(掉链)
因为http://www.164.cc/blog的音乐文件来自互联网搜索,各种原因使得音乐文件经常会掉链或者就成了死链,要解决这个问题必须先知道哪些歌曲链接掉了。
检测远端文件是否存在,使用XMLHTTP与远端文件交互返回的Status而做出决定
有关Status,参看 http://www.cnbruce.com/blog/showlog.asp?cat_id=34&log_id=1140
已经完成功能的函数如下,此前请确保本地已经安装有 msxml3.dll
(在电脑上注册这个文件,请点击“开始>运行”然后输入:regsvr32 msxml3.dll)
自定义的函数chku(),通过XMLHTTP对象于相关文件(路径)交互返回状态值Status,通过该Status值做出判断函数输出。
完整的检测代码如下:
测试网页时带参数u,参数u的值即是远程文件(路径)比如:
http://www.cnbruce.com/test/ajax/chku.asp?u=http://www.164.cc
http://www.cnbruce.com/test/ajax/chku.asp?u=http://www.dw8.cn/nihaohello
检测远端文件是否存在,使用XMLHTTP与远端文件交互返回的Status而做出决定
有关Status,参看 http://www.cnbruce.com/blog/showlog.asp?cat_id=34&log_id=1140
已经完成功能的函数如下,此前请确保本地已经安装有 msxml3.dll
(在电脑上注册这个文件,请点击“开始>运行”然后输入:regsvr32 msxml3.dll)
Function chku(murl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",murl,false xmlHttp.send if xmlHttp.Status <> 200 then chku=false else chku=true end if End Function |
自定义的函数chku(),通过XMLHTTP对象于相关文件(路径)交互返回状态值Status,通过该Status值做出判断函数输出。
完整的检测代码如下:
<% url=request.querystring("u") Function chku(murl) on error resume next Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET",murl,false xmlHttp.send if xmlHttp.Status <> 200 then chku=false else chku=true end if End Function if chku(url) then response.write(url&"(链接正常)") else response.write(url&"(掉链、坏链、死链)") end if %> |
测试网页时带参数u,参数u的值即是远程文件(路径)比如:
http://www.cnbruce.com/test/ajax/chku.asp?u=http://www.164.cc
http://www.cnbruce.com/test/ajax/chku.asp?u=http://www.dw8.cn/nihaohello
申明
非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!
博文欢迎转载,但请给出原文连接。