详细注解ASPJPGE组件的添加水印用法

详细注解ASPJPGE组件的添加水印用法。
程序代码'------------为图片添加水印--------
Sub AddWaterMark(imagename)
'定义变量。
Dim Jpeg

Set Jpeg = Server.CreateObject('Persits.Jpeg')  ' 建立对象
Jpeg.Open trim(server.MapPath(imagename))  ' 图片所在位置
Jpeg.Canvas.Font.Color = '&HFFFFFF' ' 颜色 
Jpeg.Canvas.Font.Family = '宋体'  ' 设置字体

 '是否设置成粗体
Jpeg.Canvas.Font.Bold = false

Jpeg.Canvas.Font.ShadowColor = '&H000000' '//水印文字的阴影色彩。
Jpeg.Canvas.Font.ShadowXoffset = 1  '//水印文字阴影向右偏移的像素值，输入负值则向左偏移。
Jpeg.Canvas.Font.ShadowYoffset = 1  '//水印文字阴影向下偏移的像素值，输入负值则向右偏移。
Jpeg.Canvas.Font.Size = 12 '字体大小 
Jpeg.Canvas.Font.Quality = 3 ' 文字清晰度
Jpeg.Canvas.Print 5,5, ' 淡水河边 - [email protected]'   '水印文字,位置在原图的坐标的5,5处
Jpeg.Save Server.MapPath(imagename)  ' 保存文件
Set Jpeg = Nothing

End Sub
'---------------添加完毕------------------

调用：
Dim FilePath
FilePath='uploadpic/demo.jpg''图片路径
AddWaterMark FilePath