whoisonline.aspx.vb

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

Partial Class WhoIsOnline
    Inherits BasePage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        MyBase.LogActivity("Viewing Who Is Online")

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

    Protected Sub CurrentActivityDataSource_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles CurrentActivityDataSource.Selecting
        e.Command.Parameters("@ApplicationName").Value = Membership.ApplicationName
        e.Command.Parameters("@MinutesSinceLastInActive").Value = Membership.UserIsOnlineTimeWindow
        e.Command.Parameters("@CurrentTimeUtc").Value = DateTime.UtcNow
    End Sub
End Class