使用ASPJpeg生成缩略图

Set Jpeg = Server.CreateObject("Persits.Jpeg")    '创建对象
    Jpeg.Open Path                '打开图片（Path是服务器的绝对路径）
    Jpeg.Interpolation=0
    Jpeg.Quality=100       '这两句就是网上找到的解决质量问题的设置，但是没用的？？？？
    dim smallto,smalltoarr(4),n   '我需要生成几张缩略图，所以建立了一个由缩略图的宽组成的数组。
    smalltoarr(4) = 50
    smalltoarr(3) = 60
    smalltoarr(2) = 80
    smalltoarr(1) = 250
    smalltoarr(0) = 400
   for n = 0 to Ubound(smalltoarr)       '循环制作小图，按大到小制作
        smallto = smalltoarr(n)
        SmallB = Cint(smallto) / Jpeg.OriginalWidth
        Jpeg.Width = Jpeg.OriginalWidth * SmallB
        Jpeg.Height = Jpeg.OriginalHeight * SmallB
        Jpeg.Interpolation=0            '"保险起见"我每次保存一张小图前，我又设置了一次……
        Jpeg.Quality=100
        Jpeg.Save Server.MapPath(GetPicName(formPath & myfname,smallto))'GetPicName是自定义函数，是得出保存图片的文件名的函数。
    next
    Jpeg.Close
    Set Jpeg = Nothing
    showform = false
    set file=nothing
    set upload=nothing  ''删除此对象