【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