使用aspjpeg组件将多张静态图片合并成gif动态图片

有多张静态jpg图片，想合并成gif动态的，asp可以实现吗

明确告诉你，可以使用aspjpeg组件合并，但是需要2.0以上版本
<%
'功能：利用aspjpeg将多个图片合成gif动画
'并给此gif动画加水印
'参数：
' str:图片相对地址，多个图片中间使用英文逗号隔开
'开发:www.zzzyk.com

Function creategif(str)
'多图动画输出
Dim Jpeg,Gif
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Gif = Jpeg.Gif
FileNames=Split(str,",")
Gif.Width = 100
Gif.Height = 100
For i = 0 To UBound(FileNames)
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

Gif.PenColor = 235
Gif.FontFamily = "Tahoma"
Gif.FontSize = 13
Gif.PrintText 20,10, "aspprogram.cn"
Next
Gif.SendBinary '在浏览器中输出此图片
'Gif.Save Server.MapPath("zzzykcom.gif") '保存为zzzykcom.gif图片
Set Gif=Nothing
Set Jpeg=Nothing
End Function
Call creategif("images/1.jpg,images/2.jpg,images/3.jpg,images/4.jpg") '开始调用
%>
大家都试试吧