default.aspx.vb

来自「this is the code for user manager」· VB 代码 · 共 14 行

Partial Class _Default
    Inherits BasePage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        MyBase.LogActivity("Visiting the site's homepage.")

        If Not Page.IsPostBack Then
            'Display the number of users currently online
            NumOnline.Text = Membership.GetNumberOfUsersOnline()
        End If
    End Sub
End Class