Asp图片尺寸最高处理及AspJpeg失效设置

首先安装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