Asp组件高级入门与精通系列之三

28 篇文章 0 订阅
4 篇文章 0 订阅

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

%>

'生成水印
  <%
'生成文字水印
On Error resume next
set obj=server.CreateObject("flysoft.image")
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 '参数分别代表:生成的图片,字体的颜色,字体的宽度,字体的高度,最后两个参数指文字相对于原始图片左上角的坐标位置
if err.number<>0 then
response.write Err.Description
end if
%>

 <%
'生成图片水印
On Error resume next
set obj=server.CreateObject("flysoft.image")
obj.Rate = 0.5 '缩放比率 其中<1为缩小,>1为放大
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不透明)
if err.number<>0 then
response.write Err.Description
end if
%>

同时还作了性能测试

作者的机器配置是赛扬850,内存512机器上生成50张图片(缩略,文字水印,图片水印)用了7秒
机器配置是p4 2.4,内存1G 机器上生成50张图片(缩略,文字水印,图片水印)用了2秒

可以下载www.applevb.com/flysoft.rarhttp://www.5ivb.net/


  • 2
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 3
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 3

打赏作者

online

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值