日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 人文社科 > 生活经验 >内容正文

生活经验

ASPJPEG缩略图生成函数

發(fā)布時間:2023/11/27 生活经验 36 豆豆
生活随笔 收集整理的這篇文章主要介紹了 ASPJPEG缩略图生成函数 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

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

  1. //??縮略圖生成函數(shù)?Code?By?Shaoyun ?
  2. //??參數(shù):生成文件全路徑、保存文件全路徑、限定寬度、限定高度、生成方式 ?
  3. //??調(diào)用示例 ?
  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?

轉(zhuǎn)載于:https://www.cnblogs.com/shaoyun/archive/2009/04/06/1542302.html

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。