asp代码问题有一行出错帮忙解决，谢谢！

[wangwang008]

Function GetUpload()
  Dim Result
  Set Result = Nothing
  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST"
    Dim CT, PosB, Boundary, Length, PosE
    CT = Request.ServerVariables("HTTP_Content_Type") 'reads Content-Type header
    If LCase(Left(CT, 19)) = "multipart/form-data" Then 'Content-Type header must be "multipart/form-data"
      'This is upload request.
      'Get the boundary and length from Content-Type header
      PosB = InStr(LCase(CT), "boundary=") 'Finds boundary
      If PosB > 0 Then Boundary = Mid(CT, PosB + 9) 'Separetes boundary
      Length = CLng(Request.ServerVariables("HTTP_Content_Length")) 'Get Content-Length header
      if "" & UploadSizeLimit<>"" then
        UploadSizeLimit = clng(UploadSizeLimit)
        if Length > UploadSizeLimit then 
'          on error resume next 'Clears the input buffer
'            response.AddHeader "Connection", "Close"
'          on error goto 0
          Request.BinaryRead(Length)
          'Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length,0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit,0) & "B"
          'Err.Raise 6, "GetUpload", "Upload File too Long!"
		  set GetUpload=nothing
		  exit function
        end if
      end if
      
      If Length > 0 And Boundary <> "" Then 'Are there required informations about upload ?
        Boundary = "--" & Boundary
        Dim Head, Binary
        Binary = Request.BinaryRead(Length) 'Reads binary data from client
        
        'Retrieves the upload fields from binary data
        Set Result = SeparateFields(Binary, Boundary)
        Binary = Empty 'Clear variables
      Else
        Err.Raise 10, "GetUpload", "Zero length request ."
      End If
    Else
     Err.Raise 11, "GetUpload", "No file sent."   '此行出错
    End If
  Else
    Err.Raise 1, "GetUpload", "Bad request method."
  End If
  Set GetUpload = Result
End Function

[wangwang008]

是这样调用的。
UploadSizeLimit=1000000
Set Fields1 = GetUpload()

[bo3235]

看了半天，没看出来什么，感觉少了个什么标记，好像是END IF

[loveinet_168]

少了一个END IF 加一个进去试试看。

[三楼の郎]

你SeparateFields这个函数没有贴出来，其它部分代码没有问题，你说有错误是因为你对Err.Raise作用不了解，实际上代码没问题！

[三楼の郎]

试试把调用改成这样：
UploadSizeLimit=1000000
on error resume next
Set Fields1 = GetUpload()
if err.number<>0 then
response.write(err.number & " "err.Description )
end if

[三楼の郎]

试试把调用改成这样：
UploadSizeLimit=1000000
on error resume next
Set Fields1 = GetUpload()
if err.number<>0 then
response.write(err.number & " "err.Description )
end if