asp-classic – Request.BinaryRead(Request.TotalBytes)抛出大

我有代码通过POST接受二进制数据,并读入一个字节数组.对于大于200 Kb的文件,操作失败.我检查了我的系统管理员(我们正在运行IIS 7),看看我们的配置是否有限制,他说没有,并怀疑这是一个代码的问题.这里有人有任何潜在的问题吗？这是我的代码：

Public Sub Initialize
  If Request.TotalBytes > 0 Then
    Dim binData
      binData = Request.BinaryRead(Request.TotalBytes) ' This line fails'
      getData binData
  End If
End Sub


 Private Sub getData(rawData)
    Dim separator 
      separator = MidB(rawData,1,InstrB(1,rawData,ChrB(13)) - 1)

    Dim lenSeparator
      lenSeparator = LenB(separator)

    Dim currentPos
      currentPos = 1
    Dim inStrByte
      inStrByte = 1
    Dim value,mValue
    Dim tempValue
      tempValue = ""

    While inStrByte > 0
      inStrByte = InStrB(currentPos,separator)
      mValue = inStrByte - currentPos

      If mValue > 1 Then
        value = MidB(rawData,currentPos,mValue)

        Dim begPos,endPos,midValue,nValue
        Dim intDict
          Set intDict = Server.CreateObject("Scripting.Dictionary")

          begPos = 1 + InStrB(1,value,ChrB(34))
          endPos = InStrB(begPos + 1,ChrB(34))
          nValue = endPos

        Dim nameN
          nameN = MidB(value,begPos,endPos - begPos)

        Dim nameValue,isValid
          isValid = True

          If InStrB(1,stringToByte("Content-Type")) > 1 Then

            begPos = 1 + InStrB(endPos + 1,ChrB(34))
            endPos = InStrB(begPos + 1,ChrB(34))

            If endPos = 0 Then
              endPos = begPos + 1
              isValid = False
            End If

            midValue = MidB(value,endPos - begPos)
              intDict.Add "FileName",trim(byteToString(midValue))

          begPos = 14 + InStrB(endPos + 1,stringToByte("Content-Type:"))
          endPos = InStrB(begPos,ChrB(13))

            midValue = MidB(value,endPos - begPos)
              intDict.Add "ContentType",trim(byteToString(midValue))

            begPos = endPos + 4
            endPos = LenB(value)

            nameValue = MidB(value,((endPos - begPos) - 1))
          Else
            nameValue = trim(byteToString(MidB(value,nValue + 5)))
          End If

          If isValid = True Then

            intDict.Add "Value",nameValue
            intDict.Add "Name",nameN

            dict.Add byteToString(nameN),intDict
          End If
      End If

      currentPos = lenSeparator + inStrByte
    Wend
  End Sub

以下是日志中出现的错误：

Log Name:      Application    
Source:        Active Server Pages    
Date:          11/11/2010 2:15:35 PM    
Event ID:      5    
Task Category: None    
Level:         Error    
Keywords:      Classic    
User:          N/A    
Computer:      xxxxx.xxxxx.xxx    
Description:    
Error: File /path-to-file/loader.asp Line 36 Operation not Allowed. .    
Event Xml:    
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">    
  <System>    
    <Provider Name="Active Server Pages" />    
    <EventID Qualifiers="49152">5</EventID>    
    <Level>2</Level>    
    <Task>0</Task>    
    <Keywords>0x80000000000000</Keywords>    
    <TimeCreated SystemTime="2010-11-11T19:15:35.000Z" />    
    <EventRecordID>19323</EventRecordID>    
    <Channel>Application</Channel>    
    <Computer>PHSWEB524.partners.org</Computer>    
    <Security />    
  </System>    
  <EventData>    
    <Data>File /mghdev/loader.asp Line 36 Operation not Allowed. </Data>    
  </EventData>    
</Event>