一、为图片添加水印

<%
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>" '//在该页显示生成缩略图
%>

但是要使用这两段代码，必须先在服务器上安装Aspjpeg组件！

评论