我有代码通过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>