<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''裝載圖片
obj.Quality=75
obj.TxtMarkFont = "華文彩云" ''設(shè)置水印文字字體
obj.TxtMarkBond = false ''設(shè)置水印文字的粗細(xì)
obj.MarkRotate = 0 ''水印文字的旋轉(zhuǎn)角度
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
%>
更多信息請(qǐng)查看IT技術(shù)專欄