·您的位置: 首页 » 资源教程 » 编程开发 » ASP » ASP组件高级入门与精通系列之三

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

类别: ASP教程  评论数:0 总得分: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秒
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1