| 以下是代碼片段： <% 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 %> |
新聞熱點
疑難解答
