<%

set obj=server.CreateObject("wsImage.Resize")

obj.LoadSoucePic server.mappath("25.jpg") ''装载图片

obj.Quality=75

obj.TxtMarkFont = "华文彩云" ''设置水印文字字体

obj.TxtMarkBond = false ''设置水印文字的粗细

obj.MarkRotate = 0 ''水印文字的旋转角度

obj.TxtMarkHeight = 25 ''水印文字的高度

obj.AddTxtMark server.mappath("txtMark.jpg"), "带你离境", &H00FF00&, 10, 70

strError=obj.errorinfo ''生成图片名字,文字颜色即水印在图片的位置

if strError<>"" then

response.write obj.errorinfo

end if

obj.free

set obj=nothing

%>

更多信息请查看IT技术专栏