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

赞 (0)

相关推荐

  • asp水印组件之AspJpeg的结合代码实例

    1.什么是AspJpeg? AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件,网络上对其进行详细和深入介绍的中文文章并不多,即使有一般也只是牵涉到图片缩略图和图片水印,这与其为英文版本有着密切的关系. AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象,支持的图象格式有:JPEG, GIF, BMP, TIFF, PNG AspJpeg主要可以做到: 生成缩略图片 生成水印图片 图片合并 图片切割 数据库支持 安全码技术

  • aspjpeg 添加水印教程及生成缩略图教程

    1.为图片加入水印功能 Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象 Jpeg.Open BlogPath & "/upload/" & FileName ' 图片所在位置 Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 Jpeg.Canvas.Font.Family = "方正隶变简体" ' 设

  • ASP程序给上传的图片增添水印效果!

    ASPJPEG是Persits出品的共享软件,试用期为30天,您可以在这里下载:http://www.persits.com/aspjpeg.exe.最新版本号是1.3=========================================<%       sub   jpegclass(imgurl,fontsize,family,isbold,top,left,content,Horflip)   '调用过程名 Dim   Jpeg,font_color,font_size,fon

  • aspJpeg图片水印有杂点的完美解决方法

    操作实现函数: 复制代码 代码如下: Function AddWater(n) Set Photo = Server.CreateObject("Persits.Jpeg") PhotoPath = Server.MapPath(n) Photo.Open PhotoPath Photo.Interpolation=1 Photo.Quality=100 iWidth=Photo.OriginalWidth iHeight=Photo.OriginalHeight iiwidth=21

  • asp图片加水印的功能代码

    复制代码 代码如下: '文字水印 Function WordWatermark(ImagePath) Dim Image Set Image= Server.CreateObject("Persits.Jpeg") ' 建立对象 Image.Open server.mappath(ImagePath) ' 图片所在位置 Image.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 Image.Canvas.Font.Family = &quo

  • 利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印

    今天在站长站看到一网友写的相册程序,功能挺简单的,看到他用了ASPJPEG生成缩略图,不由想起再用上ASPUPLOAD上传,于是花了一个小时时间完善了他的代码. 以下代码均加有简单的注释,如果你看不懂,请先看ASPJPEG以及ASPUPLOAD的说明文档(E文,希望有心理准备),看不懂的可以问我. 以下是代码: 复制代码 代码如下: <%  if session("admin")<>"on" then  Response.Redirect"

  • 基于ASPJPEG 制作了一个梦寐已久的批量水印工具步骤

    基于ASPJPEG 制作了一个梦寐已久的批量水印工具步骤

    一.为图片添加水印 复制代码 代码如下: <% Dim Jpeg ""//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") ""//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") ""//源图片位置 Jpeg.Canvas.Font.Color = &H000000 ""//水印字体颜色

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

    aspjpeg组件实现加水印函数的调用方法: <%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %> 复制代码 代码如下: function printwater(waterpath,upfilepath) Dim Logobox,LogoPath,ogvbox LogoPath = Server.MapPath(waterpath) Set Logobox = Server.CreateOb

  • 图片自动保存到本地并利用aspjpeg为图片加水印

    <% '函数功能:远程图片自动保存到本地服务器,并利用aspjpeg为图片加上水印 '(注意:请先在目录下创建images目录,用来保存临时图片) '本程序需要在服务器上安装"aspjpeg组件"否则无法正常使用 '也可以只取'''''22222222'''''''以上的部分,这部分可以保存图片,第二部分是进行水印增加 '使用方法,请保存为saveimg.asp 'saveimg.asp?url=http://siyizhu.com/logo.gif 即可以取下图片啦,HOHO.

  • ASP通用分页样式函数代码

    <% '****************************** '函数:MultiPage(Numbers,Perpage,Curpage,Url_Add) '参数:Numbers,总记录数:Perpage,每页记录数:Curpage,当前页:Url_Add,当前页其它参数如?action=list& '作者:阿里西西 '日期:2007/7/15 '描述:ASP通用分页样式函数 '示例:MultiPage(100,10,2,"?action=list&")

  • php加水印的代码(支持半透明透明打水印，支持png透明背景)

    复制代码 代码如下: //原始图像        $dst = "/upload/20120914/20120914040740-0.jpg"; //注意图片路径要正确        //得到原始图片信息        $dst_info = getimagesize($dst);         switch ($dst_info[2])        {         case 1:         $dst_im =imagecreatefromgif($dst);break;

  • java 图片加水印实例代码

    复制代码 代码如下: try {            String targetImg = "D:/Blue hills.jpg";//          String pressImg = "D:/20130311220300.jpg";            String pressImg = "D:/html_original.jpg"; File f1 = new File(targetImg);            Image sr

  • asp base64加解密函数代码

    复制代码 代码如下: <% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS) Function strUnicodeLen(asContents) '计算unicode字符串的Ansi编码的长度 asContents1="a&q

  • 使用OpenCV为图像加水印的教程

    使用OpenCV为图像加水印的教程

    目录 1. 什么是水印? 2. 在 OpenCV 中调整图像大小 3.使用图像创建水印 参考 在本文中,我们将学习如何使用 OpenCV 为多个图像添加水印. 1. 什么是水印? 水印是有意叠加在不同图像上的标志.签名.文本或图案,用于保护图像的版权. 其主要目的是宣传品牌,并使未经所有者许可复制或使用原始图像变得更加困难. 组织和专业人士经常使用水印来防止在在线托管内容后被其他人使用他们的内容. 那么,你有没有想过为图像添加水印? 例如,我们写博客会说明外部图像的来源.但是你自己创建的图像呢?

  • php 图片加水印与上传图片加水印php类

    一个正规的网站,在需要上传图片时,往往都会需要在图片上增加自己网站的LOGO水印.那么如何实现这一步骤呢?首先让我们来了解PHP图片加水印的原理. 通过判断文件类型建立图形,然后把其复制到原建立的图形上,填充并建立rectangle,以备写入imagestring()或是在原已经定好的图像程序当中判断水印类型:一是字符串,另是增加一个图形对象在上面.以下是PHP图片加水印的转载! 参数说明: $max_file_size : 上传文件大小限制, 单位BYTE $destination_folde

  • ASP组件AspJpeg(加水印)生成缩略图等使用方法

    ASP组件AspJpeg(加水印)生成缩略图等使用方法

    一.为图片添加水印 复制代码 代码如下: <% Dim Jpeg ''''//声明变量 Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//调用组件 Jpeg.Open Server.MapPath("aaa.JPG") ''''//源图片位置 Jpeg.Canvas.Font.Color = &H000000 ''''//水印字体颜色 Jpeg.Canvas.Font.Family = "

  • php图片加中文水印实现代码分享

    例1 复制代码 代码如下: <?php Header("Content-type: image/png"); /*通知浏览器,要输出图像*/ $im = imagecreate(400 , 300); /*定义图像的大小*/ $gray = ImageColorAllocate($im , 235 , 235 , 235); $pink = ImageColorAllocate($im, 255 , 128 , 255); $fontfile = "simkai.ttf

随机推荐