Public Function AddPersitsPic(Path,pic)
'************加图片水印**********************
Dim Jpeg,Jpeg1
'建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
'打开要加水印的图片
Jpeg.Open Server.MapPath(Path)
'透明图片水印图
Jpeg1.Open Server.mappath(pic)
'Jpeg.Canvas.Pen.Color = &H000000 '//增加水印后图片的边框色彩。
'Jpeg.Canvas.Pen.Width = 0 '//增加水印后图片的边框宽度。
'Jpeg.Canvas.Brush.Solid = True '//边框 内是否填充颜色,你可以试试看值为True时的效果^o^
'合并图Jpeg.Width/2-200,Jpeg.Height/2-95
Jpeg.Canvas.DrawImage Jpeg.OriginalWidth-180,Jpeg.OriginalHeight-105,Jpeg1,0.4
' 保存文件
Jpeg.Save Server.MapPath(Path)
' 注销对象
Set Jpeg = Nothing
Set Jpeg1 = Nothing
转载于:https://www.cnblogs.com/ahwankong/archive/2013/05/31/3110908.html