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       '字体