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

    iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10 
    iFindEnd = InStr (iFindStart,sInfo,""""&vbCrLf,1) 
    sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart) 
    oFileInfo.FileName = GetFileName(sFileName) 
    oFileInfo.FilePath = GetFilePath(sFileName) 
    oFileInfo.FileExt = GetFileExt(sFileName) 
    iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14 
    iFindEnd = InStr (iFindStart,sInfo,vbCr) 
    oFileInfo.FileMIME = Mid(sinfo,iFindStart,iFindEnd-iFindStart) 
    oFileInfo.FileStart = iInfoEnd 
    oFileInfo.FileSize = iFormStart -iInfoEnd -2 
    oFileInfo.FormName = sFormName 
    file.add sFormName,oFileInfo 
   else 

    tStream.Close 
    tStream.Type = 1 
    tStream.Mode = 3 
    tStream.Open 
    oUpFileStream.Position = iInfoEnd  
    oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-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  
  getupdata1 = "" 
  Set tStream = Nothing 
  isGetData_=true 
 end if 
End Sub 

Public Function SaveToFile(Item,Path) 
 SaveToFile=SaveToFileEx(Item,Path,True) 
End Function 

Public Function AutoSave(Item,Path) 
 AutoSave=SaveToFileEx(Item,Path,false) 
End Function 

Private Function SaveToFileEx(Item,Path,Over)