2010-08-05 845
'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
版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。