至顶网›软件频道 ›Asp.net直接保存文件到客户端

Asp.net直接保存文件到客户端

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

　　在我们的系统的编写过程中,应该有很多的时候需要客户下载文件.我第一次的做法(应该也是大部分人的做法吧?)是: 1 HttpResponse response = HttpContext.Current.Response; 2

作者：中国IT实验室来源：中国IT实验室 2007年10月2日

关键字：

    使用昨天Asp.net直接保存文件到客户端中的方法，经过我的反复测试，各式文档都运行完全正常。于是昨晚修改了现有代码，修改了下载方法，以解决一直困扰自己的窗口拦截问题。

  　　早上本来还沾沾自喜，这下再也不用老跟客户解释为什么窗口会没掉了。可惜啊，人算不如天算。

  　　早上客户就反映下载的文件全是乱码。立马在本机进行测试，没问题。再同事的机器上试验，同样没问题。

  　　那应该是客户端的问题才是。只好让客户NetMeeting演示一下她的操作过程。下载-〉保存-〉打开。这么简单的流程，不会做错吧？

  　　正在郁闷之际,突然脑光一闪,终于发现不一样的地方,立马试验,果然如此!

  　　到底有什么区别呢?请看操作图:
  客人操作图
  我的操作图
  各位应该看出不同之处了吧?还看不出来?
  这件事情的罪魁祸首就是:



  　　解决方法:使用lovecherry 的如何从注册表读取文件的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 }

　　最后得出结论:要实现柚子Nan提出的能否不考虑文件的类型，直接把文件显示到浏览器(Response),有一种方法,让客户端都不要隐藏已知的扩展名,但是这种方法是无法适应大部分电脑使用者的(一般只有比较熟悉电脑的人才会这样做吧?)

bbs 看中的方法,还没有试用,不知道有没有作用.

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
   '在此处放置初始化页的用户代码
   ' 定义是否是 SQL Server 数据库，这里为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设置
   Response.Charset = ""

   ' 关闭 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

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

业界热点:

数字化转型东数西算自动驾驶智能制造云计算元宇宙虚拟人物联网算力网络数字孪生人工智能区块链开源大数据