用asp实现文件浏览、上传、下载的程序(2)

  If Request.TotalBytes < 1 Then  
   isErr_ = 1 
   ErrMessage_="" 
   Exit Sub 
  End If 
  If MaxSize > 0 Then  
   If Request.TotalBytes > MaxSize Then 
   isErr_ = 2  
   ErrMessage_="" 
   Exit Sub 
   End If 
  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 oUpFileStream = Server.CreateObject ("ADODB.Stream") 
  oUpFileStream.Type = 1 
  oUpFileStream.Mode = 3 
  oUpFileStream.Open  
  oUpFileStream.Write Request.BinaryRead (Request.TotalBytes) 
  oUpFileStream.Position = 0 
  getupdata1 = oUpFileStream.Read  
  iFormEnd = oUpFileStream.Size 
  bCrLf = ChrB (13) & ChrB (10) 

  sSpace = MidB (getupdata1,1, InStrB (1,getupdata1,bCrLf)-1) 
  iStart = LenB(sSpace) 
  iFormStart = iStart+2 

  Do 
   iInfoEnd = InStrB (iFormStart,getupdata1,bCrLf & bCrLf)+3 
   tStream.Type = 1 
   tStream.Mode = 3 
   tStream.Open 
   oUpFileStream.Position = iFormStart 
   oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart 
   tStream.Position = 0 
   tStream.Type = 2 
   tStream.CharSet = "gb2312" 
   sInfo = tStream.ReadText    

   iFormStart = InStrB (iInfoEnd,getupdata1,sSpace)-1 
   iFindStart = InStr (22,sInfo,"name=""",1)+6 
   iFindEnd = InStr (iFindStart,sInfo,"""",1) 
   sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart) 

   If InStr (45,sInfo,"filename=""",1) > 0 Then 
    Set oFileInfo = new clsFileInfo