用Persits.Jpeg水印效果实现不了，怎么解决？

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