将即时创建的 CSV 发送回客户端以供下载

Question

我正在将一堆 FOXPRO / FOXWEB 应用程序转换为 ASP.NET。

底层数据库仍然是foxpro（目前）。

我将一个表传递给一些 VB.NET 代码，我希望将其转换为 CSV 文件并发送回客户端以供下载。它有效！有点......有时它会起作用，但有时，它不会询问我是否要下载 CSV 文件，而是将文件喷到浏览器窗口中。

在 asp 方面，我传递响应对象、表和 csv 文件名。

<%
   Dim xls_fn As String = "test01.csv"

   'OLEDB call to fill up 'tbl' ... this works.

   sendTableAsCSVtoClient(response, tbl, xls_fn)
%>

在文件 clsCommon.vb 中，我有以下代码：

Option Explicit On 
'Option Strict On

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.Page
Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Diagnostics
Imports System.Data
Imports System.Data.OleDb


Public Class clsCommon
    Inherits Page

    Public Shared Function enq(ByVal str As String) As String
        Dim dq As String
        dq = """"
        Return dq & str & dq
    End Function

    ' some other functions and subs defined in here ... blah blah blah
    ' ...

    Public Shared Function sendTableAsCSVtoClient(ByVal resp As HttpResponse, ByVal sqlTable As DataTable, ByVal xls_fn As String) As Boolean
        Dim r As DataRow
        Dim c As DataColumn
        Dim sep As String = ","
        Dim FileExtension As String
        Dim lcFileNameONLY As String
        Dim i As Integer
        Dim dq As String = """"

        FileExtension = UCase(Path.GetExtension(xls_fn))
        lcFileNameONLY = UCase(Path.GetFileNameWithoutExtension(xls_fn))

        resp.Clear()
        resp.ClearContent()
        resp.ClearHeaders()
        resp.ContentType = "application/vnd.ms-excel"
        resp.AddHeader("Content-Disposition", "inline; filename=" & lcFileNameONLY & ".csv")
        For Each c In sqlTable.Columns
            resp.Write(UCase(c.ColumnName) & sep)
        Next
        resp.Write(vbCrLf)

        For Each r In sqlTable.Rows
            For i = 0 To sqlTable.Columns.Count - 1
                resp.Write(enq(r(i)) & sep)
            Next
            resp.Write(vbCrLf)
        Next

        resp.End()
        Return True

    End Function

End Class

1. 是什么原因造成的？
2. 我该如何解决它？

我猜数据源是表并不重要。 请注意，该文件是动态创建的，并且永远不会存在于服务器的文件系统中。

德克萨斯州， 特夫

Answer 1

不要使用 Inline 的 Content-Disposition 标头，而是使用 Attachment - 这将始终提示下载。

更改以下行：

resp.AddHeader("Content-Disposition", "inline; filename=" & lcFileNameONLY & ".csv")

To

resp.AddHeader("Content-Disposition", "attachment; filename=" & lcFileNameONLY & ".csv")

See this 和 此作为示例。

内联类型意味着浏览器可以自由地内联渲染它（在浏览器内），如果知道如何的话。

并查看这个所以问题，询问为什么inline有时会提示下载（与您的问题完全相反......）。

Answer 2

问题是您的 Content-disposition 标头。它应该是“attachment”而不是“inline”。

您可能还希望将内容类型设置为“text/csv”，而不是“application/vnd.ms-excel”。这样您就可以更加准确，如果他们更喜欢使用其他 CSV 格式，效果应该会更好。但是，对于内部应用程序，也许 vnd.ms-excel 可能会工作得更好？

Answer 3

我同意 Oded 和 chmullig 的观点，即您应该更改 Content-Disposition，但我也建议使用缓冲区并通过刷新完成响应：

 resp.Clear()
 resp.Buffer = true

 'build csv

 resp.Flush()
 resp.Close()

我相信对 .End() 的调用会抛出 ThreadAbortException 来停止执行，这可能会导致问题取决于您如何处理异常。 请参阅此处了解更多信息