ASP下载文件（不需要FSO）

Private Sub FileDownLoad(fname)
        pathtype = "application/x-msdownload"  
        fname = server.MapPath(fname) 
        filename=split(fname,"\") 
   
        set objAdoStream=Server.createObject("ADODB.Stream") 
        objAdoStream.Type=1 
        objAdoStream.open() 
        objAdoStream.LoadFromFile(fname) 
        strchar=objAdoStream.Read() 
        fsize=objAdoStream.size 
        objAdoStream.Close() 
        set objAdoStream=nothing   
   
        Response.AddHeader "content-type", pathtype  
        Response..AddHeader "Content-Disposition","attachment;filename=" & filename(ubound(filename)) 
        Response.AddHeader "content-length", fsize  
  
        Response.BinaryWrite(strchar) 
        Response.Flush()
End sub
%>