图片水印

<%
 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组建，注册后使用