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
%>

nginx rtmp & hls 直播流服务器搭建+防盗链

1.下载 到http://nginx.org/下载最新稳定版本; 2.下载nginx-http-access    可以在https://github.com/search?q=&type=Repos...
  • huangqbio2
  • huangqbio2
  • 2016年09月18日 15:18
  • 3804

流媒体直播防盗链安全控制

转载自:http://blog.csdn.net/u013488847/article/details/45789071 防盗链概念主要是从网站的业务中起来,原有定义只要针对网站内容中的文字,图片被他...
  • wwwdc1012
  • wwwdc1012
  • 2017年05月17日 22:38
  • 794

php实现图片文件与下载文件防盗链的方法

本文实例讲述了php实现图片文件与下载文件防盗链的方法。分享给大家供大家参考。具体分析如下: 在php中最简单的防盗链办法就是利用php的$_SERVER['HTTP_REFERER']函数来操作了...
  • ccx_john
  • ccx_john
  • 2016年10月12日 14:25
  • 448

8种防盗链的方法

作为普通的网民来说,一般不需要知道也不用关心什么是盗链,不过如果你是网站的开发者或维护者,就不得不重视盗链的问题了。如果你刚刚开发完一个没有防盗链的带有文件下载功能的网站,挂上internet,然后上...
  • yue1183283159
  • yue1183283159
  • 2013年01月05日 22:21
  • 1356

Asp.Net MVC3 简单入门详解过滤器Filter(身份验证、缓存、防盗链、国际化等)

前言在开发大项目的时候总会有相关的AOP面向切面编程的组件,而MVC(特指:Asp.Net MVC,以下皆同)项目中不想让MVC开发人员去关心和写类似身份验证,日志,异常,行为截取等这部分重复的代码,...
  • sven_xu
  • sven_xu
  • 2015年06月02日 09:24
  • 786

nginx防盗链设置

做运维的朋友经常会有一些烦恼,比如网站总是被人抄袭,比如网站总是被人引用上面的图片,虽然一张图两张图,并不耗费很多流量,但一旦引用的人多了,这个还是比较废流量的。         防盗链就是禁止...
  • luhaoand
  • luhaoand
  • 2017年02月09日 14:58
  • 339

HTTP协议之防盗链与反防盗链

使用HTTP协议。利用referer做防盗链(不需要用PHP编写,而是在服务器层面控制就OK了) 我们在网页里访问站外的图片的时候,在图片本站是可以看得,在外头就不能看了 因为header信息...
  • h330531987
  • h330531987
  • 2017年04月06日 16:58
  • 509

防盗链的基本原理与实现

我的实现防盗链的做法,也是参考该位前辈的文章。基本原理就是就是一句话:通过判断request请求头的refer是否来源于本站。(当然请求头是来自于客户端的,是可伪造的,暂不在本文讨论范围内)。 首先我...
  • u013474436
  • u013474436
  • 2016年02月19日 11:28
  • 8004

8种网站防止盗链的方法

作为普通的网民来说,一般不需要知道也不用关心什么是盗链,不过如果你是网站的开发者或维护者,就不得不重视盗链的问题了。如果你刚刚开发完一个没有防盗链的带有文件下载功能的网站,挂上internet,然后上...
  • linshichen
  • linshichen
  • 2016年06月15日 10:10
  • 6385

【黑马Android】(19)response下载文件/验证码/防盗链/URL编码/jsp

response实现文件下载 1.Resonse的继承结构: ServletResponse--HttpServletResponse 2.Response代表响应,于是响应消息中的 状态码、响应头...
  • waldmer
  • waldmer
  • 2016年07月28日 06:59
  • 1125
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP下载系统防盗链方法
举报原因:
原因补充:

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