2.8w+
社区成员
高分求ASP代码★★★★★关于防止盗链
目前我看比较有效的防止盗链的方法就只有是定期的更新自己的文件夹的路径了
我在一个WEB的目录下面建立一个存放下载文件的文件夹X
通过htpp://x.x.x.x/文件夹X/文件名称 来访问文件
…………
这个的部分使用ASP程序动态的修改
现在是寻求一个ASP代码 可以实现上述的功能
引用的时候 是类似的形式
htpp://x.x.x.x/download.asp?filename=hello.zip
使用FLASHGET或者右键另存为就可以下载到真实的文件
我在一个WEB的目录下面建立一个存放下载文件的文件夹X
通过htpp://x.x.x.x/文件夹X/文件名称 来访问文件
…………
这个的部分使用ASP程序动态的修改
现在是寻求一个ASP代码 可以实现上述的功能
引用的时候 是类似的形式
htpp://x.x.x.x/download.asp?filename=hello.zip
使用FLASHGET或者右键另存为就可以下载到真实的文件
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
newKoala 2004-08-25
我主要是想把MP3文件免费提供给我的论坛的注册用户
但是不希望非登陆用户下载音乐文件，给服务器造成不必要的负担
此外我的音乐文件希望通过SERV-U来提供
目的是希望可以控制带宽 防止下载的人太多 把服务器下崩溃
寻求方案 解决好后 用万首MP3答谢各位
但是不希望非登陆用户下载音乐文件，给服务器造成不必要的负担
此外我的音乐文件希望通过SERV-U来提供
目的是希望可以控制带宽 防止下载的人太多 把服务器下崩溃
寻求方案 解决好后 用万首MP3答谢各位
evafly920 2004-08-12
mark
中国无忧商务网（http://www.cn5135.com）
志同道合的朋友可以一起来做，让我们一起把它做大做强！
MSN:eFongNet@Hotmail.com QQ:7733349
中国无忧商务网（http://www.cn5135.com）
志同道合的朋友可以一起来做，让我们一起把它做大做强！
MSN:eFongNet@Hotmail.com QQ:7733349
butcher2002 2004-08-12
建议你可以通过每天自动更改文件夹名字，也就是改路径的方法防止盗链
你文件路径应该是从数据库读的吧~就从数据库里改，批量改就可以了~
你文件路径应该是从数据库读的吧~就从数据库里改，批量改就可以了~
海大富运动 2004-08-12
up
叮咚叮咚叮叮咚 2004-08-12
学习下~~好像很多下载站点都是到另外一个页面然后再加判断之类然后进行跳转的~
newKoala 2004-08-12
清晨自己顶！！！
happyweidy 2004-08-11
单纯用asp代码来实现防盗链效果是不太理想的，特别是楼主说的修改路径，如果你修改的时候有很多人正在下载怎么办？？二楼的方法还是不错的，不过效率是有问题的，不知道能不能续传，而且用户随便发送欺骗的head请求就可以下了。IIS里可以做一个isapi过滤，在下载的文件后面加参数判断，ftp可以通过动态用户名实现，realserver的方法就更多了，呵呵。
欢迎到我的站http://www.uudog.com/一起来讨论防盗连技术。
欢迎到我的站http://www.uudog.com/一起来讨论防盗连技术。
newKoala 2004-08-11
BlueDestiny(蓝色||命运) 你好
你的这个方法 如果别人看一下代码 好像仍然可以被发现真实的连接吧
此外 我突然有这样的一个问题
就是不光要限制盗链 同时还要考虑服务器的负载问题 也就是带宽的限制以及登陆人数的限制 防止因为下载影响正常的页面访问 还有就是防止人数过多导致 服务器不堪重负
你的这个方法 如果别人看一下代码 好像仍然可以被发现真实的连接吧
此外 我突然有这样的一个问题
就是不光要限制盗链 同时还要考虑服务器的负载问题 也就是带宽的限制以及登陆人数的限制 防止因为下载影响正常的页面访问 还有就是防止人数过多导致 服务器不堪重负
BillSmiph 2004-08-11
mark
BlueDestiny 2004-08-11
我收藏的一个防盗链的方法，不知道对你有没有用
----------------------------------------------------
<%
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 "非法链接！" '防止盗链
response.end
end if
if Request.Cookies("Logined")="" then
response.redirect "/login.asp" '需要登陆！
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
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
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))="pdf" then '设置pdf类型文件目录
TrueFileName = "/the_pdf_file_s/"&FileName
end if
if lcase(right(FileName,3))="doc" then '设置DOC类型文件目录
TrueFileName = "/my_D_O_C_file/"&FileName
end if
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
TrueFileName = "/all_images_/"&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
%>
----------------------------------------------------
<%
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 "非法链接！" '防止盗链
response.end
end if
if Request.Cookies("Logined")="" then
response.redirect "/login.asp" '需要登陆！
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
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
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))="pdf" then '设置pdf类型文件目录
TrueFileName = "/the_pdf_file_s/"&FileName
end if
if lcase(right(FileName,3))="doc" then '设置DOC类型文件目录
TrueFileName = "/my_D_O_C_file/"&FileName
end if
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
TrueFileName = "/all_images_/"&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
%>
newKoala 2004-08-11
自己顶一下
着急啊
我现在就在等着解决好盗链问题
然后把我的几千首MP3歌曲放出去
着急啊
我现在就在等着解决好盗链问题
然后把我的几千首MP3歌曲放出去
《信息学竞赛-C/C++入门》 C++语言 尹成老师带你步入C++语言基础的殿堂，讲课生动风趣、深入浅出，全套视频内容充实，整个教程以C++语言为核心，完整精彩的演练了C++语言操作流程以及各种精彩的小项目等，提高竞赛能力，非常适合同学们学习！
一次性掌握所有 Python 画图基础操作 pythonpythonpython 画图介绍 本文以实用为第一目标，...我们使用 matplotlib 来进行 pythonpythonpython 画图，具体的库加载以及初始设置代码如下所示。 import numpy as np # 加载数学库用于函数描述 import matp...
基于Java和MySQL的图书管理系统 Java图书管理系统 设计人：... 而且编写用的笔记本电脑是高分屏，在本机上显示大小是正好的，到别的电脑上面有可能会出现界面过大的情况。 具体的文档注释已经生成，打开doc文件夹其中的index文件查看整个项目的注释
图像分割综述 关于图像分割技术，由于问题本身的重要性和困难性，从20世纪70年代起图像分割问题就吸引了很多研究人员为之付出了巨大的努力。虽然到目前为止，还不存在一个通用的完美的图像分割的方法，但是对于图像分割的一般性...
2020王道操作系统，数据结构，计算机网络，计算机组成原理PDF大合集+使用经验 2020王道操作系统，2020王道数据结构，2020王道计算机网络，2020王道计算机组成原理pdf大合集 资料链接: ...一年又一年，参加计算机考研的...一般情况下，计算机统考408想考130/140分左右的高分还是比较难的。 但个人觉...
慕课哈工大c语言程序设计精髓第4周编程题在线测试 假设一个班级中的学生分为A、B两类，A类同学学习热情很高，乐于做题，采用compete模式可以获得成就感并且在期末拿到高分，compete模式可以让他们有10分的收益；采用standard模式他们也可以在期末拿到高分，但不能...
c语言程序设计精髓第四章编程题 假设一个班级中的学生分为A、B两类，A类同学学习热情很高，乐于做题，采用compete模式可以获得成就感并且在期末拿到高分，compete模式可以让他们有10分的收益；采用standard模式他们也可以在期末拿到高分，但不能...
java实现从键盘上输入学生成绩，求总分、平均分、最高分、最低分，并升序排列、降序排列 java实现从键盘上输入学生成绩，求总分、平均分、最高分、最低分，并升序排列、降序排列 用数组存储成绩 1、录入，求总分、平均分 2、求最高分、最低分 —打擂台，胜了，站擂台 3、排序（升序、降序） —...
Git安装配置教程中文-Windows Git 中文安装教程，本文提供全流程...Git —— 分布式管理方案，关于它的强大之处，网络上是铺天盖地的资料，我就不班门弄斧了 不知道 Git 是什么的，就去 菜鸟教程 简单了解下先 话不多说，我们来完成 Git 的安装！
ENVI5.3.1高分2号影像预处理流程 ENVI5.3.1高分2号影像预处理流程 从中国资源卫星应用中心下载的高分2号数据归档为1级产品，需要经过一系列的预处理，主要处理流程包括： 多光谱影像→辐射定标→大气校正→正射校正 全色影像→辐射定标→正射...
利用ENVI实现landsat 5地表温度反演 1：将landsat 5数据进行大气校正 2：计算NDVI, 3:利用混合相元法计算植被覆盖度 fv= 代表裸地的NDVI值，代表全部植被覆盖的NDVI值 根据自己的实际情况确定上述两个值，比如为-0.2，为0.7 ...利用envi的波段运算...
使用NDWI提取水体详细流程 以高分二号影像为例，介绍使用ENVI计算NDWI提取水体，最后生成shpfile文件输出 1. 在ENVI中加载影像 2.计算NDWI：在菜单栏中依次选择：Basic Tools->Band Math,然后在 enter an expression中输入表达式： ( ...
2018浙大计算机考研经验 在我和一些高分同学交流中，大家都能在考研期间保证十分专注，抛弃其他的私心杂念，更为高效的备考。切记不要水群！切记不要水群！切记不要水群！ 高中班主任曾说过高考如同一场马拉松赛跑，在此我想说考研也是...
WPF开发教程 在 WPF 的早期设计阶段，曾有过大量关于如何界定系统的托管组件和非托管组件的争论。CLR 提供一系列的功能，可以令开发效率更高并且更加可靠（包括内存管理、错误处理和通用类型系统等），但这是需要付出代价的。 ...
遥感科普|中国高分系列卫星综述(2020版) 遥感科普|中国高分系列卫星综述(2020版) 文章来源：卫星遥感大数据公众号 高分系列卫星概述 中国高分系列卫星是"高分专项"所规划的高分辨率对地观测的系列卫星。它是《国家中长期科学和技术发展规划纲要（2006～...
19跨考中科大计算机408经验贴 过年前我看了一遍离散和数据库，看了一半的编译原理的视频，后来太难了就看不下去了，机试我看了王道机试宝典，敲了一点代码，然后浑浑噩噩外加过年走亲戚到了二月中旬出成绩，我2.22才又开始复习吧，学校图书馆刚...
IDL下高分二号完整预处理代码 下面写的太LOW了，有好多值得修改的地方，修改更新后博客地址： ... ...今天去不了Earth Engine，所以就写了一点IDL的代码。...主要包括对高分二号数据的正射校正，（裁剪），辐射定标，...
