最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp图片上传后用aspjpeg自动生成缩略图
时间:2022-06-29 14:26:31 编辑:袖梨 来源:一聚教程网
Aspjpeg 功能设置
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 获取源图片路径
Path = Server.MapPath("uploadimages/")&"/"&FileName
' 打开源图片
Jpeg.Open Path
' 设定生成缩略图细节 这里有很多种设定方法 下面的方法是先判断宽高比 然后按比例缩放
If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then
Jpeg.
Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
elseif
Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then
Jpeg.
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
相关文章
- 王者荣耀侦探能力大测试攻略 王者荣耀侦探能力大测试怎么过 11-22
- 无期迷途主线前瞻兑换码是什么 11-22
- 原神欧洛伦怎么培养 11-22
- 炉石传说网易云音乐联动怎么玩 11-22
- 永劫无间手游确幸转盘怎么样 11-22
- 无期迷途主线前瞻兑换码是什么 无期迷途主线前瞻直播兑换码介绍 11-22