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 imgheight="" then imgheight = imgwidth*jpeg.originalheight / jpeg.originalwidth
if imgheight<>"" and imgwidth="" then imgwidth = imgheight*jpeg.originalwidth / jpeg.originalheight
jpeg.width = imgwidth ''''//設圖片寬度
jpeg.height = imgheight ''''//設圖片高度
jpeg.sharpen 1, 130 ''''//設定銳利化效果
jpeg.save newimgurl ''''//產生縮圖位置及名稱
set jpeg = nothing ''''//登出組件，釋放資源
end sub

'aspjpeg 1.4下載
http://down.111cn.net/down/soft/object/2009/0227/38.html
'aspjpeg v1.9.0.1圖片組件下載
http://down.111cn.net/down/soft/object/2009/0523/3311.html