asp为图片添加文字水印（AspJpeg组件）

<%
Dim Jpeg   '//声明变量

Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件

Jpeg.Open Server.MapPath("aaa.JPG") '//源图片位置

Jpeg.Canvas.Font.Color = &H000000 '//水印字体颜色

Jpeg.Canvas.Font.Family = "宋体" '//水印字体

Jpeg.Canvas.Font.Size = 14 '//水印字体大小

Jpeg.Canvas.Font.Bold = False '//是否粗体，粗体用：True

Jpeg.Canvas.Font.BkMode = &HFFFFFF '//字体背景颜色

Jpeg.Canvas.Print 10, 10, "阳春热线 yangchun.org" '//水印文字，两个数字10为水印的xy座标

Jpeg.Save Server.MapPath("aaa_05.jpg") '//生成有水印的新图片及保存位置

Set Jpeg = Nothing '//注销组件，释放资源

Response.Write "<img src=aaa_05.jpg>" '//在该页显示生成水印后的图片
%>