怎么实现asp上传图片后立即自动生成缩略图并保存
发布网友
发布时间:2022-04-27 10:45
我来回答
共1个回答
热心网友
时间:2022-04-27 12:15
'lj1 原图路径
'tu 图片名称
'lj2 缩 略图 存放路径
function CreatePic(lj1,tu,lj2)
dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = server.mappath(lj1& "/" &tu) ' 图片所在位置
Jpeg.Open Path ' 打开
if Jpeg.OriginalWidth>Jpeg.OriginalHeight then ' 设置缩略图 大小(这里 比例设定为50%)
Jpeg.Width =90
Jpeg.Height = Jpeg.OriginalHeight / (Jpeg.OriginalWidth / 90 )
else
Jpeg.Height =90
Jpeg.Width = Jpeg.OriginalWidth / ( Jpeg.OriginalHeight/ 90)
end if
Jpeg.Save server.mappath(lj2 & "/"&tu) ' 保存缩略图 到指定文件 夹下
Set Jpeg = Nothing ' 注销实例
end function