最新下载
热门教程
- 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
相关文章
- 世界之外易遇生日活动怎么玩 12-23
- 无期迷途空条徐伦什么时候复刻 12-23
- 无期迷途黛伦蝶之影怎么样 12-23
- 无期迷途空条承太郎什么时候up 12-23
- 无期迷途艾梅斯怎么样 12-23
- 阴阳师小袖之手幽篁流影怎么样 12-23