云上快速入门,热门云上应用快速查找
丰富的线上&线下活动,深入探索云世界
做任务,得社区积分和周边
最真实的开发者用云体验
让每位学生受益于普惠算力
让创作激发创新
资深技术专家手把手带教
遇见技术追梦人
畅聊无限,分享你的技术见解
技术交流,直击现场
海量开发者使用工具、手册,免费下载
极速、全面、稳定、安全的开源镜像
开发手册、白皮书、案例集等实战精华
为开发者定制的Chrome浏览器插件
热门
'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