.NETちょこっとリファレンス

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

ネットワーク関連

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

投稿日：2015年10月25日更新日：2015年11月6日

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

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

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

1

2

3

4

5

'Cookieに値を設定

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

'Cookieから値を取得

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

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

'キー「hoge」の有効期限を30日後に指定する
Response.Cookies("hoge").Expires = DateTime.Now.AddDays(30)

'キー「hoge」の有効期限を120秒後に指定する
Response.Cookies("hoge").Expires = DateTime.Now.AddSeconds(120)

1

2

3

4

5

'キー「hoge」の有効期限を30日後に指定する

Response.Cookies("hoge").Expires = DateTime.Now.AddDays(30)

'キー「hoge」の有効期限を120秒後に指定する

Response.Cookies("hoge").Expires = DateTime.Now.AddSeconds(120)

-ネットワーク関連

執筆者：ごん

comment コメントをキャンセル

関連記事

[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)

1

2

3

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] GETパラメータを取得する

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

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

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

以下のようにGET渡しされた場合は、hogeが取得できます。 http://xxx.xxx/Defa …

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

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

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

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

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

1

2

3

4

5

6

7

8

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

Session.Remove("hoge")

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

Session("hoge") = Nothing

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

Session.RemoveAll()

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

[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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

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

[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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

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で表示させるのであれば、 …

PREV: [VB.NET] Excelをダウンロードする
NEXT: [VB.NET] セッションに値を設定・取得する

スポンサーリンク

検索

カテゴリー

.NET全般 (8)
- IIS (1)
- log4net (1)
- VisualStudio (6)
ASP.NET (5)
C# (24)
- C#基本 (4)
- コレクション関連 (1)
- 数値関連 (5)
- 文字列関連 (5)
- 日付関連 (4)
- 環境関連 (1)
- 配列関連 (4)
VB.NET (33)
- Excel関連 (5)
- VB.NET基本 (8)
- コレクション関連 (4)
- データベース関連 (1)
- トラブル対処 (1)
- ネットワーク関連 (7)
- 数値関連 (1)
- 文字列関連 (5)
- 配列関連 (1)

姉妹サイト

Javaちょこっとリファレンス
オラクルちょこっとリファレンス

: 2015/12/13

[ASP.NET] POSTする最大値を設定する

: 2015/12/13

[IIS] ASP.NETアプリケーションを仮想ディレクトリに追加する

: 2015/12/13

[VisualStudio] メソッドがどこから参照されているか調べる

: 2015/12/13

[VisualStudio] メソッドの定義場所へ移動する

: 2015/12/02

[VB.NET] 暗黙的な型変換を禁止する