基于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, “不败顽童工作室” ””//水印文字，两个数字10为水印的xy座标
Jpeg.Save Server.MapPath(“aaa_05.jpg”) ””//生成有水印的新图片及保存位置
Set Jpeg = Nothing ””//注销组件，释放资源
Response.Write “

水印效果如下：