aspjpeg组件通用加水印函数代码
来源:asp之家 时间:2011-04-04 10:32:00
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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
EXEC(EXECUTE)函数访问INSERTED或DELETED的内部临时触发表
网页制作了解什么是CSS hack?
RS.GETROWS使用详解
如何获取文件的名称和扩展名?
Mootools 1.2教程(10)——Fx.Tween的使用
Oracle数据表分区的策略
读写xml文件的2个小函数
对用户研究实践的思考
![](https://img.aspxhome.com/file/UploadPic/201010/19/01-90s.jpg)
网站中美好的细节
![](https://img.aspxhome.com/file/UploadPic/20117/13/1538480-38s.jpg)
iframe 的用法与注意事项
asp防止同时登陆的问题
也谈用户体验
js查找/搜索页面中的字符源代码
腾讯注册页面的 JS 解密
视觉设计常见误解
![](https://img.aspxhome.com/file/UploadPic/200811/13/fig1-address-91s.gif)
MySQL Order By索引优化
PHP Laravel门面的实现原理详解
Web标准基础教程:CSS简写指南
![](https://img.aspxhome.com/file/UploadPic/20104/2/021044191220-95s.jpg)
使用HTML和MSXML6.0 创建一个超轻量级XPATH测试程序
![](https://img.aspxhome.com/file/UploadPic/20094/24/20090423102218155-12s.gif)