ASP.NET下载CSV文件

     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button1.Click

         Dim  aSql  As   String
         Dim  i  As   Integer , j  As   Integer
         Dim  aRow  As   Long
         Dim  aDs  As   New  DataSet
         Dim  aRecord  As   String
         Const  FLD_CNT &   =   22

         Dim  Encodingd  As  System.Text.Encoding

        Encodingd  =  System.Text.Encoding.GetEncoding( " Shift-JIS " )

        Response.ContentType  =   " application/x-download "
        Response.AddHeader( " Content-Disposition " ,  " filename=Skmfile.csv " )
        Response.AddHeader( " Content-Type " ,  " text/csv; charset=SHIFT_JIS " )

        aSql  =   ""
        aSql  =  aSql  &   " Select * From SKMSOMT "


         If  GetData(aSql,  " SKMSOMT " , aDs)  =   True   Then
             For  i  =   0   To  aDs.Tables( " SKMSOMT " ).Rows.Count  -   1
                 For  j  =   0   To  FLD_CNT  -   1
                     Select   Case  j
                         Case   1
                             ' １項目目
                            aRecord  =   ""
                            aRecord  =  aDs.Tables( " SKMSOMT " ).Rows(i).Item(j)
                         Case   4 ,  6 ,  8 ,  10 ,  12 ,  15 ,  16 ,  17 ,  18
                             ' 数字
                            aRecord  =  aRecord  &   " , "   &  CDblX(aDs.Tables( " SKMSOMT " ).Rows(i).Item(j))
                         Case   1 ,  2 ,  3 ,  5 ,  6 ,  9 ,  11
                             ' 文字
                            aRecord  =  aRecord  &   " ,"" "   &  aDs.Tables( " SKMSOMT " ).Rows(i).Item(j)  &   " "" "
                         Case   14 ,  19 ,  21
                             ' 日付
                             If   IsDate ( Format (aDs.Tables( " SKMSOMT " ).Rows(i).Item(j),  " 0000/00/00 " ))  =   True   Then
                                aRecord  =  aRecord  &   " ,"" "   &   Format (aDs.Tables( " SKMSOMT " ).Rows(i).Item(j),  " 0000/00/00 " )  &   " "" "
                             Else
                                aRecord  =  aRecord  &   " ,"" "" "
                             End   If
                         Case   20 ,  22
                             ' 時間
                             If   IsDate ( Format (aDs.Tables( " SKMSOMT " ).Rows(i).Item(j),  " 00:00:00 " ))  =   True   Then
                                aRecord  =  aRecord  &   " ,"" "   &   Format (aDs.Tables( " SKMSOMT " ).Rows(i).Item(j),  " 00:00:00 " )  &   " "" "
                             Else
                                aRecord  =  aRecord  &   " ,"" "" "
                             End   If
                         Case   Else
                             ' 読み飛ばし
                     End   Select
                 Next
                aRecord  =  aRecord  &  vbCrLf
                Response.BinaryWrite(Encodingd.GetBytes(aRecord))
             Next
            Response.End()
         End   If
     End Sub

Response.ContentType属性指定服务器响应的 HTTP 内容类型，默认为 text类型的HTML格式文件。除了text他还支持image、audio、video、application等类型。
Response.End 是Response常用的一种方法，使 Web 服务器停止处理脚本并返回当前结果，文件中剩余的内容将不被处理。
Response.BinaryWrite(Buffer);. 运行，IE出现打开、下载文件的对话框。