aspjpeg组件通用加水印函数代码
日期：2010-02-11 浏览次数：20912 次
aspjpeg组件实现加水印函数的调用方法：
<%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %>
| 以下是引用片段： function printwater(waterpath,upfilepath) Dim Logobox,LogoPath,ogvbox LogoPath = Server.MapPath(waterpath) Set Logobox = Server.CreateObject("Persits.Jpeg") Logobox.Open LogoPath Logobox.Width = 108 Logobox.Height = 65 Set ogvbox = Server.CreateObject("Persits.Jpeg") ogvbox.Open Trim(Server.MapPath(upfilepath)) ogvbox.Canvas.Pen.Color = &H000000 ’//增加水印后图片的边框色彩。 ogvbox.Canvas.Pen.Width = 1 ’//增加水印后图片的边框宽度。 ogvbox.Canvas.Brush.Solid = False ’//边框内是否填充颜色，你可以试试看值为True时的效果^o^ ogvbox.DrawImage ogvbox.width-108, ogvbox.height-65, Logobox, 0.6 ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ogvbox.Save Server.MapPath(upfilepath) Set Logobox=Nothing Set ogvbox=Nothing end function |
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
