注：如果你是用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'注销对象