ASP.Net/Session Cookie/Session Variables — различия между версиями

Материал из .Net Framework эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 11:53, 26 мая 2010

Add and get value from session (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Dim myBaz As String = "saved value"
            Session.Add("baz", myBaz)
            Message.Text = Session("baz")
         End Sub
      </script>
   </head>
<body>
   <form runat="server">
      <asp:label id="Message" runat="server"/>
   </form>
</body>
</html>



Clear session values (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Session.Clear()
            Message.Text = "There are " & Session.Count & _
               " items in the Session collection."
         End Sub
      </script>
   </head>
<body>
   <form runat="server">
      <asp:label id="Message" runat="server"/>
   </form>
</body>
</html>



Copy session values (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            If Session.Count > 0 Then
               Dim myArray As Array = Array.CreateInstance(GetType(Object), _
                  Session.Count)
               Session.CopyTo(myArray, 0)
               Message.Text = "The first item in the array is: " & myArray(0)
            End If
         End Sub
      </script>
   </head>
<body>
   <form runat="server">
      <asp:label id="Message" runat="server"/>
   </form>
</body>
</html>



Get all session keys (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Dim Key As String
            Message.Text = "Session Keys:"
            For Each Key in Session.Keys
               Message.Text &= "</br>Key:&nbsp;&nbsp;&nbsp;" & Key
               Message.Text &= "</br>Value:&nbsp;&nbsp;&nbsp;" & Session(Key)
            Next
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>



Get Cookie value and assign to the label in C#

<%@ Page Language="C#" %>
<script runat="server">
    void Page_Load()
    {
        if (Request.Cookies["message"] != null)
            lblCookieValue.Text = Request.Cookies["message"].Value;
    }
    
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Get Cookie</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    The value of the message cookie is:
    <asp:Label
        id="lblCookieValue"
        Runat="server" />
    
    </div>
    </form>
</body>
</html>



Get Cookie value (C#)

<%@ Page Language="C#" %>
<script runat="server">
    void Page_Load()
    {
        if (Request.Cookies["preferences"] != null)
        {
            lblFirstName.Text = Request.Cookies["preferences"]["firstName"];
            lblLastName.Text = Request.Cookies["preferences"]["lastName"];
            lblFavoriteColor.Text = Request.Cookies["preferences"]["favoriteColor"];
        }
    }
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Get Cookie Values</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    First Name:
    <asp:Label
        id="lblFirstName"
        Runat="server" />
    <br />
    Last Name:
    <asp:Label
        id="lblLastName"
        Runat="server" />
    <br />
    Favorite Color:
    <asp:Label
        id="lblFavoriteColor"
        Runat="server" />
    
    </div>
    </form>
</body>
</html>



Get session code page in VB (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Message.Text = "Current Code Page is: " & Session.CodePage
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>



Get value from session in cross page posting (C#)

<%@ Page Language="C#" AutoEventWireup="true"  CodeFile="Default.aspx.cs" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Session State</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="TextBox1" Runat="server"></asp:TextBox>
        <asp:Button ID="Button1" Runat="server" Text="Store in Session" 
         OnClick="Button1_Click" />
        <asp:HyperLink ID="HyperLink1" Runat="server" 
         NavigateUrl="NextPage.aspx">Next Page</asp:HyperLink>
    </div>
    </form>
</body>
</html>
File: Default.aspx.cs
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
public partial class _Default : System.Web.UI.Page 
{
    protected void Button1_Click(object sender, EventArgs e)
    {
        Session["mykey"] = TextBox1.Text;
    }
}
File: NextPage.aspx
<%@ Page Language="C#" AutoEventWireup="true" CodeFile="NextPage.aspx.cs" Inherits="Retrieve" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    </div>
    </form>
</body>
</html>
File: NextPage.aspx.cs
using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
public partial class Retrieve : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        string myValue = (string)Session["mykey"];
        Response.Write(myValue);
    }
}



Get value from session in cross page posting(VB)

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Session State</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="TextBox1" Runat="server"></asp:TextBox>
        <asp:Button ID="Button1" 
                    Runat="server" 
                    Text="Store in Session" 
                    OnClick="Button1_Click" />
        <asp:HyperLink ID="HyperLink1" 
                       Runat="server" 
                       NavigateUrl="NextPage.aspx">Next Page</asp:HyperLink>
    </div>
    </form>
</body>
</html>
File: Default.aspx.vb

Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Session("mykey") = TextBox1.Text
    End Sub
End Class
File: NextPage.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="NextPage.aspx.vb" Inherits="Retrieve" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
    </form>
</body>
</html>
File: NextPage.aspx.vb

Partial Class Retrieve
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myValue As String = CType(Session("mykey"), String)
        Response.Write(myValue)
    End Sub
End Class



Pass variables between pages (VB.net)

<%@ Page Language="VB" %>
<html>
  <body>
    <%
    Dim Name As String
    Dim Age As String
    Age = 23
    Name = "Sniff"
    %>
    <a href="birthday2.aspx?age=<% Response.Write(Age) %>&name=<%
    Response.Write(Name)%>">click here</a>
  </body>
</html>

<%--
<%@ Page Language="VB" %>
<html>
  <body>
    <center>
      <%
      Dim Name As String
      Dim Age As String
      Name = Request.QueryString("Name")
      Age = Request.QueryString("Age")
      %>
      <h1>Happy Birthday <% Response.Write(Name) %></h1>
      <h3>May the next
      <% Response.Write(Age) %>
      years be as good!</h3>
    </center>
  </body>
</html>

--%>



Pass variables with & sign (VB.net)

<%@ Page Language="VB" %>
<html>
  <body>
    <%
    Dim Name As String
    Dim Age As String
    Age = 23
    Name = "Sniff & Jack"
    %>
    <a href="birthday2.aspx?age=<% Response.Write(Age) %>&name=<%
    Response.Write(Name)%>">click here</a>
  </body>
</html>

<%--
<%@ Page Language="VB" %>
<html>
  <body>
    <center>
      <%
      Dim Name As String
      Dim Age As String
      Name = Request.QueryString("Name")
      Age = Request.QueryString("Age")
      %>
      <h1>Happy Birthday <% Response.Write(Name) %></h1>
      <h3>May the next
      <% Response.Write(Age) %>
      years be as good!</h3>
    </center>
  </body>
</html>

--%>



Remove all session content (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Session.Contents.RemoveAll()
            Message.Text = "Removed all items from current Session."
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>



Remove all session values (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            If Session.Count > 0 Then
               Session.RemoveAll()
               Message.Text = "Session collection cleared."
            Else
               Message.Text = "Session collection is already empty."
            End If
         End Sub
      </script>
   </head>
<body>
   <form runat="server">
      <asp:label id="Message" runat="server"/>
   </form>
</body>
</html>



Remove session value by index (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            If Session.Count > 0 Then
               Session.RemoveAt(0)
               Message.Text = "The item at index 0 was removed."
            Else
               Message.Text = "The item at index 0 does not exist."
            End If
         End Sub
      </script>
   </head>
<body>
   <form runat="server">
      <asp:label id="Message" runat="server"/>
   </form>
</body>
</html>



Remove value from session value (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            If Not Session("foo") Is Nothing Then
               Session.Remove("foo")
               Message.Text = "Item "foo" was removed."
            Else
               Message.Text = "Item "foo" does not exist."
            End If
         End Sub
      </script>
   </head>
<body>
   <form runat="server">
      <asp:label id="Message" runat="server"/>
   </form>
</body>
</html>



Session get Message (C#)

<%@ Page Language="C#" %>
<script runat="server">
    void Page_Load()
    {
        lblMessage.Text = Session["message"].ToString();
    }
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Session Get</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    <asp:Label
        id="lblMessage"
        Runat="server" />
    
    </div>
    </form>
</body>
</html>



Session item count (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Session("foo") = "Hello, "
            Session("bar") = "World!"
            Message.Text = "The Session collection contains " & _
               Session.Count & " items.</br>"
            Dim I as Integer
            For I = 0 To Session.Count - 1
               Message.Text &= Session(I)
            Next
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>



Session Set message (C#)

<%@ Page Language="C#" %>
<script runat="server">
    void Page_Load()
    {
        Session["message"] = "Hello World!";
    }
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Session Set</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    <h1>Session item added!</h1>
    
    </div>
    </form>
</body>
</html>



Setting values in session state (C#)

<%@ Page Language="C#" 
         AutoEventWireup="true"  
         CodeFile="Default.aspx.cs" 
         Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Session State</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="TextBox1" Runat="server"></asp:TextBox>
        <asp:Button ID="Button1" Runat="server" Text="Store in Session" 
         OnClick="Button1_Click" />
        <br />
        <asp:HyperLink ID="HyperLink1" Runat="server" 
         NavigateUrl="Default.aspx">Next Page</asp:HyperLink>
    </div>
    </form>
</body>
</html>
File: Default.aspx.cs
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
public partial class _Default : System.Web.UI.Page 
{
    protected void Button1_Click(object sender, EventArgs e)
    {
        Session["mykey"] = TextBox1.Text;
    }
}



Setting values in session state (VB)

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Session State</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:TextBox ID="TextBox1" Runat="server"></asp:TextBox>
        <asp:Button ID="Button1" Runat="server" Text="Store in Session" 
         OnClick="Button1_Click" />
        <asp:HyperLink ID="HyperLink1" Runat="server" 
         NavigateUrl="Default.aspx">Next Page</asp:HyperLink>
    </div>
    </form>
</body>
</html>
File: Default.aspx.vb
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Session("mykey") = TextBox1.Text
    End Sub
End Class



Simple session data: set and retrieve

<script runat=server>
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
</SCRIPT>
<HTML>
<HEAD>
<TITLE><% Response.Write(Application("ApplicationName")) %></TITLE>
</HEAD>
<BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="60">
<form runat="server">
<Font Face="Tahoma" Size="+1">
<asp:Label 
    id="lblTitle" 
    BorderWidth="7px"
    BorderStyle=9
    Width="90%"
    Font-Size="25pt"
    Font-Name="Arial"
    runat="server"
/>
<BR><BR>
<asp:Label
    id="lblMessage1"
    runat="Server"
    Text="Enter Your Name"
/>
<BR>
<asp:TextBox
    id="txtVisitorsName"
    runat="server"
    MaxLength=50
/>
<BR><BR>
<asp:button 
    id="butOK"
    text="Check In"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>
<BR><BR>
<%@ Page Language=VB Debug=true %>
<asp:Label
    id="lblCount"
    runat="Server"
/>
</Font>
</Form>
</BODY>
</HTML>

<%--  Global.asax
<SCRIPT LANGUAGE="VB" RUNAT="Server">
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
</SCRIPT>
--%>
<%-- CheckOut.aspx
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Len(Session("VisitorsName")) = 0 Then
        lblMessage.Text = "You have not checked in! " _
            & "<A HREF=""./checkin.aspx"">Click here</A>" _
            & " to check in."
        butOK.Visible = False
    Else
        lblMessage.Text = "Your Name: " _
            & Session("VisitorsName") & "<BR>"
        if Session.IsCookieless Then
            lblMessage.Text = lblMessage.Text _
                & "Your browser does not support cookies.<BR>"
        else
            lblMessage.Text = lblMessage.Text _
                & "Your browser does support cookies.<BR>"
        End If
        lblMessage.Text = lblMessage.Text _
            & "Session ID: " & Session.SessionID _
            & "<BR>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
</SCRIPT>
<HTML>
<HEAD>
<TITLE><% Response.Write(Application("ApplicationName")) %></TITLE>
</HEAD>
<BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="60">
<form runat="server">
<Font Face="Tahoma" Size="+1">
<asp:Label 
    id="lblTitle" 
    BorderWidth="7px"
    BorderStyle=9
    Width="90%"
    Font-Size="25pt"
    Font-Name="Arial"
    runat="server"
/>
<BR><BR>
<asp:Label
    id="lblMessage"
    runat="Server"
    Text="Enter Your Name"
/>
<BR><BR>
<asp:button 
    id="butOK"
    text="Check Out"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>
<BR><BR>
</Font>
</Form>
</BODY>
</HTML>
--%>



Store your Object in Session (C#)

<%@ Page language="c#" src="SessionStateExample.aspx.cs" AutoEventWireup="false" Inherits="SessionStateExample" %>
<HTML>
  <body>
    <form id="Form1" method="post" runat="server">
      <asp:Label id="lblSession" style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 32px" runat="server" Width="232px" Height="61px" Font-Size="Medium" Font-Names="Verdana" Font-Bold="True"></asp:Label>
      <DIV style="BORDER-RIGHT: 2px groove; BORDER-TOP: 2px groove; Z-INDEX: 105; LEFT: 16px; BORDER-LEFT: 2px groove; WIDTH: 576px; BORDER-BOTTOM: 2px groove; POSITION: absolute; TOP: 248px; HEIGHT: 160px; BACKGROUND-COLOR: lightyellow" ms_positioning="GridLayout">
        <asp:ListBox id="lstItems" style="Z-INDEX: 106; LEFT: 16px; POSITION: absolute; TOP: 16px" runat="server" Width="208px" Height="128px"></asp:ListBox>
        <asp:Button id="cmdMoreInfo" style="Z-INDEX: 106; LEFT: 248px; POSITION: absolute; TOP: 24px" runat="server" Width="120px" Height="24px" Text="More Information"></asp:Button>
        <asp:Label id="lblRecord" style="Z-INDEX: 106; LEFT: 248px; POSITION: absolute; TOP: 64px" runat="server" Width="272px" Height="61px" Font-Size="X-Small" Font-Names="Verdana" Font-Bold="True"></asp:Label></DIV>
    </form>
  </body>
</HTML>

<%--
using System;
using System.Collections;
using System.ruponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
  public class SessionStateExample : System.Web.UI.Page
  {
    protected System.Web.UI.WebControls.Label lblSession;
    protected System.Web.UI.WebControls.ListBox lstItems;
    protected System.Web.UI.WebControls.Button cmdMoreInfo;
    protected System.Web.UI.WebControls.Label lblRecord;
  
    private void Page_Load(object sender, System.EventArgs e)
    {
      if (!this.IsPostBack)
      {
        // Create Product objects.
        Product piece1 = new Product("Econo Sofa", 
          "Acme Inc.", 7.9M);
        Product piece2 = new Product("Pioneer Table", 
          "Heritage Unit", 8.7M);
        Product piece3 = new Product("Retro Cabinet", 
          "Sixties Ltd.", 3.1M);
        // Add objects to session state.
        Session["Product1"] = piece1;
        Session["Product2"] = piece2;
        Session["Product3"] = piece3;
        // Add rows to list control.
        lstItems.Items.Clear();
        lstItems.Items.Add(piece1.Name);
        lstItems.Items.Add(piece2.Name);
        lstItems.Items.Add(piece3.Name);
      }
      // Display some basic information about the session.
      // This is useful for testing configuration settings.
      lblSession.Text = "Session ID: " + Session.SessionID;
      lblSession.Text += "<br>Number of Objects: ";
      lblSession.Text += Session.Count.ToString();
      lblSession.Text += "<br>Mode: " + Session.Mode.ToString();
      lblSession.Text += "<br>Is Cookieless: ";
      lblSession.Text += Session.IsCookieless.ToString();
      lblSession.Text += "<br>Is New: ";
      lblSession.Text += Session.IsNewSession.ToString();
      lblSession.Text += "<br>Timeout (minutes): ";
      lblSession.Text += Session.Timeout.ToString();
    }
    #region Web Form Designer generated code
    override protected void OnInit(EventArgs e)
    {
      //
      // CODEGEN: This call is required by the ASP.NET Web Form Designer.
      //
      InitializeComponent();
      base.OnInit(e);
    }
    
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    private void InitializeComponent()
    {    
      this.cmdMoreInfo.Click += new System.EventHandler(this.cmdMoreInfo_Click);
      this.Load += new System.EventHandler(this.Page_Load);
    }
    #endregion
    private void cmdMoreInfo_Click(object sender, System.EventArgs e)
    {
      if (lstItems.SelectedIndex == -1)
      {
        lblRecord.Text = "No item selected.";
      }
      else
      {
        // Construct the right key name based on the index.
        string key = "Product" +
          (lstItems.SelectedIndex + 1).ToString();
        // Retrieve the Product object from session state.
        Product piece = (Product)Session[key];
        // Display the information for this object.
        lblRecord.Text = "Name: " + piece.Name;
        lblRecord.Text += "<br>Manufacturer: ";
        lblRecord.Text +=  piece.Description;
        lblRecord.Text += "<br>Cost: $" + piece.Cost.ToString();
      }
    }
  }

  public class Product
  {
    public string Name;
    public string Description;
    public decimal Cost;
    public Product(string name, string description, 
      decimal cost)
    {
      Name = name;
      Description = description;
      Cost = cost;
    }
  }


--%>



Use Session item (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <script runat="server">
         Sub Page_Load()
            Session.Item("foo") = "foo"
            Session.Item("foo2") = "foo2"
            Message.Text = Session.Item("foo") & "</br>"
            Message.Text &= Session.Item(1)
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>



Use session to store action time (VB.net)

<%@ Page Language="VB" %>
<script runat="server">
    Sub Page_Load()
        If Not Page.IsPostBack Then
            ResetStartTime()
        End If
    End Sub
    
    Protected Sub btnAgain_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        ResetStartTime()
    End Sub
    
    Sub ResetStartTime()
        Session("StartTime") = DateTime.Now
    End Sub
    
    
    Protected Sub valAnswer_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs)
        Dim startTime As DateTime = CType(Session("StartTime"), DateTime)
        If startTime.AddSeconds(5) > DateTime.Now Then
            args.IsValid = True
        Else
            args.IsValid = False
        End If
    End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Timed Test</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    <p>
    You have 5 seconds to answer the following question:
    </p>
    
    <asp:Label
        id="lblQuestion"
        Text="What was Aristotle"s first name?"
        AssociatedControlID="txtAnswer"
        Runat="server" />
    <br />
    <asp:TextBox
        id="txtAnswer"
        Runat="server" />    
    <asp:CustomValidator
        id="valAnswer"
        Text="(You answered too slowly!)"
        OnServerValidate="valAnswer_ServerValidate"
        Runat="server"  />
    
    <br /><br />
    
    <asp:Button
        id="btnSubmit"
        Text="Submit"
        Runat="server" />
    
    <asp:Button
        id="btnAgain"
        Text="Try Again!"
        CausesValidation="false"
        OnClick="btnAgain_Click"
        Runat="server" />
    
    </div>
    </form>
</body>
</html>



Use session variables (VB.net)

<%@ Page language="VB"%>
<script language="vb" runat="server">
  Sub EmptyClick(sender As System.Object, e As System.EventArgs)
    Session("BasketCount") = 0
  End Sub
  Sub AddClick(sender As System.Object, e As System.EventArgs)
    Session("BasketCount") += 1
  End Sub
</script>
<html>
  <body>
    <form id="BasketForm" method="post" runat="server">
      <asp:Button id="Empty" OnClick="EmptyClick" runat="server" Text="Empty"/>
      <br />
      <asp:Button id="Add" OnClick="AddClick" runat="server" Text="Add"/>
      <br />
      Basket items : <%=Session("BasketCount")%>
      <br />
    </form>
  </body>
</html>



Write value to session (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <title>Writing to Session in ASP.NET</title>
      <script runat="server">
         Sub Page_Load()
            Session("foo") = "Hello, World!"
            Message.Text = "Wrote the value "Hello, World" to a Session item named "foo"."
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>