手机
当前位置:查字典教程网 >编程开发 >ASP教程 >aspjpeg组件通用加水印函数代码
aspjpeg组件通用加水印函数代码
摘要:aspjpeg组件实现加水印函数的调用方法:复制代码代码如下:functionprintwater(waterpath,upfilepath...

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组件通用加水印函数代码】相关文章:

收集asp的常用函数

asp 获取地址栏参数代码

ASP无组件分页实现思路及代码

asp 在线人数统计代码

asp 文件上传aspjpeg组件上传文件

在asp中通过vbs类实现rsa加密与解密的代码

asp中COM组件中如何连接数据库的代码

FSO组件之CreateTextFile方法介绍

ASP和javaScript中的字母大小写转换函数代码

asp动态级联菜单代码

精品推荐
分类导航