首先安装AspJpeg（可能先要装32位的，再装64位的，才有用），从网上找就可以了。安装时，没有什么要设置的，key的话也不需要填，之后更改注册表即可。
安装完之后，把下面的代码放进自己的代码中，调用即可
Function BuildSmallPic(Img,MaxWidth)
'检查组件是否已经注册Dim Jpeg
Set Jpeg = Server.Createobject("Persits.Jpeg") ''''//调用组件
If Err.Number <> 0 Then
Err.Clear
Exit Function
End If
Jpeg.Open Server.MapPath(Img) ''''//原图位置
Dim OriginalWidth
Dim OriginalHeight
OriginalWidth = Jpeg.Width
OriginalHeight = Jpeg.Height
If OriginalWidth > MaxWidth Then
OriginalHeight= OriginalHeight/OriginalWidth*MaxWidth
OriginalWidth = MaxWidth
End If
Jpeg.Width = OriginalWidth
Jpeg.Height = OriginalHeight
Jpeg.Interpolation=1''''//压缩时间为1秒，这样图片压缩的效果好一点
Jpeg.Quality=95''''//图片质量不需要100，100的话图片的大小比较大，且和95的效果没有太大区别
Jpeg.Save Server.MapPath(Img) ''''//生成缩略图位置及名称
'注销实例
Set Jpeg = Nothing
End Function
AspJpeg安装时没有填key的话很快就会失效。Persits.Jpeg.1 错误 '800a0004' AspJpeg has expired. Please visit www.aspjpeg.com to purchase a registration key.
在程序中加入： Response.Write Jpeg.Expires 有效期显示： 20016-6-9 22:02:00
解决方法：
打开服务器注册表中的HKEY_LOCAL_MACHINE > Software > Persits Software > AspJpeg，只有一个Expires，于是在AspJpeg下新建一个项：RegKey，并将数值更改为48958-77556-02411，这样可以将过期时间更新为：9999-9-9。刷新页面试试看行不行（百度一般别人只会说这一点，下面的是自己试出来的，不知道你们会不会设置两次），不行继续下面设置。
打开服务器注册表中的HKEY_LOCAL_MACHINE > Software > Wow6432Node> Persits Software > AspJpeg，只有一个Expires，于是在AspJpeg下新建一个项：RegKey，并将数值更改为48958-77556-02411，这样可以将过期时间更新为：9999-9-9。刷新页面做上传测试，就会成功！
提示：用Response.Write Jpeg.Expires可测试过期时间，显示类似：9999-9-9