首页 > 代码库 > AspJpeg组件给图片加透明图片水印 (from www.sysoft.cc)
AspJpeg组件给图片加透明图片水印 (from www.sysoft.cc)
‘aspjpeg --PNG格式‘将pic.jpg打上logo.png,可根据图片大小对水印图做适当调整filename="pic.jpg" ‘原始图片Set Jpeg1 = Server.CreateObject("Persits.Jpeg")Jpeg1.Open Server.MapPath(filename) iWidth=Jpeg1.OriginalWidth ‘图片的宽度iHeight=Jpeg1.OriginalHeight ‘图片的高度iiwidth=204 ‘水印图片的宽度iiheight=32 ‘水印图片的高度‘水印图居左上jpeg1.Canvas.DrawPNG 5, 5,Server.MapPath("logo.png") ‘水印图居右上‘jpeg1.Canvas.DrawPNG iWidth-iiWidth-5, 5, Server.MapPath("logo.png") ‘水印图居左下 ‘jpeg1.Canvas.DrawPNG 5, iHeight-iiHeight-5, Server.MapPath("logo.png") ‘水印图居右下‘jpeg1.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("logo.png")‘水印图居中‘jpeg1.Canvas.DrawPNG iWidth/2-iiWidth/2, iHeight/2-iiHeight/2, Server.MapPath("logo.png")jpeg1.save Server.mappath(filename) ‘保存打上水印的图片将覆盖原图,亦可另存Set Jpeg1 = Nothing如果需要透明度,ps打开调整png文件透明参数后使用。
‘合并图片水印 ‘dim Jpeg1‘ Set Jpeg1 = Server.CreateObject("Persits.Jpeg")‘ Jpeg1.Open Server.mappath("images/shuiyin.gif")‘ Jpeg.Canvas.DrawImage jpegX,jpegY,Jpeg1,jpegT,&HFFFFFF‘gif格式 jpegX表示距离左侧位置margin-left,jpegY表示距离顶端位置margin-top,jpegT表示合并后的透明度
AspJpeg组件给图片加透明图片水印 (from www.sysoft.cc)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。