ASP防盗链及防下载的方法（2）
来源：51windows 发布时间：2007-09-19 12:22:00
标签：防盗链,防下载,盗链,asp
本地图片，音乐等ASP防盗链代码(asp)
<％
'定义函数，用ADODB.Stream读取二进制数据
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function
Response.AddHeader "Content-Disposition", "attachment;filename=2.gif"'文件名
Response.ContentType = "image/GIF" ’设置（1）
response.Binarywrite ReadBinaryFile(server.mappath("2.gif"))'就是你读取存在本地的文件，防止被
别人知道真实路径盗连的。
％>
1）下面的示例将 ContentType 属性设置为其他的常见值。
text/HTML 这个就不说了
image/GIF gif图片
image/JPEG jpg图片
application/x-cdf cdf文档
application/wma 就是西瓜哪个音乐类型了
具体可以参照 Web 浏览器文档或当前的 HTTP 规格说明
这样再利用asp的储存session，cookies，以及读取HTTP头等特殊功能就可以完全真正的实现防盗连，这里没有设置缓存，如果访问量巨大，我想设置下就会更好吧。
0
投稿猜你喜欢
- <SCRIPT language="JavaScript"><!-- Beginfunction mo
记得当时我们要跟网友天下合作,需要这样的一个鼠标划过放大的列表效果,就写了一个效果截图：演示代码：<!DOCTYPE html PUB- js关于 byval 与 byref 二者区别： byval 传递数值，实参和形参分处不同的内存单元，互不干扰！ byref 传递地址，实参
- 在浏览器 IE6 、IE7、Firefox2+、Firefpx3+、Opera9.6+、Safari3.1+中测试以下代码：<!DOC
- 举例如下，一个服务器端的form 代码自动被解释成客户端代码：服务器端代码： &l
- froglt 的站点：http://www.go2here.net 欢迎转载，请注明出处，未经作者允许，禁止一切商业应用。这是即
- 很实用的过滤重复数据的asp代码，函数如下：<％'**************************************
- if rs.bof then 表示：当前指针的位置是在第一行记录之前 if rs.eof then 表示：当前指针的位置是在最后一行记录之后
- 很多网友在经典论坛里说自己的网站为什么色彩上总是有问题，总是看起来没什么精神，没办法吸引人注意。小毅观察了一些网友们设计的网站发现他们在用色
- 以下是引用片段：Function c2u(myText) Dim i c2u = "" For i = 1 to Len
- 本文列出了初学网页编程中常用到的一些代码和一些技巧，简单实用，您一定用得到。1、oncontextmenu="window.eve
- 如果你的网站涉及个人隐私或者机密性非公开的网页，怎样告诉禁止搜索引擎收录抓取，下面侯庆龙说下以下方法，希望对不想被搜索引擎收录抓取网站有所帮
- 由于连续的字符（字母、符号、数字）在默认情况下是不换行的，可能会破坏整个界面布局。那如何解决这个问题呢？在 IE 和 Safari 1.3+
- 非原创：英文版混乱的标记语言XHTML2/HTML5源文地址：漫画英文版源文地址感谢我的同事Kevin Jaw的翻译。他的博客地址是：Kev
- 内容摘要：在网页制作中，有许多的术语，例如：CSS、HTML、DHTML、XHTML等等。在下面的文章中我们将会用到一些有关于HTML的基本
- 很久没有跟其他人做重构思想方面的交流了，可能大家都觉得不太好意思讨论，特别是“分离”的思想这么基础的话题，拿出来说怕会被“笑话”。做为页面重
- 当一张的数据达到几百万时，你查询一次所花的时间会变多，如果有联合查询的话，我想有可能会死在那儿了。分表的目的就在于此，减小数据库的负担，缩短
- 在写ASP网页时常用的检测代码:服务器现在时间:<％ =now ％>服务器CPU型号:<％=Request.ServerV
- 1.查看mysql上都有哪些库mysql> show databases \G***************************
- CSS写法：overflow-y:visible本代码适用平台：IE6，IE7演示：<textarea style="wid
