1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
Dim testCookie As HttpCookie = New HttpCookie("test")
testCookie.Values.Add("name1", "value 1")
testCookie.Values.Add("name2", "value 2")
Response.Cookies.Add(testCookie)
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim testCookie As HttpCookie = Request.Cookies.Item("test")
Dim value As String = testCookie.Item("name1")
End Sub
End Class |