[VB.NET] POSTされたデータをShift_JISとして読み込む

投稿日：2015年11月1日更新日：2015年11月6日

POSTされたデータをShift_JISとして読み込むサンプルです。

Dim d As Byte() = Request.BinaryRead(Request.ContentLength)
Dim e As Encoding = Encoding.GetEncoding("Shift_JIS")
Dim value As String = e.GetString(d)

Dim d As Byte() = Request.BinaryRead(Request.ContentLength)

Dim e As Encoding = Encoding.GetEncoding("Shift_JIS")

Dim value As String = e.GetString(d)

値は、「key1=val1&key2=val2…」みたいな感じで取得できるので、
Split関数などで、”&”や”=”を分割すればキーと値を取得できます。

-ネットワーク関連

執筆者：ごん

comment コメントをキャンセル

[VB.NET] セッションに値を設定・取得する

セッションに値をセットするサンプルと、セッションから値を取得するサンプルです。

'セッションにキー「hoge」、値「HOGE」をセットする
Session("hoge") = "HOGE"

'セッションキー「hoge」の値を取得する
Dim sess_hoge As Object = Session("hoge")

'セッションにキー「hoge」、値「HOGE」をセットする

Session("hoge") = "HOGE"

'セッションキー「hoge」の値を取得する

Dim sess_hoge As Object = Session("hoge")

※セッションに存在しないキーを取得しようとした場合は …

[VB.NET] クッキーに値を設定・取得する

Cookieに値をセットするサンプルと、 Cookieから値を取り出すサンプルです。

'Cookieに値を設定
Response.Cookies("hoge").Value = "ほげ"

'Cookieから値を取得
Dim val as String = Request.Cookies("hoge").Value

'Cookieに値を設定

Response.Cookies("hoge").Value = "ほげ"

'Cookieから値を取得

Dim val as String = Request.Cookies("hoge").Value

クッキーをセットする時、有効期限も指定できます。 …

[VB.NET] セッションをクリアする

セッションをクリアするサンプルです。

'①セッションキー「hoge」をクリアする
Session.Remove("hoge")

'②セッションキー「hoge」の値をクリアする
Session("hoge") = Nothing

'③セッション内全てのキーをクリアする。
Session.RemoveAll()

'①セッションキー「hoge」をクリアする

Session.Remove("hoge")

'②セッションキー「hoge」の値をクリアする

Session("hoge") = Nothing

'③セッション内全てのキーをクリアする。

Session.RemoveAll()

①でクリアした場合は、キー自体が削除されます。 ②でクリアした場合は、値のみ削除され、キーは削除 …

[VB.NET] CSVファイルをダウンロードする

CSVデータを生成して、CSVデータをファイルとしてダウンロードするサンプルです。

Protected Sub CsvDownload()

  'CSVデータを生成
  Dim str As StringBuilder = New StringBuilder
  str.Append("文字1-1")
  str.Append(",")
  str.Append("文字1-2")
  str.Append(",")
  str.Append("文字1-3")
  str.Append(vbCrLf)

  str.Append("文字2-1")
  str.Append(",")
  str.Append("文字2-2")
  str.Append(",")
  str.Append("文字2-3")
  str.Append(vbCrLf)

  'Contentをクリア
  Response.ClearContent()

  'Contentを設定
  Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift-jis")  'Shift-JISで出力したい場合
  'Response.ContentEncoding = System.Text.Encoding.UTF8  'UTF-8で出力したい場合
  Response.ContentType = "text/csv"

  '表示ファイル名を指定
  Dim viewFileName As String = HttpUtility.UrlEncode("サンプル.csv")
  Response.AddHeader("Content-Disposition", "attachment;filename=" + viewFileName)

  'CSVデータを書き込み
  Response.Write(str.ToString)

  'ダウンロード実行
  Response.Flush()
  Response.End()

End Sub

Protected Sub CsvDownload()

'CSVデータを生成

Dim str As StringBuilder = New StringBuilder

str.Append("文字1-1")

str.Append(",")

str.Append("文字1-2")

str.Append(",")

str.Append("文字1-3")

str.Append(vbCrLf)

str.Append("文字2-1")

str.Append(",")

str.Append("文字2-2")

str.Append(",")

str.Append("文字2-3")

str.Append(vbCrLf)

'Contentをクリア

Response.ClearContent()

'Contentを設定

Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift-jis") 'Shift-JISで出力したい場合

'Response.ContentEncoding = System.Text.Encoding.UTF8 'UTF-8で出力したい場合

Response.ContentType = "text/csv"

'表示ファイル名を指定

Dim viewFileName As String = HttpUtility.UrlEncode("サンプル.csv")

Response.AddHeader("Content-Disposition", "attachment;filename=" + viewFileName)

'CSVデータを書き込み

Response.Write(str.ToString)

'ダウンロード実行

Response.Flush()

Response.End()

End Sub

文字コードは、Excelで表示させるのであれば、 …

[VB.NET] Excelをダウンロードする

サーバ上にあるExcelファイルをダウンロードするサンプルです。

Imports System.IO

Private Sub DownloadExcel()

    'Contentをクリア
    Response.ClearContent()

    'Contentを設定
    Response.ContentEncoding = System.Text.Encoding.GetEncoding("shift-jis")
    Response.ContentType = "application/vnd.ms-excel"

    '表示ファイル名を指定
    Dim fn As String = HttpUtility.UrlEncode("サンプル.xlsx")
    Response.AddHeader("Content-Disposition", "attachment;filename=" + fn)

    'ダウンロード対象ファイルを指定
    Response.WriteFile("C:\hoge.xlsx")

    'ダウンロード実行
    Response.Flush()
    Response.End()

End Sub