ASP固定比例裁剪缩略图的方法

一般生成缩略图的方法有两种：

说起来，处理图片生成缩略图，最常见的思路无非就下面两种。

第一种：

第二种：

那么，这两种方法各有什么问题呢？先说第一种固定尺寸法，最大的弊端就是容易导致图片变形。想象一下，一张身材匀称的人物照片，被生拉硬拽成一个正方形，结果很可能就是人物被压扁或拉宽，视觉效果大打折扣。

第二种等比例缩放法，虽然解决了变形问题，却又带来了新的尴尬。特别是当缩略图需要嵌入一个尺寸固定的表格或展示框时，问题就来了：如果图片比例和容器不匹配，周围就会留下难看的空白区域，整体版面显得不够饱满、不专业。

有没有一种方法能兼顾两者，既保持固定比例不变形，又能完美填充指定区域呢？答案是肯定的。接下来要介绍的，正是业内常用的“

固定比例裁剪

具体来说，算法会先做一个判断：如果原图显得太“扁”（宽高比大于设定值），系统就会自动裁掉左右两侧多余的部分；反之，如果原图太“高”（宽高比小于设定值），则会裁掉上下多余的部分。这样一来，得到的永远是比例完美、内容居中的缩略图。

Function MakePic(sourcpic,newwidth,newheight,destpic)
    On error resume next
    MakePic=false
    Set Jpeg = Server.CreateObject(“Persits.Jpeg”)
    if Err then
        response.Write (“错误：空间没安装aspjpeg组件”)
        response.end
    end if
    Jpeg.Quality = 100
    Jpeg.Open sourcpic
    jpeg.PreserveAspectRatio = True ‘等比缩放
    if jpeg.OriginalWidth/jpeg.OriginalHeight > newwidth/newheight then'太扁了，要剪掉左右部分
        jpeg.Height = newheight
        jpeg.crop CInt((jpeg.Width – newwidth)/2),0,CInt((jpeg.Width – newwidth)/2)+newwidth,newheight
    else ‘太高了，要剪掉上下部分
        jpeg.Width = newwidth
        jpeg.crop 0,CInt((jpeg.Height – newheight)/2),newwidth,CInt((jpeg.Height – newheight)/2)+newheight
    end if
    Jpeg.Sa ve destpic
    if err.number=0 then
        MakePic=True
    Jpeg.Close
    Set Jpeg=Nothing
End function

上面这段VB脚本代码清晰展示了整个实现的流程，从组件的检测、图片的等比缩放预处理，到依据宽高比判断并进行居中裁剪，最后保存结果。掌握这个思路，无论是构建图片管理系统还是内容展示页面，都能让缩略图处理变得既美观又高效。希望对大家在处理类似需求时有所启发。