ASP給圖片添加水印

<%

set obj=server.CreateObject("wsImage.Resize") ''調用組件

obj.LoadSoucePic server.mappath("25.jpg") ''打開圖片,圖片名字是25.jpg

obj.GetSourceInfo iWidth,iHeight

response.write "圖片寬度:" & iWidth & "<br>" ''獲得圖片寬度

response.write "圖片高度:" & iHeight & "<br>" ''獲得圖片高度

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.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

%>

''------------------------------------------------ ----------------''

三:添加圖片水印

<%

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

%>

''------------------------------------------------ ----------------''

其實給圖片添加水印就這麼簡單.然後我在說下WsImage.dll組件的另外兩個主要用法.包括:

剪裁圖片,生成圖片的縮略圖.

還是以我得習慣,用代碼加註釋說明:

剪裁圖片:

<%

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

%>

詳細註釋:裁減圖片用到了WsImage的CropImage方法.其中定義生成圖片時候,100,10是左上角的裁減點,即離圖片左邊是100像素,頂端10像素.後兩個200代表的是裁減的寬帶和高和高度.

''------------------------------------------------ ----------------''

生成圖片縮略圖:

<%

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

obj.LoadSoucePic server.mappath("25.jpg") ''加載圖片

obj.Quality=75

obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''定義縮略圖的名字即大小

strError=obj.errorinfo

if strError<>"" then

response.write obj.errorinfo

end if

obj.free

set obj=nothing

%>