上传图片时使用jpeg添加PNG透明水印的ASP代码
我们在使用网站和制作网站程序时，都会用到图片水印程序，一般的文字加水印方式，满足不了需求，将制作好的PNG文件，最后是半透明的PNG，设置好参数后，可以自动添加水印，这样就不需要再用PS进行图片加水印了。如下为加PNG透明水印的示例。
这里使用组件 jpeg
<%
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("zzzyk.png") 'zzzyk.png即为水印图片
Photo.save Server.mappath(n) '输出图片
Set Photo = Nothing
End Function
%>
<%
Call AddWater(FileName)'程序调用
%>
