【www.gdgbn.com--元旦图片】

 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

本文来源:http://www.gdgbn.com/ps/25005/