Question

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

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

最好是无组件的

Answer 1

无组件的似乎没````我也找遍了``~`现在都是用组件的`~``
在图片上传完后调用下缩略图函数就可以了`~``如用Persits.Jpeg组件

'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

Answer 2

你可以用这款软件实现！

耐品图片管理平台 V7.0 完美无限制版
http://download.it168.com/03/0301/4133/4133_3.shtml

软件介绍：本版本修改了“7.0完美通用版”的一些错误，并且取消了上传图片张数的限制，是真正的完美无错、无限制的版本。

功能简介：

1.图片上传到文件夹，数据库不再承受巨大压力，从而使系统运行更加稳定；

2.一级分类随意设定；

3.后台同时上传5张图片，自动生成缩略图，缩略图的大小可以在后台自由设定；

4.上传组图时，可以设定组图的总说明和每一张图片的单独说明；

5.后台可以随意设定需要推荐的组图，

6.最重要的是后台人性化的图片管理让您得心应手。

注意事项：组图名称不要超过25个字，使用前请先删除原来的分类和图片，然后再建立新分类，上传图片。

使用说明：管理账号和密码：admin

1.为了安全起见，请在使用前更改数据库的路径和名称，根目录和manage目录下的conn.asp都要改；

2.如果您需要和朋友共同管理这个网上平台，请在“用户管理”里添加用户。