ASP下载系统防盗链方法

原创 2005年03月03日 14:22:00


以动感下载系统为例:

   打开文件 SoftDown.Asp 在:
   if request.QueryString(ID)= then
   response.write 不能连接或者没有指定下载软件
   response.end
   end if
   的上面或者是下面加上下列代码

   dim strReferer,domain,splDomain,isHttp
   isHttp=false

   '本站下载系统网址列表,不要带上http://
   domain=sron.net,61.156.14.223,61.156.14.227

   splDomain=split(domain,,)
   strReferer=Request.ServerVariables(HTTP_REFERER)
   for iii = 0 to ubound(splDomain)
   if instr(strReferer,trim(splDomain(iii)))>0 then isHttp=True
   next
   if isnull(strReferer) or isHttp=false then
   Response.Write 下载链接来自其他网站,这是不允许的,
   CloseDatabase
   response.end
   end if

用Asp实现防盗链技术(带自动返回功能)

源文件代码:
------------------------------------------------------------------------------------------------------------------------
<%
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "<b>非法链接!<br><span id=yu>3</span><a href=javascript:countDown></a>秒钟后系统将自动返回首页......</b>"
response.write "<meta http-equiv=refresh content=3;url=index.asp>"
response.write "<SCRIPT>valignbottom()</SCRIPT>"
response.write "<script>function countDown(secs){yu.innerText=secs;if(--secs>0)setTimeout('countDown('+secs+')',1000);}countDown(3);</script>"
response.end
end if



Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
  longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
    Response.Write "无效文件名!"
    Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
    Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
        Response.Write "非法操作!"
        Response.End
End Select
Response.Clear
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
if lcase(right(FileName,3))="rar" then '设置文件类型
TrueFileName = "/files/"&FileName '设置文件目录的相对路径
end if
Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
    Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

Asp防盗链的实现方法

 此篇为镜像,欢迎到独立博客www.gocn.net.cn/blog访问更多   ASP防盗链对于广告做网站的朋友来说一直是个头疼的问题,盗链严重影响了服务器及网站的正常运行,放盗链变的十分需要了,今...
  • nboman
  • nboman
  • 2008-01-09 11:02:00
  • 841

用Asp隐藏文件路径实现防盗链

如果我们知道一个静态文件的实际路径如:http://www.xx.com/download/51windows.pdf,如果服务器没有作特别的限制设置,我们就可以毫不费力的把它下载下来!当网站提供51...
  • hejishan
  • hejishan
  • 2007-12-18 02:57:00
  • 230

web网站防盗链系统

  • 2009年03月04日 13:02
  • 73KB
  • 下载

ASP.NET简单实现图片防盗链

原理很简单,就是对请求的文件进行判断,若图片请求的URL地址上不是我们自己网站上的域名,则说明图片被盗链了,此时就可以用一张特定的版权图片进行替换,以保护自己站点的资源不被随意引用。 首先,需要在G...
  • BohemianLife
  • BohemianLife
  • 2012-12-28 20:38:52
  • 844

ASP防盗链及防下载的方法

2007-05-12 21:34如果我们知道一个静态文件的实际路径如:http://www.helixapp.com/sown/51windows.pdf,如果服务器没有作特别的限制设置,我们就可以...
  • peon
  • peon
  • 2007-05-17 22:45:00
  • 1433

如何使用ASP隐藏图片的地址和判断是否盗链

第一种方法 使用response.Redirect :   Dim filename    filename=request("file")    response.Redirect "...
  • lbuskeep
  • lbuskeep
  • 2012-04-28 13:11:34
  • 904

nginx系统真正有效的图片防盗链完整设置详解

关于nginx防盗链的方法网上有很多教程,都可以用,但是我发现很多教程并不完整,所做的防盗链并不是真正的彻底的防盗链! 一般,我们做好防盗链之后其他网站盗链的本站图片就会全部失效无法显示,但是您如果通...
  • longjef
  • longjef
  • 2016-11-22 11:45:16
  • 4250

dz 论坛 帖子图片破解防盗链设置。

文件已loadimg.php 放根目录  内部代码 修改文件\s
  • lihaiboas1
  • lihaiboas1
  • 2012-07-05 16:39:23
  • 2359

防盗链完美解决方案

  • 2013年12月12日 15:01
  • 9KB
  • 下载

图片防盗链破解代码ASP

  • 2013年04月19日 18:53
  • 5KB
  • 下载
收藏助手
不良信息举报
您举报文章:ASP下载系统防盗链方法
举报原因:
原因补充:

(最多只允许输入30个字)