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

ASPJPEG是Persits出品的共享软件，试用期为30天，您可以在这里下载：http://www.persits.com/aspjpeg.exe。
最新版本号是1.3
=========================================
<%   
    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   

                        '   保存文件   
                   &nb