导读：迅雷、旋风和快车这些下载工具的确为我们带来很多的方便，但是这些工具如果下载自己服务器上的资源，会造成服务器负荷增加，严重地话会造成服务器服务的阻塞而瘫痪，那么作为站长的我们应该想办法屏蔽这些工具下载站内资源，这怎么实现呢？那就看看下面的代码吧。
<% '屏蔽主流的下载工具 Dim xurl,xtool '获取浏览器AGENT xurl = lcase(Request.ServerVariables("HTTP_USER_AGENT")) '定义禁止的AGENT，下面5个包含最新版的快车，旋风和迅雷部分版本，可以自行添加！xtool = "mozilla/4.0(compatible;msie5.00;windows98)"&_ "mozilla/4.0(compatible;msie6.0;windows+nt5.0)"&_ "mozilla/4.0(compatible;msie6.0;windowsnt5.1;)"&_ "mozilla/4.0(compatible;msie6.0;windowsnt5.0;.netclr1.1.4322)"&_ "mozilla/4.0(compatible;msie6.0;windowsnt5.0;.netclr3.5.20706)"&_ "mozilla/4.0(compatible;msie6.0;windowsnt5.1;sv1;.netclr1.1.4322;.netclr2.0.50727)" '判断AGENT是否合法 If InStr(xtool,xurl)>0 Then '下载工具直接报404错误 Response.Status = "404 Not Found" Response.End() End If '下面是其他的可以正常显示的代码 Response.Write "欢迎访问翔宇亭IT乐园网站，本网站提供电脑技术文章，休闲娱乐文章，请不要使用迅雷、快车或旋风下载站内资源，如需要请右击点击，另存到本地。" %>
最新文章
热门文章
猜你喜欢
