ASP:使用ImageMagickObject组件制作缩略图
作者：jammyy 来源：Jamyy's Weblog 发布时间：2008-10-21 12:21:00
标签：ImageMagick,ImageMagickObject,组件,图片,缩略图
目的: 从数据库读取二进制位图图形数据资料, 透过 ImageMagickObject 组件即时制作缩略图,并显示在网页上 (generating thumbnails on-the-fly)
运行环境: IIS + ASP + MS SQL Server
安裝 ImageMagick for Windows
下载ImageMagick : ImageMagick - Windows Binary Release (Win32 dynamic at 16 bits-per-pixed)
安裝時勾選「Install ImageMagickObject OLE Control for VBscript, Visual Basic, and WSH」
asp程序代码：
image.asp
<％
id = request.querystring("id")
width = request.querystring("w")
'链接sql数据库 (MS SQL Server)
set conn = server.createobject("adodb.connection")
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=xx;Password=xx;Initial Catalog=xx;Data Source=ip,port"
'从数据库中读取图片数据
set rs = conn.execute("select image_column from my_table where id='" & id & "'")
'产生缩略图
Set img = CreateObject("ImageMagickObject.MagickImage.1")
dim output(2)
output(0)="JPEG:"
img.Convert rs.fields(0).value, "-resize", width, output
'输出缩略图
response.contenttype = "image/jpeg"
response.binarywrite output
conn.close
set img = nothing
set conn = nothing
％>
客户端显示图形：
index.html
<img src="image.asp?id=PRODUCT_ID&w=160" width="160">
asp之家翻译整理
0
投稿猜你喜欢
- 代码如下:declare @cmd nvarchar(4000) set @cmd = N'exec [?].sys.sp_chan
- 测试：IE6、IE7、FF3.014突发奇想的效果，主要突出构思，效果还比较粗糙，好好创意一下，应该可以引申出一些比较有新意的图片切换效果。
- 如： 2000-1-1==> 2000-01-01、2000-01-1==>2000-01-01、2000-1-01==>
Entity Framework 4.0 也可以支持大名鼎鼎的MySql,这篇POST将向展示如何实现EF+MyS- 现在主流的cms或者blog等系统中，都内置的有插件系统，但是层层深入、剖析实现的方式，其实都是最简单的钩子的复杂化的实现。前言钩子是插件执
- 请问论坛的树状记录表是怎么展开的？如何做？论坛的这种展开技术一般采用两种方法实现，一种是采用递归的方法，优点是逻辑简单，编程简单，缺点是速度
- 存储过程采用的是select top 加 not in的方式完成，速度也算是相当快了 我测试过了百万级数据量一般查询在1秒一下，贴出来大家交
- 还是网站在不同操作系统不同浏览器下兼容性的问题,但难度加了一层.如果是要检查用户登录后的页面的兼容性,该怎么办?现在一般的测试网站,都是提交
- 如何使用Iframe实现本页提交？例：chunfeng.html< html>< head>&n
- 尽管XML还处在开发阶段，其标准正在由W3C组织制定，但是已经有许多公司表示全力支持XML，并开发了不少XML工具。Adobe公司的Fram
- 在ie7发布之前，Dean的addEvent/removeEvent可以称的上是完美了。IE7发布后，引入新的内存泄漏(这个我不是很确定，忘
- 通常，当一个页面有太多信息要显示，而一页塞又不下所有信。为了请求速度、美观以及其他的各种理由，分页就会被我们请过来。让我们的用户可以选择是否
- 数字函数 ABS():求绝对值。 CEILING():舍入到最大整数。 FLOOR():舍入到最小整数。 ROUND():四舍五入 ROUN
- 项目有时要用一些Ajax的效果，因为比较简单，也就没有去用什么Ajax.net之类的东西，手写代码也就实现了。 第二天，有人反馈错
- 不通过数据源名DSN也能访问Access数据库吗？代码如下：<％ dim conn &nbs
- 通常来说，在MyISAM里读写操作是串行的，但当对同一个表进行查询和插入操作时，为了降低锁竞争的频率，根据concurrent_insert
- ExpiresAbsolute 属性指定缓存于浏览器中的页的到期日期和时间语法Response.ExpiresAbsolute [
- 从我们论坛中收集了这段HTML制作页面需要最大化、最小化时可以借鉴参考。最大化效果：<OBJECT id="max
- 主页上的鼠标是不是就只有箭头和小手两种模样呢？如果鼠标移到“帮助”等字样上时，形状就变成求助的问号；鼠标移到可能需要较长时间等待的超链接时，
- 遇到一个很实际的问题：由于不想增加目录的深度，减少磁盘寻址的时间，需要减少一些目录层级。大家都知道建立文件夹是为了让文件管理更加的方便，现在
