你现在的位置: 网站首页 > 资讯中心 > 正文

上传图片时添加PNG透明水印的ASP程序

文章来源: www.andasen.net 编辑:网站管理员 发布日期: 2013-3-8 13:12:25 浏览次数:
更多

我们在使用网站和制作网站程序时,都会用到图片水印程序,一般的文字加水印方式,满足不了需求,将制作好的PNG文件,最后是半透明的PNG,设置好参数后,可以自动添加水印,这样就不需要再用PS进行图片加水印了。如下为加PNG透明水印的示例。

源码:

<%
Function AddWater(n) 
Set Photo = Server.CreateObject("Persits.Jpeg") 
PhotoPath = Server.MapPath(n) 
Photo.Open PhotoPath 
Photo.Interpolation=1 
Photo.Quality=100 
iWidth=Photo.OriginalWidth 
iHeight=Photo.OriginalHeight 
iiwidth=waterwidth '水印图片的宽度 
iiheight=waterheight '水印图片的高度 
Photo.Canvas.DrawPNG iWidth-iiWidth-15, iHeight-iiHeight-15,Server.MapPath(watermark) 'Water.png即为水印图片 
Photo.save Server.mappath(n) '输出图片 
Set Photo = Nothing 
End Function
%>
<%
Call AddWater(FileName)'程序调用
%>


加水印后的图片示例:

 



业务联系

梁先生 Victor Leong

8:30-17:30(周一至周六)

0750-678 2240

(推销和广告电话请勿打扰)

日志分类