【转帖】本地图片，音乐等ASP真正完全防盗代码

Tony · 2004-11-12, 11:45 PM

<%
'定义函数，用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头等特殊功能就可以完全真正的实现防盗连，这里没有设置缓存，如果访问量巨大，我想设置下就会更好吧。

2004-11-12, 11:45 PM	#1
No1 Tony 坛主注册日期: 2003-10-22 帖子: 11,050 积分:6 精华:24 现金:14340金币资产:29325297金币	【转帖】本地图片，音乐等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头等特殊功能就可以完全真正的实现防盗连，这里没有设置缓存，如果访问量巨大，我想设置下就会更好吧。