• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

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

javascript 搞代码 7年前 (2018-06-13) 84次浏览 已收录 0个评论

写了图片水印效果函数,代码如下:

   

程序代码:

 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组件!
   

http://www.gaodaima.com/?p=28440

 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组件!

欢迎大家阅读《利用jpeg组件加图片水印函数_js,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


搞代码网(gaodaima.com)提供的所有资源部分来自互联网,如果有侵犯您的版权或其他权益,请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected],我们会在看到邮件的第一时间内为您处理,或直接联系QQ:872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:利用jpeg组件加图片水印函数_js

喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址