網上很多縮略的代碼，不過很多都是錯誤的。 這個是糾正版，本人已修改。

?

?

?

Code
<%

Function?PicReSize(picURL)
FileName1=Mid(picURL,13,22)
Set?Jpeg?=?Server.CreateObject("Persits.Jpeg")
'?獲取源圖片路徑
Path?=?Server.MapPath(picURL)
'?打開源圖片
'response.write(Path)
Jpeg.Open?Path
'?設定生成縮略圖細節?這里有很多種設定方法?下面的方法是先判斷寬高比?然后按比例縮放
If?Jpeg.OriginalWidth?/?Jpeg.OriginalHeight?>?1?then
Jpeg.Width?=?120?
Jpeg.Height?=?int((120/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
elseif?Jpeg.OriginalWidth?/?Jpeg.OriginalHeight?<?1?then
Jpeg.Height?=?120
Jpeg.Width=?int((120/Jpeg.OriginalHeight)*Jpeg.OriginalWidth)
end?if
'?設定銳化效果
Jpeg.Sharpen?1,?130?
'?向指定路徑生成縮略圖

Jpeg.Save?Server.MapPath("UploadFiles/small")&"\"&FileName1
'response.write?filename1
'response.write?Server.MapPath("uploadpic/small")&"\"&filename1
'?注意這兩個Session
'Session("PPP0")=GP_curPath&FileName
'Session("PPP1")=GP_curPath&"small"&FileName
Set?Jpeg?=?Nothing
'自動產生縮掠圖結束
PicReSize?=?"UploadFiles/small/"&FileName1
end?Function
%>

?

?

轉載于:https://www.cnblogs.com/tjsquall/archive/2009/04/21/1440390.html

總結

以上是生活随笔為你收集整理的ASP 缩略图 （纠错版）的全部內容，希望文章能夠幫你解決所遇到的問題。

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