Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

E:\WWWROOT\HZFWQ\DIYU1123\WWWROOT\ADMIN\../KS_Cls/KS.Thumbs.asp，行 374

Case 2

出错了啊

Aspjeg好呀，可以防止加马的图片，不错！支持！

马上提供

Case 2

对照一下吧

    Case 1
     If Not KS.IsObjInstalled("Persits.Jpeg") Then
      Exit Function
     End If
     If KS.IsExpired("Persits.Jpeg") Then
      Response.Write ("对不起，Persits.Jpeg组件已过期！")
      Response.End
     End If
     Set objImage = Server.CreateObject("Persits.Jpeg")
     objImage.Open FileName
     If Rate = 0 And (Width <> 0 Or Height <> 0) Then
      If Width < objImage.OriginalWidth And Height < objImage.OriginalHeight Then
 '修改开始      
         dim qjazhro_h,qjazhro_w,qjazhro_t,qjazhro_hj,qjazhro,mznvhai
       qjazhro=round((Width/Height),3)
       mznvhai=round((objImage.OriginalWidth/objImage.OriginalHeight),3)
       If qjazhro<mznvhai Then
           objImage.Height = Height
        objImage.Width = round((objImage.OriginalWidth / objImage.OriginalHeight * Height),3)
        qjazhro_w=round(((objImage.Width-Width)/2),3)
        qjazhro_t=Width+qjazhro_w
        objImage.crop qjazhro_w,0,qjazhro_t,Height
       ElseIf qjazhro>mznvhai Then
        objImage.Width = Width
        objImage.Height = round((objImage.OriginalHeight / objImage.OriginalWidth * Width),3)
        qjazhro_h=objImage.Height-Height
        qjazhro_hj=qjazhro_h*0.3
        qjazhro_t=Height+qjazhro_hj
        objImage.crop 0,qjazhro_hj,Width,qjazhro_t
       ElseIf qjazhro=mznvhai Then
        objImage.Width = Width
        objImage.Height = Height

    '修改结束

     
       End If
      End If
     ElseIf Rate <> 0 Then
      objImage.Width = objImage.OriginalWidth * Rate
      objImage.Height = objImage.OriginalHeight * Rate
     End If
     objImage.Save ThumbFileName

    Case 2