ASPjpeg同时添加文字和图片水印

by 清泉 24. 二月 2009 12:33
     Set Jpeg = Server.CreateObject("Persits.Jpeg")
     Jpeg.Open Server.MapPath("www.supidea.jpg")
     Jpeg.Canvas.Font.Color = &h00
     Jpeg.Canvas.Font.Family = "楷体_GB2312"
     Jpeg.Canvas.Font.Bold = false
     Jpeg.Canvas.Font.Size = 21 '字体大小
     'Jpeg.Canvas.Font.ShadowColor = &hFFFFFF '阴影色彩
     'Jpeg.Canvas.Font.ShadowYOffset = 1
     'Jpeg.Canvas.Font.ShadowXOffset = 1
     Jpeg.Canvas.Brush.Solid = false
     Jpeg.Canvas.Font.Quality = 4 '输出质量
     Jpeg.Canvas.Print 215, 150, "证书编号:"&UserID &" Supidea.com"'可以多次加文字水印
      dim Logobox
      Set Logobox = Server.CreateObject("Persits.Jpeg")
      Logobox.Open Server.MapPath("picback1.bmp")
      Jpeg.DrawImage 345, 560, Logobox, 1,&hF5EECA,90 '// 加入图片的位置价坐标(添加水印图片) 其中hF5EECA为要去除的底色的色值
     Jpeg.Save Server.MapPath("/NewPic/"&UserID&".jpg")
     set jpeg=nothing

DrawImage 参数说明:
Jpeg.DrawImage 345, 560, Logobox, 1,&hF5EECA,90
其中345为X轴坐标,560为Y轴坐标,LogoBox为添加的水印图片的Binary值,1为图片透明度(设置为0.5表示50%的透明度,如果为1则为不透明),&hF5EECA为去除底色的颜色值,其实他就是RGB的色值,只是把RGB值的 #换成了&h,最后面的90就是请允许去除底色的色彩偏差值。

Tags:

ASP技术资料

评论

添加评论



(将显示你的Gravatar头像)  

biuquote
微笑得意调皮害羞酷大笑惊讶发呆喜欢可怜尴尬闭嘴噘嘴皱眉伤心抓狂呕吐坏笑漫骂发怒
Loading



Supidea.com 晨飞的梦 @ All Rights Reserved. Powered by BlogYi.NET ver:1.8.0.0. 苏ICP备09011404号

关于博主

kamau
抱着美好的理想背井离乡,这酸甜苦辣只能默默忍受。既然选择了路,就得风雨兼程……

Calendar

<<  五月 2012  >>
30123456
78910111213
14151617181920
21222324252627
28293031123
45678910

在日历中查看文章

最近的评论

Comment RSS

声明

      本博所发一切破解相关附件只作学习研究交流之用,严禁用于商业用途,请在下载24小时内删除。
      本博所有网友评论不代表本博立场,版权归其作者所有。

© Copyright 2009