ASP.Net/Language Basics/Shared

Define Shared variables

   <source lang="csharp">

<%@ page language="vb" runat="server" %> <script runat="server"> Public Class User

 Private Shared _Count = 0
 Public ReadOnly Shared Property Count As Integer
   Get
     Return _Count
   End Get
 End Property
 Sub New()
   _Count += 1
 End Sub

End Class Sub Page_Load()

 Response.Write("User.Count = " & User.Count)

Response.Write("

---

Creating User Alex.")

 Dim Alex As New User()
 Response.Write("
Alex.Count = " & Alex.Count)

Response.Write("

---

Creating User Rob.")

 Dim Rob As New User()
 Response.Write("
Rob.Count = " & Rob.Count)

Response.Write("

---

Creating User Jake.")

 Dim Jake As New User()
 Response.Write("
Jake.Count = " & Jake.Count)

Response.Write("

---

User.Count = " & User.Count)

End Sub </script>

      </source>