余志国网站设计工作室是专业从事义乌网站建设、义乌外贸网站建设、义乌网站制作、义乌网站设计的专业义乌网站建设工作室,是义乌外贸网站建设专家!

利用ASPJPEG为图片加水印及制作缩略图代码

分类:程序开发 Tags: aspjpeg 图片 缩略图 评论:0 浏览:4173 最近更新时间:2008/6/18 23:11:04

1、为图片加入水印功能
 
  1. Dim Jpeg
  2. Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
  3. Jpeg.Open BlogPath & "/pic/file1/" & FileName  ' 图片所在位置
  4. Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
  5. Jpeg.Canvas.Font.Family = "黑体"  ' 设置字体 
  6. Jpeg.Canvas.Font.Bold = False '是否设置成粗体 
  7. Jpeg.Canvas.Font.Size = 26 '字体大小 
  8. Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
  9. Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "www.yuzhiguo.com"   '水印文字
  10. Jpeg.Save BlogPath & "/pic/file1/" & FileName  ' 保存文件
  11. Set Jpeg = Nothing
2、为图片制作缩略图
 
  1. Set Jpeg = Server.CreateObject("Persits.Jpeg"'创建实例
  2. Path = Server.MapPath(BlogPath & "/pic/file1/" & FileName) '处理图片路径
  3. Jpeg.Open Path '打开图片
  4. '调整宽度和高度为原来的50%,也可以直接写固定的数字大小
  5. Jpeg.Width = Jpeg.OriginalWidth / 2
  6. Jpeg.Height = Jpeg.OriginalHeight / 2
  7. Jpeg.Save Server.MapPath(BlogPath & "/pic/file1/" & FileName) '保存图片到磁盘
  8. Jpeg.Close:Set Jpeg = Nothing 
3,AspJpeg v1.5.0.0下载地址:
http://www.yuzhiguo.com/pic/file1/AspJpegv1.5.0.0.rar
AspJpeg  序列号sn:48958-77556-02411
AspJpeg  序列号sn:71316-48529-38722

本文地址:https://www.yuzhiguo.com/358/
  • 相关文章
  • 推荐文章
  • 最新文章
发表评论





您的IP:18.232.99.123,来自:

留言

 


免费咨询
建站咨询热线
15967985565

扫一扫微信咨询
QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email