• 相关软件
    >本地图片,音乐等ASP真正完全防盗代码 创建者:webmaster 更新时间:2005-06-08 21:52

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