asp+水印

 

'====================加上水印===============================
   set obj=server.CreateObject("wsImage.Resize")
   obj.LoadSoucePic server.mappath(FileName) ''装载图片
   obj.LoadImgMarkPic server.mappath("blend.bmp") ''装载水印图片
   obj.Quality=75
   obj.AddImgMark server.mappath(FileName), 315, 220,&hFFFFFF, 70
   strError=obj.errorinfo ''生成图片名字,文字颜色即水印在图片的位置
   if strError<>"" then
   response.write obj.errorinfo
   end if
   obj.free
   set obj=nothing
   '======================结束水印=============================