手机版 | 登陆 | 注册 | 留言 | 设首页 | 加收藏
当前位置: 网站首页 > 网页制作 > 动画特效 > 文章 当前位置: 动画特效 > 文章

利用jpeg组件加图片水印函数

时间:2006-01-26    点击: 次    来源:本站原创    作者:佚名 - 小 + 大

   程序代码:


 sub jpegclass(imgurl,fontsize,family,isbold,top,left,content) '调用过程名
   
    Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content
    '建立实例
        Set Jpeg = Server.CreateObject("Persits.Jpeg")
   
       font_size=10
       font_family="宋体"
       f_left= 5
       f_top=5

          if imgurl<>"" then
             Jpeg.Open Server.MapPath(imgurl)‘图片路径并打开它
           else
           response.write "未找到图片路径"
             exit sub
           end if
       
          if fontsize<>"" then font_size=fontsize  ’字体大小
          if family<>"" then   font_family=family   ‘字体
          if top<>"" then f_left=left       ’水印离图片左边位置
          if left<>"" then f_top=top    ‘水印离图片top位置
          if content="" then  ‘水印内容
               response.write "水印什么内容呢,水印不成功!"
               exit sub
           else
               f_content=content
           end if
           

           ' 添加文字水印
           Jpeg.Canvas.Font.Color = &hff0000    ' 红色
          Jpeg.Canvas.Font.Family = font_family
          jpeg.canvas.font.size=  font_size
          if isbold=1  then 
          Jpeg.Canvas.Font.Bold = True
          end if
          Jpeg.Canvas.Print f_left,  f_top, f_content

           ' 保存文件
          Jpeg.Save Server.MapPath(imgurl)

          ' 注销对象
           Set Jpeg = Nothing
           response.write "水印成功,图片上加了&nbsp;&nbsp;"&content&""
end sub

 

调用如下:call jpegclass("psg.jpg",13,"楷体",1,18,18,"你好,这是水印程序")

   就可轻松实现图片水印效果,当然你的服务器必须支持ASPJPEG组件!

上一篇:强制点击广告大法

下一篇:24小时内只弹出一次窗口的代码

推荐阅读
QQ:530051328  |  地址:广西玉林市博白县人民中路026号  |  电话:18177533568  |   桂ICP备07004785-8号  |  桂公网安备45092302000001号  |  
Copyright © 2018 天人文章管理系统 版权所有,授权www.537600.cn使用 Powered by 55TR.COM