以下程序将避免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 |