给产品图片添加水印,是很多客户网站都需要的一个功能,添加图片水印可以防止被盗图,还可以打上公司品牌广告,青岛星网今天跟大家分享:aspJpeg图片加图片水印的完美函数。
'这里成功的关键在于:水印图片一定要是png格式的,且在去掉背景格式的,即透明图片格式。 Function qdxwshuiyin(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=200 '水印图片的宽度 iiheight=60 '水印图片的高度 Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("qdxw.png") 'qdxw.png即为水印图片 Photo.save Server.mappath(n) '输出图片 Set Photo = Nothing End Function
function shuiYin(picName) dim Jpeg,Jpeg1 Set Jpeg = Server.CreateObject("Persits.Jpeg") Set Jpeg1 = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(picName) Jpeg1.Open Server.mappath("images/tmsy.gif")'这里是水印图片的URL Jpeg.Canvas.DrawImage Jpeg.Width-160,Jpeg.Height-50,Jpeg1,0.8,&HFFFFFF Jpeg.Save Server.MapPath(picName) '保存 if Jpeg.err>0 then OutScript("parent.UploadError('水印添加错误!')") end if set Jpeg=nothing Set Jpeg1 = Nothing end function