ASP固定比例裁剪縮略圖的方法
一般生成縮略圖的方法有兩種:
第一種:縮放成固定大小的小圖片
第二種:縮放成等比例的小圖片
第一種方法的缺點是,會使圖片變形,例如一個身材苗條的MM變成一個胖MM
第二種方法的缺點是,如果圖片是放在一個表格中顯示,并且圖片寬高比和這個表格不同,就不能充滿整個表格,留下空隙,不好看
這里介紹的方法是“固定比例裁剪”,使用aspjpeg組件,也就是說,生成的縮略圖寬高比是固定的,但是不會變形。如果原圖的寬高比大于設(shè)定的寬高比,就會自動剪掉左右兩旁多余的圖;如果原圖的寬高比小于設(shè)定的寬高比,就會自動剪掉上下的多余的圖。
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.Save destpic if err.number=0 then MakePic=True Jpeg.Close Set Jpeg=Nothing End function
以上就是介紹ASP使用aspjpeg固定比例裁剪縮略圖的實現(xiàn)方法,希望對大家的學(xué)習(xí)有所幫助。
相關(guān)文章
ReSaveRemoteFile函數(shù)之a(chǎn)sp實現(xiàn)查找文件保存替換的代碼
ReSaveRemoteFile函數(shù)之a(chǎn)sp實現(xiàn)查找文件保存替換的代碼...2007-09-09asp目錄讀寫權(quán)限檢測腳本 TestFolder
T00LS 檢測星外可執(zhí)行目錄的一個工具,今天剛好用到,記錄下。檢測了下運氣差得很,全盤只能讀不能寫,檢測讀寫權(quán)限的時候?qū)⒁韵麓a保存為x.asp上傳到網(wǎng)站修改檢測目錄,點提交即可2011-11-11用javascript解決外部數(shù)據(jù)抓取中的亂碼問題
用javascript解決外部數(shù)據(jù)抓取中的亂碼問題...2007-04-04過濾掉危險的HTML標(biāo)記:script,ifame,object
過濾掉危險的HTML標(biāo)記:script,ifame,object...2007-01-01