網(wǎng)上很多縮略的代碼，不過很多都是錯(cuò)誤的。 這個(gè)是糾正版，本人已修改。

?

?

?

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
'?設(shè)定生成縮略圖細(xì)節(jié)?這里有很多種設(shè)定方法?下面的方法是先判斷寬高比?然后按比例縮放
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
'?設(shè)定銳化效果
Jpeg.Sharpen?1,?130?
'?向指定路徑生成縮略圖

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

?

?

轉(zhuǎn)載于:https://www.cnblogs.com/tjsquall/archive/2009/04/21/1440390.html

總結(jié)

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

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