快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

%>


\\\'生成水印
<%
\\\'生成文字水印
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秒
返回类别: 教程
上一教程: 动态网站首页的静态生成方式
下一教程: 制做行背景颜色交替变换的表格

您可以阅读与"ASP组件高级入门与精通系列之三"相关的教程:
· ASP组件高级入门与精通系列之二
· ASP组件高级入门与精通系列之一
· ASP组件初级入门与精通系列之三
· ASP组件初级入门与精通系列之四
· Asp组件初级入门与精通系列之一
    微笑服务 优质保证 索取样品