- ·上一篇文章:最简单的方法将Asp站变成Jsp站
- ·下一篇文章:asp和js在线运行和复制代码的代码
asp利用aspjpeg合成gif动并加水印
今天发现aspjpeg一个好玩的功能,合成gif动画。但首先,你的机器上必须安装aspjpeg组件,下载地址:/html/soft/2007112374242.html
<
%
'功能:利用aspjpeg将多个图片合成gif动画
' 
 
 
并给此gif动画加水印
'参数:
' str:图片相对地址,多个图片中间使用英文逗号隔开
'开发:www.aspprogram.cn
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("1.gif") '保存为1.gif图片
 
 
 
Set Gif=Nothing 
Set Jpeg=Nothing 
End Function
Call creategif("images/1.jpg,images/2.jpg,images/3.jpg,images/4.jpg") '开始调用 
%>
默认图片:
示例图片:一
示例图片:二
示例图片:三
示例图片:四
最后合成效果:
代码下载地址:/html/soft/200977125657.html
asp利用aspjpeg合成gif动并加水印