开发者社区> y0umer> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

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

简介: 'lj1 原图路径 'tu 图片名称 'lj2 缩 略图 存放路径 function CreatePic(lj1,tu,lj2) dim Jpeg,Path Set Jpeg = Server.
+关注继续查看

'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

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

相关文章
ASP.NET Core : 一. 概述
ASP.NET Core : 一. 概述
0 0
ASP.NET MVC (五、HttpClient接口解析)(6)
ASP.NET MVC (五、HttpClient接口解析)(6)
0 0
ASP.NET MVC (五、HttpClient接口解析)(5)
ASP.NET MVC (五、HttpClient接口解析)(5)
0 0
ASP.NET MVC (五、HttpClient接口解析)(4)
ASP.NET MVC (五、HttpClient接口解析)(4)
0 0
ASP.NET MVC (五、HttpClient接口解析)(3)
ASP.NET MVC (五、HttpClient接口解析)(3)
0 0
ASP.NET MVC (五、HttpClient接口解析)(2)
ASP.NET MVC (五、HttpClient接口解析)(2)
0 0
ASP.NET MVC (五、HttpClient接口解析)(1)
ASP.NET MVC (五、HttpClient接口解析)(1)
0 0
ASP.NET MVC (四、ASP.NET Web API应用程序与跨域操作)(7)
ASP.NET MVC (四、ASP.NET Web API应用程序与跨域操作)(7)
0 0
ASP.NET MVC (四、ASP.NET Web API应用程序与跨域操作)(6)
ASP.NET MVC (四、ASP.NET Web API应用程序与跨域操作)(6)
0 0
+关注
y0umer
高级网络安全技术员
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载