'建立实例 Set Jpeg = Server.CreateObject("Persits.Jpeg") Set Jpeg1 = Server.CreateObject("Persits.Jpeg") '打开要加水印的图片 Jpeg.Open Server.mappath(路径) '透明图片水印图 Jpeg1.Open Server.mappath("../Images/sy.gif") '合并图 Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF ' 保存文件 Jpeg.Save Server.mappath(路径) ' 注销对象 Set Jpeg = Nothing Set Jpeg1 = Nothing加透明图片水印,实际上就是将两个图合并,最关键的就是这一句:Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF 其中0.6是透明度,1是不透明,值越小,透明越大,0就什么也看不见了。&HFFFFFF这个参数是最关键的,这是透明图片水印图的背景色,这个参数必须与透明图片水印图的背景一样,不然的话就实现不了透明了。就是我们不想看到的那一部分色。 本文来自CSDN博客,转载请标明出处:
AspJpeg组件给图片加透明图片水印
最新推荐文章于 2011-04-19 15:07:00 发布