当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Asp组件高级入门与精通系列之三

ASP.NET
Internet Explorer 编程简述（二）在IE中编辑OLE嵌入文档
移动窗体
.NET 2.0获取数据库连接统计数据
VB.NET 拖动无边框的窗体
利用WH_CBT Hook将非模态对话框显示为模态对话框
Aspect#应用 - 权限验证
VB 从零开始编外挂(一)
【错误解决】Unable to find script library 'WebUIValidation.js'
VB 从零开始编外挂(四)
DTD指南(3)-DTD-Elements(元素)
知识库文章MDL9745154-File:Microsoft Visual Basic 运行时库
.net手机软件开发（六）OBEX应用：文件传输部分
在winform中使用WebBrowser控件时怎样去除IE的滚动条
WINZIP及WINRAR命令!!!!!
智能客户端相关Application Block结构功能分析(二)
如何在VB中操作EXCEL（一段代码，两个可以使用的过程）
在C#中用最简洁有效的代码执行存储过程并返回数据
.Net的Collection类的一些使用说明
ASP.NET实现数据图表c
用asp.net画饼图

No. « 144 145 146 147 »

技术文章搜索

关键字

ASP.NET 中的 Asp组件高级入门与精通系列之三

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 252 ::
收藏到网摘: n/a


asp中测试
<%'生成缩略On Error resume nextset 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 thenresponse.write Err.Descriptionend if
%>
'生成水印 <%'生成文字水印On Error resume nextset 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 thenresponse.write Err.Descriptionend if%>


<%'生成图片水印On Error resume nextset 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 thenresponse.write Err.Descriptionend if%>
同时还作了性能测试
作者的机器配置是赛扬850,内存512机器上生成50张图片(缩略，文字水印，图片水印)用了7秒机器配置是p4 2.4,内存1G 机器上生成50张图片(缩略，文字水印，图片水印)用了2秒
可以下载www.applevb.com/flysoft.rar和http://www.5ivb.net/