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）

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