ネットワーク関連 – .NETちょこっとリファレンス

2015/11/10 -ネットワーク関連

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

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

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

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

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

2015/11/01 -ネットワーク関連

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] セッションをクリアする

2015/10/25 -ネットワーク関連

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

'①セッションキー「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] CSVファイルをダウンロードする

2015/10/25 -ネットワーク関連

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

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

2015/10/25 -ネットワーク関連

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

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

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

1

2

3

4

5

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

Session("hoge") = "HOGE"

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

Dim sess_hoge As Object = Session("hoge")

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

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

2015/10/25 -ネットワーク関連

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

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

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

2015/10/25 -ネットワーク関連

サーバ上にある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

「 ネットワーク関連 」 一覧

「ネットワーク関連」一覧