ASP+XMLHTTP检测文件是否存在(掉链，坏链)
文章来源：365jz.com 点击数：733 更新时间：2009-11-06 20:49 参与评论
因为音乐文件来自互联网搜索，各种原因使得音乐文件经常会掉链或者就成了死链，要解决这个问题必须先知道哪些歌曲链接掉了。
检测远端文件是否存在，使用XMLHTTP与远端文件交互返回的Status而做出决定
已经完成功能的函数如下，此前请确保本地已经安装有 msxml3.dll
（在电脑上注册这个文件，请点击“开始>运行”然后输入：regsvr32 msxml3.dll）
自定义的函数chku()，通过XMLHTTP对象于相关文件（路径）交互返回状态值Status，通过该Status值做出判断函数输出。
完整的检测代码如下：
检测远端文件是否存在，使用XMLHTTP与远端文件交互返回的Status而做出决定
已经完成功能的函数如下，此前请确保本地已经安装有 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 %> |
如对本文有疑问，请提交到交流论坛，广大热心网友会为你解答！！ 点击进入论坛
您可能感兴趣的文章:
------分隔线----------------------------
