Asp元件進階入門與精通系列之三-----測試

asp中測試

  <%

'生成縮略

On Error resume next

set obj=server.CreateObject("flysoft.image")

obj.LoadFromFile=server.MapPath("./love.bmp") '原始圖檔

obj.Rate =0.5 '縮放比率 其中<1為縮小,>1為放大

obj.OutputImgFile  server.MapPath("./lovethumbmail_bmp.jpg") '生成結果圖檔

if err.number<>0 then

response.write Err.Description

end if

%>

'生成水印

'生成文字水印

obj.Rate = 0.5 '縮放比率 其中<1為縮小,>1為放大

obj.MarkRotate = 25 '旋轉角度

obj.MaskText = "浪漫的情人節  祝天下有情人終成眷屬" '要顯示的文字

obj.MaskTextFontName = "華文彩雲" '字型設定

obj.LoadFromFile =server.MapPath("./rose.bmp") '原始圖檔

obj.OutputTxtImgFile server.MapPath("./rose_txtimg.jpg") , vbBlack, 20, 50, 0, 400 '參數分别代表：生成的圖檔，字型的顔色，字型的寬度，字型的高度，最後兩個參數指文字相對于原始圖檔左上角的坐标位置

 <%

'生成圖檔水印

obj.LoadFromFile = server.MapPath("./love.JPG") '原始圖檔

obj.LoadFromMaskImgFile = server.MapPath("./rose_mark.bmp")  '水印圖檔

obj.OutputMarkImgFile server.MapPath("./lovemark.jpg"), 350, 350, 100  '生成結果圖檔 500，500為水印圖檔相對于原始圖檔左上角的坐标位置 最後的100是透明度 (0最透明,100不透明)

同時還作了性能測試

作者的機器配置是賽揚850,記憶體512機器上生成50張圖檔(縮略，文字水印，圖檔水印)用了7秒