淡水河边的博客

ASPJPEG是一款功能相当强大的图象处理组件，用它可以轻松地做出图片的缩略图和为图片加上水印功能。呵呵，应该都知道了。先说制作缩略图吧
1、为图片制作缩略图
<%
" ###建立实例###
Dim Jpeg,Path
Set Jpeg = Server.Cr&#101;ateObject("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.Cr&#101;ateObject("Persits.Jpeg")
" 打开目标图片
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
" 添加文字水印
Jpeg.Canvas.Font.Color = &amp;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.Cr&#101;ateObject("Persits.Jpeg")
LocalJpeg.Open (LocalFile) "打开处理图片
Set Logo = Server.Cr&#101;ateObject("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
%>
以上代码，淡水河边这厮都测试通过了。