一、为图片添加水印
<%
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, "梅河口论坛 MHKBBS.COM" '//水印文字，两个数字10为水印的xy座标
Jpeg.Save Server.MapPath("aaa_05.jpg") '//生成有水印的新图片及保存位置
Set Jpeg = Nothing '//注销组件，释放资源
Response.Write "<img src=aaa_05.jpg>" '//在该页显示生成水印后的图片
%>
________________________________________
二、生成缩略图
<%
Dim Jpeg '//声明变量
Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件
Jpeg.Open Server.MapPath("aaa.JPG") '//原图位置
Jpeg.Width = Jpeg.OriginalWidth/4 '//设图片宽度为原图的四分之一
Jpeg.Height = Jpeg.OriginalHeight/4 '//设图片高度为原图的四分之一
Jpeg.Sharpen 1, 130 '//设定锐化效果
Jpeg.Save Server.MapPath("aaa_small.jpg") '//生成缩略图位置及名称
Set Jpeg = Nothing '//注销组件，释放资源
Response.Write "<img src=aaa_small.jpg>" '//在该页显示生成缩略图
%>
