'添加水印图片 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'抽取掉白色背景,水印位于右下角 Jpeg.Save Server.MapPath(UploadDir&Request2.Form("LocalImage"))'保存文件 END IF