Session Cookie ASP.Net

  1. Home
  2. ASP.Net
  3. Session Cookie
  4. Simple session data

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Len(Application("ApplicationName")) = 0 Then
        Application("ApplicationName") = "Check In / " _
            & "Check Out Application"
        Application("PageCount") = 0
    End If
    If Not IsPostBack Then
        Application.Lock
        Application("PageCount") = Application("PageCount") + 1
        Application.UnLock
    End If
    lblTitle.Text = Application("ApplicationName")
    lblCount.Text = "This page has been accessed " _
        & Application("PageCount") & " times."
    Session.TimeOut = 20
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Session("VisitorsName") = txtVisitorsName.Text
    Response.Redirect("./CheckOut.aspx")
End Sub



<% Response.Write(Application("ApplicationName")) %>




    id="lblTitle" 
    BorderWidth="7px"
    BorderStyle=9
    Width="90%"
    Font-Size="25pt"
    Font-Name="Arial"
    runat="server"
/>



    id="lblMessage1"
    runat="Server"
    Text="Enter Your Name"
/>


    id="txtVisitorsName"
    runat="server"
    MaxLength=50
/>



    id="butOK"
    text="Check In"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>



<%@ Page Language=VB Debug=true %>
    id="lblCount"
    runat="Server"
/>




<%--  Global.asax

Sub Application_OnStart
    Application("TaxRate") = 0.5125
    Application("ApplicationName") = "Sample Global.asax"
End Sub
Sub Application_OnEnd
    'code that runs when application ends
End Sub
Sub Session_OnStart
    Application("SessionStarts") = _
        Application("SessionStarts") + 1
    Session.TimeOut = 1
End Sub
Sub Session_OnEnd
    Application("SessionStops") = _
        Application("SessionStops") + 1
End Sub

--%>
<%-- CheckOut.aspx
<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Len(Session("VisitorsName")) = 0 Then
        lblMessage.Text = "You have not checked in! " _
            & "Click here" _
            & " to check in."
        butOK.Visible = False
    Else
        lblMessage.Text = "Your Name: " _
            & Session("VisitorsName") & "
"
        if Session.IsCookieless Then
            lblMessage.Text = lblMessage.Text _
                & "Your browser does not support cookies.
"
        else
            lblMessage.Text = lblMessage.Text _
                & "Your browser does support cookies.
"
        End If
        lblMessage.Text = lblMessage.Text _
            & "Session ID: " & Session.SessionID _
            & "
Session Time Out: " & Session.TimeOut _
            & " minutes"
    End If
    lblTitle.Text = Application("ApplicationName")
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    Session.Abandon
    Response.Redirect("./CheckOut.aspx")
End Sub



<% Response.Write(Application("ApplicationName")) %>




    id="lblTitle" 
    BorderWidth="7px"
    BorderStyle=9
    Width="90%"
    Font-Size="25pt"
    Font-Name="Arial"
    runat="server"
/>



    id="lblMessage"
    runat="Server"
    Text="Enter Your Name"
/>



    id="butOK"
    text="Check Out"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>







--%>