vbscript runtime error 800a01a8
object required ‘Item(…)’

我调查了一点，我认为问题是在文件upload.asp与功能BuildUploadRequest，但我真的不明白为什么

形成

<form method="POST" action="landing-page.asp" ENCTYPE="multipart/form-data">
    <input type="file" name="file">
    <input type="hidden" name="key" value="0">
    <input type="submit" name="send" value="1">
</form>

表格登陆的页面

byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest(RequestBin)  '//function defined in upload.asp
if UploadRequest.Item("key").Item("Value")="0" then  '//this is the line giving the error
    '//code here...
end if

upload.asp

Sub BuildUploadRequest(RequestBin)
    PosBeg = 1  
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)    
    boundaryPos = InstrB(1,boundary)

    '//Get all data inside the boundaries
    Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
        '//Members variable of objects are put in a dictionary object
        Dim UploadControl
        Set UploadControl = CreateObject("Scripting.Dictionary")
        '//Get an object name
        Pos = InstrB(BoundaryPos,getByteString("Content-Disposition"))
        Pos = InstrB(Pos,getByteString("name="))
        PosBeg = Pos+6
        PosEnd = InstrB(PosBeg,getByteString(chr(34)))
        Name = getString(MidB(RequestBin,PosEnd-PosBeg))
        PosFile = InstrB(BoundaryPos,getByteString("filename="))
        PosBound = InstrB(PosEnd,boundary)
        '//Test if object is of file type
        If  PosFile<>0 AND (PosFile<PosBound) Then
            '//Get Filename,content-type and content of file
            PosBeg = PosFile + 10
            PosEnd =  InstrB(PosBeg,getByteString(chr(34)))
            FileName = getString(MidB(RequestBin,PosEnd-PosBeg))
            '//Add filename to dictionary object
            UploadControl.Add "FileName",FileName
            Pos = InstrB(PosEnd,getByteString("Content-Type:"))
            PosBeg = Pos+14
            PosEnd = InstrB(PosBeg,getByteString(chr(13)))
            '//Add content-type to dictionary object
            ContentType = getString(MidB(RequestBin,PosEnd-PosBeg))
            UploadControl.Add "ContentType",ContentType
            '//Get content of object
            PosBeg = PosEnd+4
            PosEnd = InstrB(PosBeg,boundary)-2
            Value = MidB(RequestBin,PosEnd-PosBeg)
        Else
            '//Get content of object
            Pos = InstrB(Pos,getByteString(chr(13)))
            PosBeg = Pos+4
            PosEnd = InstrB(PosBeg,boundary)-2
            Value = getString(MidB(RequestBin,PosEnd-PosBeg))
        End If
        '//Add content to dictionary object
        UploadControl.Add "Value",Value   
        '//Add dictionary object to main dictionary
        '//response.write name & "<br>"
        UploadRequest.Add name,UploadControl   
        '//Loop to next object
        BoundaryPos=InstrB(BoundaryPos+LenB(boundary),boundary)
    Loop
End Sub

'//String to byte string conversion
Function getByteString(StringStr)
  For i = 1 to Len(StringStr)
    charx = Mid(StringStr,i,1)
    getByteString = getByteString & chrB(AscB(charx))
  Next
End Function

'//Byte string to string conversion
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
    getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function

这个代码在每一个项目中一直运行正常，但是现在它无处不在。所以我不能只是编辑和使用另一个功能，我需要明白为什么它不再工作了