C#、VB.NET、ASP.NET、VisualStudioのリファレンスです

[VB.NET] GETパラメータを取得する

投稿日：2015年11月10日

GET値を取得するサンプルです。

Dim val As String = Request.QueryString("key1")

1	Dim val As String = Request.QueryString("key1")

以下のようにGET渡しされた場合は、hogeが取得できます。

http://xxx.xxx/Default.aspx?key1=hoge

-ネットワーク関連

執筆者：ごん

comment コメントをキャンセル

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

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

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

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

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

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

Session.Remove("hoge")

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

Session("hoge") = Nothing

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

Session.RemoveAll()

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

[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] POSTされたデータをShift_JISとして読み込む

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…」みた …

[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