asp图片上传后用aspjpeg自动生成缩略图

 Aspjpeg 功能设置

Set Jpeg = Server.CreateObject("Persits.Jpeg")

' 获取源图片路径

Path = Server.MapPath("uploadimages/")&"/"&FileName

' 打开源图片
Jpeg.Open Path
' 设定生成缩略图细节 这里有很多种设定方法 下面的方法是先判断宽高比 然后按比例缩放

If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then
Jpeg.Width = 98
Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
elseif
Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then
Jpeg.Height = 98
Jpeg.Width= int(Jpeg.OriginalWidth*(98/Jpeg.Height))
end if

' 设定锐化效果

Jpeg.Sharpen 1, 130

' 向指定路径生成缩略图

Jpeg.Save Server.MapPath("uploadimages/")&"/small"&FileName

' 注意这两个Session

Session("PPP0")=GP_curPath&FileName
Session("PPP1")=GP_curPath&"small"&FileName

//更简单的生成缩略图

Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例 
Path = Server.MapPath(BlogPath & "/upload/" & FileName) '处理图片路径 
Jpeg.Open Path '打开图片 

'调整宽度和高度为原来的50%,也可以直接写固定的数字大小 

Jpeg.Width = Jpeg.OriginalWidth / 2 
Jpeg.Height = Jpeg.OriginalHeight / 2 
Jpeg.Save Server.MapPath(BlogPath & "/upload/" & FileName) '保存图片到磁盘 
Jpeg.Close:Set Jpeg = Nothing