ASP:使用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之家翻译整理