Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Response.AddHeader("Content-Disposition", "attachment;filename=shohin.csv") Response.ContentType = "application/octet-stream"
Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift-JIS")
Dim s As String = "" s &= "12345,あああああ,32323,39002,23032" & vbCrLf s &= "12346,あああああ,32323,39002,23032" & vbCrLf s &= "12347,あああああ,32323,39002,23032" & vbCrLf s &= "12348,あああああ,32323,39002,23032" & vbCrLf s &= "12349,あああああ,32323,39002,23032" & vbCrLf Response.BinaryWrite(encoding.GetBytes(s)) Response.End() End Sub
