How to write an Excel file directlty to the Response stream

How to write an Excel file directlty to the Response stream

An open/save dialog can be opened in browser for ASP.NET and ASP(VBScript) languages and launch the Excel file directly from the browser.
Here are some sample codes:

CODE

     //Create an instance of the object that generates Excel files
     ExcelDocument xls = new ExcelDocument();
     ...

     //Choose a name for the xls file
     string shortFileName = "ListData.xls";

     //Start to prepare the Response
     Response.AppendHeader("content-disposition", "attachment; filename=" + shortFileName);
     Response.ContentType = "application/octetstream";
     Response.Clear();

     //Generate the file and prompt the "Open or Save Dialog Box"
     xls.esd_WriteXLSFile(Response.OutputStream);

     //Finishing the job
     xls.Dispose();
     Response.End();

     'Create an instance of the object that generates Excel files
     set xls = Server.CreateObject("ActiveXLS.ExcelDocument")
     ...

     'Generate the file
     xls.esd_WriteXLSFile ("<AbsolutePath>/ListData.xls")

     Dim strXlsFileName

     strXlsFileName = Server.MapPath("<RelativePath>/ListData.xls")
     Dim objFileSystem
     Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")

     If objFileSystem.FileExists(strXlsFileName) Then
     Dim objStream
     Set objStream = Server.CreateObject("ADODB.Stream")
     objStream.Open
     objStream.Type = 1 'Binary Type
     objStream.LoadFromFile strXlsFileName

     'Start to prepare the Response
     Response.Clear
     Response.ContentType = "application/octet-stream"
     Response.AddHeader "Content-Disposition", "attachment; filename=" & strXlsFileName & ""

     Response.BinaryWrite objStream.Read
     objStream.close
     Set objStream = Nothing

     Response.End
     End If

     //Create an instance of the object that generates Excel files
     ExcelDocument xls = new ExcelDocument();
     ...

     //Choose a name for the xls file
     String shortFileName = "ListData.xls";

     //Start to prepare the Response
     get_Page().get_Response().AppendHeader("content-disposition", "attachment; filename=" + shortFileName);
     get_Page().get_Response().set_ContentType("application/octetstream");
     get_Page().get_Response().Clear();

     //Generate the file and prompt the "Open or Save Dialog Box"
     xls.esd_WriteXLSFile(get_Page().get_Response().get_OutputStream());

     //Finishing the job
     xls.Dispose();
     get_Page().get_Response().End();

     'Create an instance of the object that generates Excel files
     Dim xls As New ExcelDocument
     ...

     'Choose a name for the xls file
     Dim shortFileName As String = "ListData.xls"

     'Start to prepare the Response
     Response.AppendHeader("content-disposition", "attachment; filename=" + shortFileName)
     Response.ContentType = "application/octetstream"
     Response.Clear()

     'Generate the file and prompt the "Open or Save Dialog Box"
     xls.esd_WriteXLSFile(Response.OutputStream)

     'Finishing the job
     xls.Dispose()
     Response.End()