Dim stream
Set stream = Server.CreateObject("ADODB.Stream")

With stream
    .Type = 1
    .Open
    .LoadFromFile _
        Server.MapPath(Request.QueryString("File") & ".gz")
End With


Dim agent
agent = Request.Servervariables("HTTP_USER_AGENT")

With Response
    If Instr(agent, "Firefox") > 0 Or Instr(agent, "AppleWebKit") > 0 Then
        .AddHeader "Content-Encoding", "deflate"
    Else
        .AddHeader "Content-Encoding", "gzip"    
    End If

    .AddHeader "Content-Length", stream.Size
    .BinaryWrite stream.Read
End With

由于部分浏览器的Content-Encoding只支持deflate．所以特意做了判断，以免失效。

先用ie测试。打开GZip.ASP?file=x.jpg（测试地址：http://www.etherdream.com/Test/bomb.html），正常显示出图片，紧接着硬盘灯狂闪。。。关闭网页之后，打开浏览器缓存文件夹。果然，1G大小缓存已产生！

接着用火狐测试。不过没等图片出来，浏览器已经卡死了。等了数分钟仍然没有响应，只得结束任务。

用Chrome测试。内存暴涨，最终图片倒是正常显示出来了，不过页面经常崩溃。

Opera一切正常，也没产生特别大的缓存文件。当然，不同版本的浏览器大不相同，可以自己测试。

不过，几个最常用的浏览器有效果就行了。

我们可以将图片插入到邮件里，或论坛贴图，如果不幸被火狐用户点中，那将当场炸死；webkit内核的浏览器则严重拖慢了系统速度；最杯具当属 ie用户了，不知不觉被吞走了1G的硬盘空间，如果插入多个的话则更多倍，只要url参数不同！如果配合HTTP重定向，定向到带有随机参数的url，那 么每次访问页面又会加载并缓存一次！

No.3 ———— 收邮件时暴露IP

（严重程序：高）

这一招其实没有任何技术含量，也不是什么BUG，连缺陷也算不上。仅仅是一种小技巧而已。

既然网页里的图片可以外链，那就意味着可以访问任何服务器，包括我们自己的。在服务器上稍作记录，就可以轻易获得访问者的ip。

这对于论坛来说没多大意义。因为论坛里面访客众多，很难知道哪个ip是谁的。但电子邮件就不一样了，很少会有其他人来用你的邮箱。

当我们向某个人发送一封邮件，里面有个不起眼的图片，外链到我们的cgi程序上。当他打开邮件时，cgi程序接收到了他的请求，自然也就探测到了ip。为了防止图不裂开，返回一个微小的图片，以防发现破绽。

对于QQ邮件这类有推送提示的邮箱，对方很快就会打开邮件，尤其是写一个比较真实的邮件标题。

利用这点，我们可以写个邮件群发的脚本，向多个QQ发送探测邮件。我们把每个email对应图片的url里带上唯一参数，以区分不同的邮箱。

不出一时半日，当接收者陆续打开邮件，他们的ip也随之暴露。即使用代理上网，也能通过HTTP的HTTP_X_FORWARDED_FOR字段获得真实ip地址。

通过ip地理定位，很快就可以知道他们最近在哪里。如果有相同的ip，说不定他们正在一个内网里呢：）

防范措施

因为图片保存在外部，所以完全不在自己的可控范围里。即使用户外链的是合法的图片，也只能意味的是当前，而不是以后，因为用户可以更新外链的内容，甚至可以针对不同的ip返回不同的内容。因此要完全防住，只能在客户端上分析图片的内容，后台最多起到辅助作用。

在目前版本的百度贴吧里，因为图片会显示在贴吧的主页面上，所以对外链的安全性已极大的增强。当用户使用外链的形式插入图片时，后台服务器会不 定期的检查图片的合法性，如果存在异常则会删除此图片。如果同样的站点出现多次异常情况，则会进入黑名单。虽然仍有部分疏漏，但相比没有要好的多。对于空 间相册，或者可信站点的图片，则不会反复的扫描检测。

类似的，像微博这类传播性极强的应用，则完全不能使用外链。即使需要，也是由代理服务器读取，再返回给用户，因此就从根本上排除了安全隐患。

原文：http://www.cnblogs.com/index-html/archive/2012/08/15/extern_img.html