好久沒有發文章，貼一段代碼出來曬曬！一段aspjpeg組件生成縮略圖的代碼，有4種生成方式，建議用最后一種，生成的縮略圖最清晰而且不會拉伸、變形！做圖片生成最好不過！

1. //??縮略圖生成函數?Code?By?Shaoyun ?
2. //??參數：生成文件全路徑、保存文件全路徑、限定寬度、限定高度、生成方式 ?
3. //??調用示例 ?
4. //??filepath="images/"?
5. //??savepath="thumbs/"?
6. //??srcfile="4.jpg"?
7. //??destfile="s10.jpg"?
8. //??srcfile=Server.MapPath(filepath?&?srcfile) ?
9. //??destfile=Server.MapPath(savepath?&?destfile) ?
10. //??call?makethumb(srcfile,destfile,200,120,3) ?
11. function?MakeThumb(fileName,saveName,limitW,limitH,nType) ?
12. ????if?not(limitW>0?or?limitH>0)?then?exit?function ?
13. ????Dim?ojpg,oh,ow ?
14. ????Set?ojpg?=?Server.CreateObject("Persits.Jpeg") ?
15. ????ojpg.open?fileName ?
16. ????oh?=?ojpg.OriginalHeight ?
17. ????ow?=?ojpg.OriginalWidth ?
18. ????select?case?nType ?
19. ????case?0 ?
20. ????????Rem?限定寬高 ?
21. ????????if?limitW>0?and?limitH>0?then ?
22. ????????????ojpg.width=limitW ?
23. ????????????ojpg.height=limitH ?
24. ????????end?if ?
25. ????case?1 ?
26. ????????Rem?只限定寬度，高度按比例 ?
27. ????????if?limitW>0?then ?
28. ????????????ojpg.width=limitW ?
29. ????????????ojpg.height=oh/ow*limitW ?
30. ????????end?if ?
31. ????case?2 ?
32. ????????Rem?只限定高度，寬度按比例 ?
33. ????????if?limitH>0?then ?
34. ????????????ojpg.height=limitH ?
35. ????????????ojpg.width=ow/oh*limitH ?
36. ????????end?if ?
37. ????case?3 ?
38. ????????Rem?按限定的寬高比裁切 ?
39. ????????if?limitW>0?and?limitH>0?then ?
40. ????????????Dim?lheight:lheight=oh*limitW/ow ?
41. ????????????If?lheight<limitH?Then?
42. ????????????????ojpg.Height?=?limitH ?
43. ????????????????ojpg.Width?=?ow*ojpg.Height/oh ?
44. ????????????Else?
45. ????????????????ojpg.width?=?limitW ?
46. ????????????????ojpg.Height?=?oh*ojpg.width/ow ?
47. ????????????End?if ?
48. ????????????ojpg.Crop?0,?0,limitW,limitH ?
49. ????????End?If?
50. ????case?else ?
51. ????????exit?function ?
52. ????end?select ?
53. ????ojpg.Quality?=?90 ?
54. ????ojpg.save?saveName ?
55. ????Set?ojpg?=?nothing ?
56. end?function?

轉載于:https://www.cnblogs.com/shaoyun/archive/2009/04/06/1542302.html

總結

以上是生活随笔為你收集整理的ASPJPEG缩略图生成函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。