Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Cookies("MyCookie")("Data") = TextBox1.Text
Response.Cookies("MyCookie")("Time") = DateTime.Now.ToString("G")
Response.Cookies("MyCookie").Expires=DateTime.Now.AddMonths(1)
Label1.Text = "Cookie created!<p>" & "Your cookie contains:<font color=red>" & Request.Cookies("MyCookie")("Data") & "<br>" & Request.Cookies("MyCookie")("Time") & "</font>"
Response.Cookie("MyCookie").Expires=DateTime.FromString("2006-10-1")
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If (Request.Cookies("MyCookie") Is Nothing) Then
Label1.Text = "There is no cookie:"
Else
Label1.Text = "Your cookie contains:" & "<font color=red>" & Request.Cookies("MyCookie")("Data") & "<br>" & Request.Cookies("MyCookie")("Time") & "</font>"
End If
End Sub
End Class