AspJpeg 2.0组件使用教程（GIF篇）

前一段时间就安装了AspJpeg 2.0，一直没有时间去测试，直到昨天晚上因为服务器无法访问才在本机测试下，特分享下测试结果，只针对GIF图片测试，JPEG的网上一大堆就没有必要重复了！

AspJpeg 2.0提供了以下新的特点：

1. 修复以前版本（1.0-1.8）可能被攻击的严重漏洞，建议更新为此版本。

2. Gif的输出。 aspjpeg不再局限于的JPEG输出。创造的Gif动画和透明度，支持现已以及。

3. 修复以前版本可能被攻击的严重漏洞，建议更新为此版本。

4. 元数据编辑。以前的版本只可检索，但不能进行编辑元数据。

5. 与aspjpeg 2.0的IPTC标签也可以补充和修改。

6. 新的绘画方法。加强绘图功能，画布对象，现在提供了新的方法drawpie ， drawroundrect和drawquad 。

2.0最新新特性就是支持Gif动态图像。

这是原始图片

<％  
'直接输出  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
    Set Gif = Jpeg.Gif  
        Gif.Open Server.MapPath("demo.gif")  
        Gif.SendBinary  
    Set Gif=Nothing  
Set Jpeg=Nothing  
％> 

这是加了水印的

<％  
'加文字水印  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
    Set Gif = Jpeg.Gif  
        Gif.Open Server.MapPath("demo.gif")  
        Gif.PenColor = 201  
        Gif.FontSize = 13  
        Gif.FontFamily = "Tahoma"  
        Gif.PrintText Gif.Width-80,Jpeg.Gif.Height-16, "FJ126.NET 蓝雨"  
        Gif.SendBinary  
    Set Gif=Nothing  
Set Jpeg=Nothing  
％>

这是缩略图效果，可以等比例缩略也可以按指定大小缩略，当然，也可以放大。

100*100

100*200

200*200

250*100

<％  
'动态图片缩小放大  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
    Set Gif = Jpeg.Gif  
        Gif.Open Server.MapPath("demo.gif")  
        Gif.Resize Gif.Width \2  
        Gif.SendBinary  
    Set Gif=Nothing  
Set Jpeg=Nothing  
％>