现在的位置: 首页 > 综合 > 正文

如何实现ASP上传图片自动生成缩略图

2012年10月27日 ⁄ 综合 ⁄ 共 452字 ⁄ 字号 评论关闭

'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

抱歉!评论已关闭.