最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp aspjpeg将多个图片合成gif动画
时间:2010-04-05 编辑:简简单单 来源:一聚教程网
<%
' 并给此gif动画加水印
'参数:
' str:图片相对地址,多个图片中间使用英文逗号隔开
Function creategif(str)
'多图动画输出
Dim Jpeg,Gif
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Gif = Jpeg.Gif
FileNames=Split(str,",")
Gif.
Gif.
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.
Else
Jpeg.
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, www.111com.net
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")
%>
-
上一个: asp 查询数据库所有表中存在某个字符串
-
下一个: asp 文件上传举例
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14