gpt4 book ai didi

aspjpeg组件通用加水印函数代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章aspjpeg组件通用加水印函数代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

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 。

最后此篇关于aspjpeg组件通用加水印函数代码的文章就讲到这里了,如果你想了解更多关于aspjpeg组件通用加水印函数代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com