Request 对象 错误 'ASP 0104 : 80004005'

不允许操作

/admin/Dialog/Upfile.asp，行 44
我看了我的/admin/Dialog/Upfile.asp这个文件的代码，也没有发现问题，现在我把我的代码粘贴在这儿，请高手帮我看一下，谢谢了！
<%
Dim UpFileStream
Class UpFileClass
 Dim Form,File,Err
 Private Sub Class_Initialize
  Err = -1
 End Sub
 Private Sub Class_Terminate 
  '清除变量及对像
  If Err < 0 Then
   Form.RemoveAll
   Set Form = Nothing
   File.RemoveAll
   Set File = Nothing
   UpFileStream.Close
   Set UpFileStream = Nothing
  End If
 End Sub
 
 Public Property Get ErrNum()
  ErrNum = Err
 End Property
 
 Public Sub GetData ()
  '定义变量
  Dim RequestBinData,sSpace,bCrLf,sObj,iObjStart,iObjEnd,tStream,iStart,oFileObj
  Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
  Dim iFindStart,iFindEnd
  Dim iFormStart,iFormEnd,sFormName
  '代码开始
  If Request.TotalBytes < 1 Then  '如果没有数据上传
   Err = 1
   Exit Sub
  End If
  Set Form = Server.CreateObject ("Scripting.Dictionary")
  Form.CompareMode = 1
  Set File = Server.CreateObject ("Scripting.Dictionary")
  File.CompareMode = 1
  Set tStream = Server.CreateObject ("ADODB.Stream")
  Set UpFileStream = Server.CreateObject ("ADODB.Stream")
  UpFileStream.Type = 1
  UpFileStream.Mode = 3
  UpFileStream.Open
  UpFileStream.Write (Request.BinaryRead(Request.TotalBytes))
  UpFileStream.Position = 0
  RequestBinData=UpFileStream.Read
  iFormEnd = UpFileStream.Size
  bCrLf = ChrB (13) & ChrB (10)
  '取得每个项目之间的分隔符
  sSpace=MidB (RequestBinData,1, InStrB (1,RequestBinData,bCrLf)-1)
  iStart=LenB (sSpace)
  iFormStart = iStart+2
  '分解项目
  Do
   iObjEnd=InStrB(iFormStart,RequestBinData,bCrLf & bCrLf)+3
   tStream.Type = 1
   tStream.Mode = 3
   tStream.Open
   UpFileStream.Position = iFormStart
   UpFileStream.CopyTo tStream,iObjEnd-iFormStart
   tStream.Position = 0
   tStream.Type = 2
   tStream.CharSet = "gb2312"
   sObj = tStream.ReadText     
   '取得表单项目名称
   iFormStart = InStrB (iObjEnd,RequestBinData,sSpace)-1
   iFindStart = InStr (22,sObj,"name=""",1)+6
   iFindEnd = InStr (iFindStart,sObj,"""",1)
   sFormName = Mid  (sObj,iFindStart,iFindEnd-iFindStart)
   '如果是文件
   If InStr  (45,sObj,"filename=""",1) > 0 Then
    Set oFileObj = new FileObj_Class
    '取得文件属性
    iFindStart = InStr (iFindEnd,sObj,"filename=""",1)+10
    iFindEnd = InStr (iFindStart,sObj,"""",1)
    sFileName = Mid (sObj,iFindStart,iFindEnd-iFindStart)
    oFileObj.FileName = Mid (sFileName,InStrRev (sFileName, "\")+1)
    oFileObj.FilePath = Left (sFileName,InStrRev (sFileName, "\"))
    oFileObj.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
    iFindStart = InStr (iFindEnd,sObj,"Content-Type: ",1)+14
    iFindEnd = InStr (iFindStart,sObj,vbCr)
    oFileObj.FileType = Mid  (sObj,iFindStart,iFindEnd-iFindStart)
    oFileObj.FileStart = iObjEnd
    oFileObj.FileSize = iFormStart -iObjEnd -2
    oFileObj.FormName = sFormName
    File.add sFormName,oFileObj
   else
    '如果是表单项目
    tStream.Close
    tStream.Type = 1
    tStream.Mode = 3
    tStream.Open
    UpFileStream.Position = iObjEnd
    UpFileStream.CopyTo tStream,iFormStart-iObjEnd-2
    tStream.Position = 0
    tStream.Type = 2
    tStream.CharSet = "gb2312"
    sFormValue = tStream.ReadText
    If Form.Exists(sFormName)Then
     Form (sFormName) = Form (sFormName) & ", " & sFormValue
    else
     form.Add sFormName,sFormValue
    End If
   End If
   tStream.Close
   iFormStart = iFormStart+iStart+2
   '如果到文件尾了就退出
  Loop Until  (iFormStart+2) >= iFormEnd
  RequestBinData = ""
  Set tStream = Nothing
 End Sub
End Class

'----------------------------------------------------------------------------------------------------
'文件属性类
Class FileObj_Class
 Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
 '保存文件方法
 Public Function SaveToFile (Path)
  On Error Resume Next
  Dim oFileStream
  Set oFileStream = CreateObject ("ADODB.Stream")
  oFileStream.Type = 1
  oFileStream.Mode = 3
  oFileStream.Open
  UpFileStream.Position = FileStart
  UpFileStream.CopyTo oFileStream,FileSize
  oFileStream.SaveToFile Path,2
  oFileStream.Close
  Set oFileStream = Nothing
 End Function
 '取得文件数据
 Public Function FileData
  UpFileStream.Position = FileStart
  FileData = UpFileStream.Read (FileSize)
 End Function
End Class
%>

2003系统，200k上传限制的问题

请查看

http://edu.kesion.com/server/webserver/3746908192.html