AspJpeg 2.0使用教程（GIF篇）

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 
%> 

最新的图片合并为动态图片功能

合并后效果

代码如下：

<%  
'多图动画输出  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
Set Gif = Jpeg.Gif  
 
    Dim FileNames(3)  
        FileNames(0) = "1.jpg" 
        FileNames(1) = "2.jpg" 
        FileNames(2) = "3.jpg" 
 
    Gif.Width = 100  
    Gif.Height = 100  
 
    For i = 0 To 2  
        Jpeg.Open Server.MapPath(FileNames(i))  
        Jpeg.PreserveAspectRatio = True 
        if Jpeg.OriginalWidth > 100 or Jpeg.OriginalHeight > 100 Then 
            if Jpeg.OriginalWidth > Jpeg.OriginalHeight Then 
               Jpeg.Width = 100  
            Else 
               Jpeg.Height = 100  
            End if 
        End if 
    Gif.AddImage Jpeg, (100 - Jpeg.Width) / 2, (100 - Jpeg.Height) / 2  
    Gif.DisposalMethod =2  
    Next 
    Gif.SendBinary  
Set Gif=Nothing 
Set Jpeg=Nothing 
%> 

最实用的莫过于Gif图片生成

代码比较复杂，需要花点时间去适应

<%  
'生成动态图片  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
Set Gif = Jpeg.Gif  
Dim MarketShare  
    MarketShare = 6  
For i = 1 to 5  
    Gif.AddFrame 300, 200, 0, 0  
    Gif.PenColor = 10  
    Gif.BrushColor = 10  
    Gif.DrawBar 0, 0, 300, 200  
    Gif.PenColor = 201  
    Gif.FontFamily = "Tahoma" 
    Gif.FontSize = 13  
    Gif.PrintText 60,13, "AspJpeg 2.0 生成动态图像测试" 
    Gif.PrintText Gif.Width-85,Jpeg.Gif.Height-16, "FJ126.NET 蓝雨" 
    Gif.PrintText 120, 50, 2003 + i  
    Gif.PenColor = 0  
    Gif.BrushColor = 30  
    Gif.DrawPie 150, 130, 50, 0, MarketShare * 360 / 100  
    Gif.BrushColor = 20  
    Gif.DrawPie 150, 130, 50, MarketShare * 360 / 100, 360  
    Gif.PenColor = 210  
    Gif.PrintText 200, 100, MarketShare & "%" 
    MarketShare = MarketShare * 2 - 3  
    if i = 5 then Gif.Delay = 300  
Next 
Gif.SendBinary  
%> 

上面的实例代码全部都是直接输出，如果需要保存处理后的图片，直接把代码里面Gif.SendBinary换成Gif.Save Server.MapPath("rotation.gif")即可！

提供下AspJpeg2.0的注册版下载：

PS：安装后没用是因为你没给ASPJPEG组件目录权限，请给于目录于Everyone读取的权限。