asp.net下载CSV代码.

imports system.data.oledb
imports system.io
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;data source=D:/NTOa/searchemail/db/addr.mdb"
        Dim conn As OleDbConnection = New OleDbConnection(connstr)
        Dim myad As OleDbDataAdapter = New OleDbDataAdapter("select name,email from address", conn)
        myad.Fill(ds, "address")
        Dim dt As DataTable
        dt = ds.Tables("address")
        Dim sw As StringWriter
        sw = New StringWriter()
        Dim dr As DataRow
        sw.WriteLine("姓名,邮件地址")
        For Each dr In dt.Rows
            sw.WriteLine(dr("name") + "," + dr("email"))
        Next
        sw.Close()
        Response.AddHeader("content-disposition", "attachment;filename=email.csv")
        Response.ContentType = "application/ms-excel"
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
        Response.Write(sw)
        Response.End()
    End Sub