如何实现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

目录
相关文章
|
.NET 开发框架
ueditor编辑器asp版不能上传图片的解决方法 500错误
第一步,先去IIS 中,打开ASP 设置页面,把错误信息发送到浏览器,有助于找到问题。 使用百度开源ueditor编辑器不能上传图片并报服务器500错误 初看是 Uploader.Class 的 fs.CreateFolder( path ) 这条语句不能创建目录,怀疑权限问题,提供所有权限后,依然不行。
2513 0
|
.NET 数据库 开发框架
|
Web App开发 JavaScript 前端开发
|
.NET 开发框架 C#
Asp.net缩略图代码
前台页面:WebForm1.aspx 无标题页 要上传的图片 ...
774 0
|
.NET 开发框架 C#
在ASP.NET里轻松实现缩略图
以前,在页面上实现缩略图必须借助第三方组件。现在,有了.NET,就可以很轻松地实现缩略图。下面就是实现缩略图的例子。 查看例子 http://dotnet.aspx.cc/Exam/Thumbnail.
665 0