aspjpeg 给图片加图片或文字加水印，生成缩略图代码实例

'

函数名：watermarkfont
'作 用：给图片加文字水印
'参 数：imgurl 原图地址
' fontcolor 文字颜色
' fontfamily 文字字体
' fontsize 文字字号
' fontbold 文字是否加粗
' fontposx 文字定位x
' fontposy 文字定位y
' font 文字内容
' newimgurl 新图片输出地址交
'****************************************************
sub watermarkfont(imgurl,fontcolor,fontfamily,fontsize,fontbold,fontposx,fontposy,font,newimgurl)
dim jpeg ''''//声明变量
set jpeg = server.createobject(defaultjpeg) '//调用组件
jpeg.open server.mappath(imgurl) '//源图片位置
jpeg.canvas.font.color = "&h"&fontcolor '//水印字体颜色
jpeg.canvas.font.family = fontfamily '//水印字体
jpeg.canvas.font.size = fontsize '//水印字体大小
jpeg.canvas.font.bold = fontbold '//是否粗体，粗体用：true
jpeg.canvas.print fontposx, fontposy, font '//水印文字，两个数字10为水印的xy座标
jpeg.save server.mappath(newimgurl) ''''//生成有水印的新图片及保存位置
set jpeg = nothing ''''//注销组件，释放资源
end sub

'****************************************************
'

函数名：watermarkpic
'作 用：给图片加图片水印
'参 数：imgurl 原图地址
' logourl logo原图地址
' logowidth logo的缩放尺寸 宽度
' logoposx logo相对于原图的x定位
' logoposy logo相对于原图的y定位
' newimgurl 新图片的输出地址
'****************************************************
sub watermarkpic(imgurl,logourl,logowidth,logoposx,logoposy,newimgurl)
dim photo,logo
set photo = server.createobject(defaultjpeg)
set logo = server.createobject(defaultjpeg)
photo.open server.mappath(imgurl)
logo.open server.mappath(logourl)
logo.width = logowidth
logo.height = logo.width * logo.originalheight / logo.originalwidth
photo.drawimage logoposx, logoposy, logo ,0.5, &h000000 'logo图片x，y，logo，透明度，去掉颜色
photo.save server.mappath(newimgurl)
end sub

'****************************************************

'函数名：thumbnailimg
'作 用：制作图片的缩略图
'参 数：imgurl 原图地址
' imgwidth 新图的宽
' imgheight 新图的高
' newimgurl 新图的存放地址
'****************************************************
sub thumbnailimg(imgurl,imgwidth,imgheight,newimgurl)
dim jpeg ''''//声明变量
if instr(imgurl,":")=0 then imgurl = server.mappath(imgurl)
if instr(newimgurl,":")=0 then newimgurl = server.mappath(newimgurl)
set jpeg = server.createobject(defaultjpeg) ''''//调用组件
jpeg.open imgurl ''''//原图位置
if imgwidth<>"" and img then imgheight = imgwidth*jpeg.originalheight / jpeg.originalwidth
if imgheight<>"" and img then imgwidth = imgheight*jpeg.originalwidth / jpeg.originalheight
jpeg.'''//设图片宽度
jpeg.'''//设图片高度
jpeg.sharpen 1, 130 ''''//设定锐化效果
jpeg.save newimgurl ''''//生成缩略图位置及名称
set jpeg = nothing ''''//注销组件，释放资源
end sub

'aspjpeg 1.4下载
http://down.111com.net/down/soft/object/2009/0227/38.html
'aspjpeg v1.9.0.1图片组件下载
http://down.111com.net/down/soft/object/2009/0523/3311.html