支持ASPJPEG组件。
生成的小图的长宽都指定150，会让图片变形。能不能按比便缩小图片啊。。
在线等

没人帮吗。。拜托。各位。

已经解决。
拿来和大家共享一下。
dim jpeg,path
set jpeg=server.CreateObject("persits.jpeg")
path = server.MapPath("/")&"\d.jpg"
jpeg.open path
jpeg.width=200 '缩略图片的宽为200PX
jpeg.height=Jpeg.OriginalHeight*200/Jpeg.OriginalWidth '宿略图片的高度为 = 原始图片的高度*（200/原始图片的宽图）
jpeg.save server.MapPath("/")&"\s.jpg"
set jpeg=nothing
成功