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


                      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       

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3354.html