Public Class WebForm1

    Inherits System.Web.UI.Page



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



        Dim encode As System.Text.Encoding

        Dim td2 As String

        td2 = "M_Test.CSV"

        encode = System.Text.Encoding.GetEncoding("Shift-JIS")  '文字コードにShiftJISを指定。(UTF8の場合は指定不要) 

        Response.AppendHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(td2))

        Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift_jis")

        Response.ContentType = "text/csv"

        Response.Write("Death Data")



    End Sub

End Class