基于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(“/file/UploadPic/20112/5/201125112644502.jpg”) ””//生成有水印的新图片及保存位置
Set Jpeg = Nothing ””//注销组件，释放资源
Response.Write “<img src=/file/UploadPic/20112/5/201125112644502.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(“/file/UploadPic/20112/5/201125112644475.jpg”) ””//生成缩略图位置及名称
Set Jpeg = Nothing ””//注销组件，释放资源
Response.Write “<img src=/file/UploadPic/20112/5/201125112644475.jpg>” ””//在该页显示生成缩略图
％>
[code]
aspjpeg组件高级使用方法介绍
aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。
这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：
图片缩略
图片水印
安全码技术
图片切割
图片合并
数据库支持
更多不常用的方法介绍
以及相关的一些实用技术
aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。另外，本人比较懒，所以有些代码仍然引用于原文档，不懂的地方偶会加以解释！
学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。
一、图片缩略
[code]
<％
Set Jpeg = Server.CreateObject(“Persits.Jpeg”) 调用组件
Path = Server.MapPath(“images”) & “\clock.jpg” 待处理图片路径
Jpeg.Open Path 打开图片
高与宽为原图片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
保存图片
Jpeg.Save Server.MapPath(“images”) & “\clock_small.jpg”
％>
[code]
<IMG SRC=/file/UploadPic/20112/5/201125112644341.jpg”> 查看处理的图片
二、图片水印
[code]
<％
Set Jpeg = Server.CreateObject(“Persits.Jpeg”)
Jpeg.Open Server.MapPath(“images/dodge_viper.jpg”)
开始写文字
Jpeg.Canvas.Font.Color = &H000000”” white 颜色
Jpeg.Canvas.Font.Family = “Courier New” 字体
Jpeg.Canvas.Font.Bold = True 是否加粗
Jpeg.Canvas.Print 10, 10, “Copyright (c) XYZ, Inc.”
打印坐标x 打印坐标y 需要打印的字符
以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000”” black 颜色
Jpeg.Canvas.Pen.Width = 2 画笔宽度
Jpeg.Canvas.Brush.Solid = False 是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
起始X坐标 起始Y坐标 输入长度 输入高度
Jpeg.Save Server.MapPath(“images/dodge_viper_framed.jpg”) 保存
％>