利用AspJpeg组件给上传图片自动加水印
作者:懒人斋
利用AspJpeg组件给上传图片自动加水印，在使用该组件前请测试你的服务器是否支持。
在你的上传文件（如：upfilea.asp）中加入以下代码：
程序代码
Dim Jpeg'' 水印部分代码开始
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(FileName) '获取图片，根据实际情况更改
Jpeg.Canvas.Font.Color = &330066'' 绿色'' '设置文字水印颜色
Jpeg.Canvas.Font.Family = "宋体" '设置文字字体
Jpeg.Canvas.Font.Size = 12 '设置字体大小
Jpeg.Canvas.Pen.Width = 2 '画笔宽度
Jpeg.Canvas.Font.Quality = 1 ' 设置文字清晰度
Jpeg.Canvas.Font.Bold = True '设置字体加粗
Jpeg.Canvas.Print 180, 420, "Lounger.cn" '定义水印文字
Jpeg.Save Server.MapPath(FileName) '保存文件，根据实际情况更改
Set Jpeg = Nothing ' 注销对象 水印部分结束
该代码已测试通过，支持ASP。 ---
转载请注明本文标题和链接：《利用AspJpeg组件给上传图片自动加水印》
发表评论