歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

 要記得加入【Imports System.Web.HttpContext】

Imports Microsoft.VisualBasic  
Imports System.Web.HttpContext  
 
Public Class objTSession  
    Private m_SData As String 
 
    Public ReadOnly Property SData() As String 
        Get 
            Return "從Class中讀出的Session:" + m_SData  
        End Get 
    End Property 
 
    Public Sub New()  
        If Current.Session("txt") IsNot Nothing Then 
            m_SData = Current.Session("txt").ToString  
        Else 
            m_SData = "" 
        End If 
    End Sub 
 
End Class