Sessions ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. Sessions
  4. Setting and retrieving objects from the Session using State Service and a base page (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Session State


    
    

        
                 OnClick="Button1_Click" />
        
                 NavigateUrl="NextPage.aspx">Next Page
    

    


File: Default.aspx.vb
Partial Class _Default
    Inherits SmartSessionPage
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim names As String()
        names = TextBox1.Text.Split(" "c) ' " "c creates a char
        Dim p As New Person()
        p.firstName = names(0)
        p.lastName = names(1)
        Session("myperson") = p
    End Sub
End Class
File: NextPage.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="NextPage.aspx.vb" Inherits="Retrieve" %>



    Untitled Page


    
    

    
    

    


File: NextPage.aspx.vb
Imports Microsoft.VisualBasic
Imports System
Imports System.Web
Partial Class Retrieve
    Inherits SmartSessionPage
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim p As Person = MyPerson
        Response.Write(p) ' ToString will be called!
    End Sub
End Class
 _
Public Class Person
    Public firstName As String
    Public lastName As String
    Public Overrides Function ToString() As String
        Return String.Format("Person Object: {0} {1}", firstName, lastName)
    End Function
End Class
Public Class SmartSessionPage
    Inherits System.Web.UI.Page
    Private Const MYSESSIONPERSONKEY As String = "myperson"
    Public Property MyPerson() As Person
        Get
            Return CType(Session(MYSESSIONPERSONKEY), Person)
        End Get
        Set(ByVal value As Person)
            Session(MYSESSIONPERSONKEY) = value
        End Set
    End Property
End Class