给产品图片添加水印，是很多客户网站都需要的一个功能，添加图片水印可以防止被盗图，还可以打上公司品牌广告，编程之家今天跟大家分享：aspJpeg图片加图片水印的完美函数。
编程之家推荐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
第二个aspjpeg图片水印函数
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
