|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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组件初级入门与精通系列之一 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |