注：如果你是用Fireworks来处理LOGO图片，在导出图片的时候用Alpha透明而不要用索引透明！
DimJpeg,Logo
SetJpeg=Server.CreateObject("Persits.Jpeg")
Jpeg.OpenServer.MapPath(UploadDir&Request2.Form("LocalImage"))'打开图片
'添加文字水印
'Jpeg.Canvas.Font.Color=&HFF0000'红色
'Jpeg.Canvas.Font.Family="Verdana"
'Jpeg.Canvas.Font.Size=15
'Jpeg.Canvas.Font.ShadowColor=&HCCCCCC'水印文字的阴影色彩。
'Jpeg.Canvas.Font.ShadowXoffset=2'阴影右偏移，负值则左偏移。
'Jpeg.Canvas.Font.ShadowYoffset=2'阴影下偏移，负值则右偏移。
'Jpeg.Canvas.Font.Quality=1'水印文字清晰度，从0～4
'Jpeg.Canvas.Font.ShadowColor=&H999999
'Jpeg.Canvas.Pen.Width=1
'Jpeg.Canvas.Brush.Solid=True
'Jpeg.Canvas.Font.Bold=True
'Jpeg.Canvas.PrintJpeg.width-171,Jpeg.height-38,"blog.goalerCN.com"
'Jpeg.Canvas.PrintJpeg.width-201,Jpeg.height-20,"Copyright(c)Goaler'sBLOG"
'添加水印图片
SetLogo=Server.CreateObject("Persits.Jpeg")
Logo.OpenServer.MapPath("canvasLogo.gif")
IF(Jpeg.width-8>Logo.widthANDJpeg.height-8>Logo.height)THEN
Logo.Sharpen0.7,120
Jpeg.DrawImageJpeg.width-Logo.width-8,Jpeg.height-Logo.height-8,Logo,1,&HFFFFFF'抽取掉白色背景,水印位于右下角
Jpeg.SaveServer.MapPath(UploadDir&Request2.Form("LocalImage"))'保存文件
ENDIF
SetLogo=Nothing'注销对象
SetJpeg=Nothing'注销对象
【水印测试(重新测试)】相关文章：
★ 利用xmlhttp和adodb.stream加缓存技术下载远程Web文件
★ 批量复制数据