惊云下载系统偷天空避免产生链接来自天空软件站的信息程序

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