Question

asp上传图片带缩略图的 就和58上传图片那样。最好有程序提供下载 不要组件，我用的是虚拟空间。

如果不懂，去58试试就明白。我找了N天了都不行。。
或者有什么好办法，都可以，大哥大姐帮帮我。
大哥我用的是虚拟空间，空间商会让我装插件吗？？？
如果可以，我不需要这么费力。。

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

无组件的我找了很久都没有找到，用Persits.Jpeg组件就可以实现 ,好像这个插件可以安装的啊？

Answer 3

UBUBUBUBUBUBUBUBUBUBUBUBUBUBmrmrmrmrmrmrmrmrmrmrmr