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

2022-07-15 80酷酷网 80kuku.com

　　函数写了图片水印效果函数，代码如下：

程序代码：

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 "水印成功，图片上加了  "&content&""
end sub

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

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