专业虚拟主机提供商! 正规合法诚信公司、拥有ICP/ISP双经营许可证
域名空间实时开通立即使用,几分钟即可完成
安全方便的网上支付,超强的域名空间管理程序
我要购买空间,请点这里
我要注册域名,请点这里
我要建设网站,请点这里
我要续费域名,请点这里
我要续费空间,请点这里
我要在线支付,请点这里
首 页 特惠套餐 域名注册 虚拟主机 托管租用 FTP空间 数据库 企业邮局 网站建设 联系我们 付款方式
 | 网站首页 | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 | 
您现在的位置: IDC资讯网 >> 网络编程 >> ASP编程 >> 正文
Aspjpeg组件上传图片加水印           ★★★
Aspjpeg组件上传图片加水印
点击数: 更新时间:2009-8-27 14:30:02

利用AspJpeg组件给上传图片自动加水印,在使用该组件前请先测试你的服务器是否支持AspJpeg组件。以下代码为过程调用方式,仅供参考:

   sub   jpegclass(imgurl,fontsize,family,isbold,top,left,content,Horflip)   '调用过程名    
           
          Dim   Jpeg,font_color,font_size,font_family,f_width,f_height,f_content,f_Horflip  
          '建立实例  
                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    
    If   Horflip   =   1   Then  
              Jpeg.FlipH  
      'Jpeg.SendBinary  
                    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("apple.jpg",13,"楷体",1,18,18,"你好,这是水印程序",1)  
  %>  
   
  先下载aspjpeg组建,注册后使用

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章: 没有了
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新推荐  更多内容
    最新热门  更多内容
    资讯中心首页
    | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 |
    关于我们 | 联系我们 | 产品价格 | 代理加盟 | 咨询反馈 | 诚聘英才 | 在线对话系统 | ASP技术网 | 帮助中心 | 网站地图
    ICP/ISP证B2-20050322
    ICP/ISP经营许可证编号:粤ICP证B2-20050322 网站备案号:粤B2-20050322号
    客服热线:0755-26499456 0755-26499435 [共8线] 24小时值班:0755-21852765 [更多]
    客服QQ:
    [ 63103 ]
    [ 959260 ]
    代理咨询:
    [ 519065 ]
    [更多]
    客户服务中心:深圳市南山区桃园路前海金岸金丰阁706  邮编:518052
    本站推广词:动态空间 | 网站空间 | 虚拟主机 | 深圳网站建设 | 空间购买 | 域名空间 | ASP空间申请购买
    服务范围:广州·深圳·东莞·珠海·汕头·惠州·中山·佛山·上海·重庆等全国其它地区
    广东省深圳市稳速网络科技有限公司版权所有 严禁以任何形式进行复制、抄袭