一般生成縮略圖的方法有兩種：
第一種：縮放成固定大小的小圖片
第二種：縮放成等比例的小圖片
第一種方法的缺點是，會使圖片變形，例如一個身材苗條的MM變成一個胖MM
第二種方法的缺點是，如果圖片是放在一個表格中顯示，并且圖片寬高比和這個表格不同，就不能充滿整個表格，留下空隙，不好看
這里介紹的方法是“固定比例裁剪”，使用aspjpeg組件，也就是說，生成的縮略圖寬高比是固定的，但是不會變形。如果原圖的寬高比大于設定的寬高比，就會自動剪掉左右兩旁多余的圖；如果原圖的寬高比小于設定的寬高比，就會自動剪掉上下的多余的圖。
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 主站蜘蛛池模板： 庆安县| 监利县| 芷江| 措勤县| 剑河县| 桓台县| 双辽市| 民乐县| 建平县| 尼玛县| 合水县| 蛟河市| 镇宁| 涡阳县| 木兰县| 阿拉善盟| 拜城县| 松潘县| 衡南县| 通海县| 莱州市| 莎车县| 滕州市| 牟定县| 自治县| 马龙县| 库车县| 涞源县| 克东县| 孝义市| 松桃| 汉阴县| 安陆市| 雷州市| 乌拉特前旗| 浑源县| 尼木县| 江山市| 平定县| 东乌珠穆沁旗| 墨玉县|