<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub SubmitBtnWrite_Click(Sender As Object, E As EventArgs)
Response.Cookies("TestCookie1").Expires = "5/1/2010"
Response.Cookies("TestCookie1").Value = _
"The cookie stuff."
Response.Cookies("TestCookie2").Expires = "5/1/2010"
Response.Cookies("TestCookie2").Value = _
"More cookie stuff."
End Sub
Sub SubmitBtnRead_Click(Sender As Object, E As EventArgs)
Dim I as integer
For I = 0 to Request.Cookies.Count - 1
lblMessage1.Text = lblMessage1.Text _
& Request.Cookies.Item(I).Name & ": " _
& Request.Cookies.Item(I).Value & "<BR>"
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Cookies Sample Page</TITLE>
</HEAD>
<BODY >
<form runat="server">
<Font Face="Tahoma">
<asp:Label
id="lblMessage1"
runat="Server"
Font-Bold="True"
/>
<BR><BR>
<asp:button
id="butOK1"
runat="server"
text="Write Cookies to Browser"
Type="Submit"
OnClick="SubmitBtnWrite_Click"
/>
<asp:button
id="butOK2"
runat="server"
text="Read Cookies from Browser"
Type="Submit"
OnClick="SubmitBtnRead_Click"
/>
</Font>
</Form>
</BODY>
</HTML>
|