Dim Jpeg,Logo Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(UploadDir&Request2.Form("LocalImage"))'打开图片 '添加文字[url=http://www.google.com/custom?client=pub-4111920013853982&forid=1&ie=utf-8&oe=utf-8&hl=zh-CN&q=%E6%B0%B4%E5%8D%B0]水印[/url] 'Jpeg.Canvas.Font.Color = &HFF0000' 红色 'Jpeg.Canvas.Font.Family = "Verdana" 'Jpeg.Canvas.Font.Size = 15 'Jpeg.Canvas.Font.ShadowColor = &HCCCCCC  '[url=http://www.google.com/custom?client=pub-4111920013853982&forid=1&ie=utf-8&oe=utf-8&hl=zh-CN&q=%E6%B0%B4%E5%8D%B0]水印[/url]文字的阴影色彩。 'Jpeg.Canvas.Font.ShadowXoffset = 2  '阴影右偏移，负值则左偏移。 'Jpeg.Canvas.Font.ShadowYoffset = 2  '阴影下偏移，负值则右偏移。 'Jpeg.Canvas.Font.Quality = 1  '[url=http://www.google.com/custom?client=pub-4111920013853982&forid=1&ie=utf-8&oe=utf-8&hl=zh-CN&q=%E6%B0%B4%E5%8D%B0]水印[/url]文字清晰度，从0～4 'Jpeg.Canvas.Font.ShadowColor = &H999999 'Jpeg.Canvas.Pen.Width = 1 'Jpeg.Canvas.Brush.Solid = True 'Jpeg.Canvas.Font.Bold = True   'Jpeg.Canvas.Print Jpeg.width-171, Jpeg.height-38, "blog.goalerCN.com" 'Jpeg.Canvas.Print Jpeg.width-201, Jpeg.height-20, "Copyright (c) Goaler's BLOG" '添加[url=http://www.google.com/custom?client=pub-4111920013853982&forid=1&ie=utf-8&oe=utf-8&hl=zh-CN&q=%E6%B0%B4%E5%8D%B0]水印[/url]图片 Set Logo = Server.CreateObject("Persits.Jpeg")  Logo.Open Server.MapPath("canvasLogo.gif") IF(Jpeg.width-8>Logo.width AND Jpeg.height-8>Logo.height)THEN     Logo.Sharpen 0.7,120     Jpeg.DrawImage Jpeg.width-Logo.width-8,Jpeg.height-Logo.height-8,Logo,1,&HFFFFFF'抽取掉白色背景,[url=http://www.google.com/custom?client=pub-4111920013853982&forid=1&ie=utf-8&oe=utf-8&hl=zh-CN&q=%E6%B0%B4%E5%8D%B0]水印[/url]位于右下角     Jpeg.Save Server.MapPath(UploadDir&Request2.Form("LocalImage"))'保存文件 END IF  Set Logo = Nothing'注销对象 Set Jpeg = Nothing'注销对象