ASP 缩略图 （纠错版）

网上很多缩略的代码，不过很多都是错误的。 这个是纠正版，本人已修改。

 

 

 

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