ASP组件AspJpeg 加水印 生成缩略图等运用方法

ASP组件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 "<img src=aaa_05.jpg>" ''''//在该页显示生成水印后的图片

%>

ASP图片水印AspJpeg v1.8 特别版

二、生成缩略图

代码如下:

<%

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是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。

这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：

图片缩略

图片水印

安全码技术

图片切割

图片合并

数据库支持

更多不常用的方法介绍

以及相关的一些实用技术

aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。另外，本人比较懒，所以有些代码仍然引用于原文档，不懂的地方偶会加以解释！

学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。

一、图片缩略

代码如下:

<%

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"

%>

<IMG SRC="images/clock_small.jpg"> 查看处理的图片

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!