aspJpeg图片加图片水印的完美函数

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