以下程序将避免90%以上的盗取天空链接时提示来自天空的信息。
这份程序的作用是先检测这个程序是否可以下载,如果可以下载,就自动下载,如不可以下载,即显示程序中的中文字,这些中文字大家可以随意修改!
打开down.asp页面
最下面找到
| '转向连接 response.redirect fileurl |
修改为
| '转向连接 if fileurl<>"" then ''判断是否有效 Function IsValidUrl(url) Set xl = Server.CreateObject("Microsoft.XMLHTTP") xl.Open "HEAD",url,False xl.Send IsValidUrl = (xl.status=200) End Function If IsValidUrl(""&fileurl&"") Then response.redirect fileurl Else Response.Write "由于下载用户过多,程序检测到文件暂时无法下载,请更换其他下载地址!感谢您对本软件网站的支持哦^_^" End If end if |
该博客介绍了一个程序,它能避免90%以上盗取天空链接时提示来自天空的信息。程序会先检测是否可下载,若能则自动下载,不能则显示可随意修改的中文字。还提到要打开down.asp页面并在最下面查找相关内容。
199

被折叠的 条评论
为什么被折叠?



