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

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

  call   jpegclass("apple.jpg",13,"楷体",1,18,18,"你好，这是水印程序",1)   
  %>   

  先下载aspjpeg组建，注册后使用 

################转载方法2####################

ASP给图片加水印是需要组件的...常用的有aspjpeg软件和中国人自己开发的wsImage软件，可以上网搜索下载这两个软件，推荐使用咱们中国人自己开发的wsImage，毕竟是中文版，容易操作．

注册组件的方法:

命令提示符下输入"regsvr32 [Dll路径]" 就可以了．

图片添加水印无非就是获得图片大小,然后把水印写上去..ASP代码只是起个控制组件的作用.用代码来说明一切吧.

一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白)