精美而实用的网站，关注web编程技术、网站运营、SEO推广，让您轻松愉快的学习

给产品图片添加水印，是很多客户网站都需要的一个功能，添加图片水印可以防止被盗图，还可以打上公司品牌广告，青岛星网今天跟大家分享：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
Tags：ASP aspJpeg 水印