注:如果你是用Fireworks来处理LOGO图片,在导出图片的时候用Alpha透明而不要用索引透明!
Dim Jpeg,Logo
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(UploadDir&Request2.Form("LocalImage"))'打开图片
'添加文字水印位于右下角
Jpeg.Save Server.MapPath(UploadDir&Request2.Form("LocalImage"))'保存文件
END IF
Set Logo = Nothing'注销对象
Set Jpeg = Nothing'注销对象
本文来源:
网梦CMS小程序,转载请注明出处!如果需要
合肥网站建设 合肥小程序开发 合肥微信开发 合肥APP开发请联系刘经理,我们将提供上门服务!
联系方式:手机:13355693937 QQ:43171398 或扫一扫下面二维码加我微信: