ASP.NET直接保存文件到客戶端

　　在我們的系統(tǒng)的編寫過(guò)程中，應(yīng)該有很多的時(shí)候需要客戶下載文件。我第一次的做法(應(yīng)該也是大部分人的做法吧？)是：

　　1 HttpResponse response = HttpContext.Current.Response;

　　2 string js = "<script language=javascript>window.open('{0}');</script>";

　　3 js = string.Format(js, url);

　　4 response.Write(js);
　

　　但是有個(gè)問(wèn)題了,就是會(huì)被廣告攔截軟件直接攔截掉,另我非常的頭痛,于是尋找更好的解決方法.看了用Response.BinaryWrite寫文件流一文之后覺得確實(shí)可以如此,修改代碼如下:
 

1/**//**//**//// <summary>
2 /**//// 下載文件
3 /**//// </summary>
4 /**//// <param name="filename">文件物理地址</param>
5
6protected void DownloadFile(string filename)
7 ...{
8 string saveFileName = "test.xls";
9 int intStart = filename.LastIndexOf("\")+1;
10 saveFileName = filename.Substring(intStart,filename.Length-intStart);
11 FileStream MyFileStream;
12 long FileSize;
13
14 MyFileStream = new FileStream(filename,FileMode.Open);
15 FileSize = MyFileStream.Length;
16
17 byte[] Buffer = new byte[(int)FileSize];
18 MyFileStream.Read(Buffer, 0, (int)FileSize);
19 MyFileStream.Close();
20
21 Response.AddHeader("Content-Disposition", "attachment;filename="+saveFileName);
22 Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312");
23 Response.ContentType = "application/vnd.ms-Excel";
24
25 Response.BinaryWrite(Buffer);
26 Response.Flush();
27 Response.Close();
28 Response.End();
29
30 }

　　但是有個(gè)嚴(yán)重的問(wèn)題，就是文件格式。這樣只是將流輸出，且無(wú)法正確識(shí)別格式。還好，能人層出不窮， 柚子Nan 提出了能否不考慮文件的類型，直接把文件顯示到瀏覽器(Response) 的想法正好切中我的要害所在，于是急忙研究了柚子Nan的想法，修改出最后代碼：

1 /**//**//**//// <summary>
2 /**//// 下載文件
3 /**//// </summary>
4 /**//// <param name="filename">文件物理地址</param>
5 protected void DownloadFile(string filename)
6 ...{
7 string saveFileName = "test.xls";
8 int intStart = filename.LastIndexOf("\")+1;
9 saveFileName = filename.Substring(intStart,filename.Length-intStart);
10
11 Response.Clear();
12 Response.Charset = "utf-8";
13 Response.Buffer= true;
14 this.EnableViewState = false;
15 Response.ContentEncoding = System.Text.Encoding.UTF8;
16
17 Response.AppendHeader("Content-Disposition","attachment;filename=" + saveFileName);
18 Response.WriteFile(filename);
19 Response.Flush();
20 Response.Close();
21
22 Response.End();
23 }

　　使用Asp.net直接保存文件到客戶端中的方法，經(jīng)過(guò)反復(fù)測(cè)試，各式文檔都運(yùn)行完全正常。于是改了現(xiàn)有代碼，修改了下載方法，以解決一直困擾自己的窗口攔截問(wèn)題。

　　后來(lái)客戶反映下載的文件全是亂碼。立馬在本機(jī)進(jìn)行測(cè)試，沒(méi)問(wèn)題。在別人的機(jī)器上試驗(yàn)，同樣沒(méi)問(wèn)題。

　　那應(yīng)該是客戶端的問(wèn)題才是。只好讓客戶NetMeeting演示一下她的操作過(guò)程。下載-〉保存-〉打開。這么簡(jiǎn)單的流程，不會(huì)做錯(cuò)吧？

　　正在郁悶之際，突然腦光一閃，終于發(fā)現(xiàn)不一樣的地方，立馬試驗(yàn)，果然如此！

　　解決方法:使用lovecherry 的如何從注冊(cè)表讀取文件的ContentType 一文的方法

　　修正代碼:

1 /**//// <summary>
2 /// 下載文件
3 /// </summary>
4 /// <param name="filename">文件物理地址</param>
5 protected void DownloadFile(string filename)
6 {
7
8 string saveFileName = "test.xls";
9 int intStart = filename.LastIndexOf("\\")+1;
10 saveFileName = filename.Substring(intStart,filename.Length-intStart);
11
12 System.IO.FileInfo fi=new System.IO.FileInfo(filename);
13 string fileextname=fi.Extension;
14 string DEFAULT_CONTENT_TYPE = "application/unknown";
15 RegistryKey regkey,fileextkey;
16 string filecontenttype;
17 try
18 {
19 regkey=Registry.ClassesRoot;
20 fileextkey=regkey.OpenSubKey(fileextname);
21 filecontenttype=fileextkey.GetValue("Content Type",DEFAULT_CONTENT_TYPE).ToString();
22 }
23 catch
24 {
25 filecontenttype=DEFAULT_CONTENT_TYPE;
26 }
27
28
29 Response.Clear();
30 Response.Charset = "utf-8";
31 Response.Buffer= true;
32 this.EnableViewState = false;
33 Response.ContentEncoding = System.Text.Encoding.UTF8;
34
35 Response.AppendHeader("Content-Disposition","attachment;filename=" + saveFileName);
36 Response.ContentType=filecontenttype;
37
38 Response.WriteFile(filename);
39 Response.Flush();
40 Response.Close();
41
42 Response.End();
43 }
44

　　最后得出結(jié)論：要實(shí)現(xiàn)柚子Nan提出的能否不考慮文件的類型，直接把文件顯示到瀏覽器(Response)，有一種方法,讓客戶端都不要隱藏已知的擴(kuò)展名，但是這種方法是無(wú)法適應(yīng)大部分電腦使用者的(一般只有比較熟悉電腦的人才會(huì)這樣做吧?)
 

　　bbs 看中的方法，還沒(méi)有試用，不知道有沒(méi)有作用。

  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles MyBase.Load
    '在此處放置初始化頁(yè)的用戶代碼
    ' 定義是否是 SQL Server 數(shù)據(jù)庫(kù)，這里為False
    Dim blnIsSQLServer As System.Boolean = False
    Dim strSQL As String
    Dim objDataset As New DataSet()
    Dim objConn As Object
    Dim strCnn As String

    If blnIsSQLServer Then
      strCnn = "User ID=sa;Initial Catalog=Northwind;Data Source=.\NetSDK;"
      objConn = New System.Data.SqlClient.SqlConnection(strCnn)
      objConn.Open()
      Dim objAdapter As New System.Data.SqlClient.SqlDataAdapter()
      strSQL = "Select * from customers where country='USA'"
      objAdapter.SelectCommand = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
      objAdapter.Fill(objDataset)
    Else
      strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
      objConn = New System.Data.OleDb.OleDbConnection(strCnn)
      objConn.Open()
      Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter()
      strSQL = "Select Top 10 Title From Document"
      objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand(strSQL, objConn)
      objAdapter.Fill(objDataset)
    End If
    Dim oView As New DataView(objDataset.Tables(0))
    DataGrid1.DataSource = oView
    DataGrid1.DataBind()
    objConn.Close()
    objConn.Dispose()
    objConn = Nothing
    If Request.QueryString("bExcel") = "1" Then
      Response.ContentType = "application/vnd.ms-excel"
      ' 從Content-Type header中去除charset設(shè)置
      Response.Charset = ""

      ' 關(guān)閉 ViewState
      Me.EnableViewState = False
      Dim tw As New System.IO.StringWriter()
      Dim hw As New System.Web.UI.HtmlTextWriter(tw)
      ' 獲取control的HTML
      DataGrid1.RenderControl(hw)
      ' 把HTML寫回瀏覽器
      Response.Write(tw.ToString())
      Response.End()
    End If
  End Sub