悠悠博客 关注Ajax技术与web开发

ASPJPEG是一款功能相当强大的图象处理组件，用它可以轻松地做出图片的缩略图和为图片加上水印功能。呵呵，应该都知道了。先说制作缩略图吧
1、为图片制作缩略图
<% 
' ###建立实例###
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' ###图片所在位置###
Path = Server.MapPath("images/clock.jpg")
' ###打开###
Jpeg.Open Path
' ###设置缩略图大小（这里比例设定为原图的50%）###
'###OriginalWidth属性为原图的宽,OriginalHeight为原图的高###
'###也可以直接指定Width和Height 属性为具体数值###
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' ###保存缩略图到指定文件夹下###
Jpeg.Save Server.MapPath("images/clock_small.jpg"") 
' ###注销实例###
Set Jpeg = Nothing
%>

2、为图片加入水印功能
   2.1加入文字水印
<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True 
Jpeg.Canvas.Print 10, 10, "Copyright (c) TSINGFENG.com"
' 保存文件
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")
' 注销对象
Set Jpeg = Nothing
%> 

   2.2加入图片水印
<%
LocalFile="d:\apple.jpg" 
LogoFile="d:\logo.jpg"
TargetFile="d:\myapplelogo.jpg"
Set LocalJpeg = Server.CreateObject("Persits.Jpeg") 
LocalJpeg.Open (LocalFile) '打开处理图片
Set Logo = Server.CreateObject("Persits.Jpeg") 
Logo.Open (LogoFile) '打开水印图片
LocalJpeg.DrawImage 255,280, Logo, 0.5 '0,0是位置,0.5是透明度
TempA=localJpeg.binary
response.BinaryWrite TempA'将二进输出给浏览器 
LocalJpeg.Save (TargetFile) '保存加了水印的图片
set TempA=nothing
Logo.close
LocalJpeg.close
%>
以上代码，由淡水河边提供。