ASP防盗链及防下载的方法（2）

 本地图片，音乐等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头等特殊功能就可以完全真正的实现防盗连，这里没有设置缓存，如果访问量巨大，我想设置下就会更好吧。