<% set obj=server.CreateObject("wsImage.Resize") obj.LoadSoucePic server.mappath("25.jpg") ''装载图片 obj.LoadImgMarkPic server.mappath("blend.bmp") ''装载水印图片 obj.Quality=75 obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70 strError=obj.errorinfo ''生成图片名字,文字颜色即水印在图片的位置 if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>
<% set obj=server.CreateObject("wsImage.Resize") obj.LoadSoucePic server.mappath("25.jpg") obj.Quality=75 obj.cropImage server.mappath("25_crop.jpg"),100,10,200,200 ''定义裁减大小和生成图片名字 strError=obj.errorinfo if strError<>"" then response.write obj.errorinfo end if obj.free set obj=nothing %>