login.aspx (Login Page – Front Page) |
……………………………………… <form id="form1" runat="server"> <asp:ScriptManager ID="ScriptManager1" runat="server"></asp:ScriptManager> <div> <asp:Label ID="Label2" runat="server" ForeColor="Red"></asp:Label> <asp:UpdatePanel ID="UpdatePanel1" runat="server"> <ContentTemplate> <asp:Button ID="Button1" runat="server" Text="Login" /> <asp:Button ID="Button2" runat="server" Text="Logout" /> <asp:Label ID="Label1" runat="server" Text="No Cookies"></asp:Label><br /> <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="./2.aspx" Text="Next Page" Visible="false"></asp:HyperLink> </ContentTemplate> </asp:UpdatePanel> </div> </form> ……………………………………… |
login.aspx (Login Page – Code Behind) |
Inherits System.Web.UI.Page Dim Timeout As Integer = 7 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Request.QueryString("A") = "1" Then Label2.Text = "Please Login First." End If End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click If ScriptManager1.IsInAsyncPostBack Then Dim myCookie As New HttpCookie("Test") myCookie.Value = "Test" myCookie.Expires = DateTime.Now.AddSeconds(Timeout) Response.Cookies.Add(myCookie) If ScriptManager1.IsInAsyncPostBack Then If Not Request.Cookies("Test") Is Nothing Then Label1.Text = "Cookies Enabled" HyperLink1.Visible = True Else Label1.Text = "No Cookies" End If End If End If End Sub |
content.aspx (Content Page – Front Page) |
……………………………………… <form id="form1" runat="server"> <div> <asp:Label ID="Label1" runat="server" Text=""></asp:Label> </div> </form> ……………………………………… |
content.aspx (Content Page – Code Behind) |
Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Check_Cookies() End Sub Private Sub Check_Cookies() If Not Request.Cookies("Test") Is Nothing Then Label1.Text = "Cookie Enabled" Else Response.Redirect("1.aspx?a=1") End If End Sub |