用户表里有一IsLogin字段，当用户登录成功后，将IsLogin设为TRUE。
退出登录时，将将IsLogin设为FALSE。



想通过查询IsLogin为TRUE的用户数量，而显示出登录用户的人数（即在线注册用户的人数）

问题：但是如用户登录后，并没有执行退出登录功能而直接关闭浏览器的话，UserLogOUT()并没有被执行，即用户表中的IsLogin字段一直为TRUE，这怎么办？

============
登录按扭代码：

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CurrentUser As UserInfo
'用Session("CurrentUser")来实例化CurrentUser，此时CurrentUser.Islogin=False
        CurrentUser = DirectCast(Session("CurrentUser"), UserInfo)
'将用户输入的用户名和密码赋给CurrentUser.UserName，CurrentUser.UserPWD属性，准备验证
        CurrentUser.UserName = TextBox1.Text
        CurrentUser.UserPWD = TextBox2.Text
'通过 Userlogin（）子程序来验证能否登录，能登录，则CurrentUser.Islogin=TRUE，否则为FALSE（具体请见Userlogin（）子程序）
        CurrentUser = Userlogin(CurrentUser)
   
    End Sub

退出登录按钮的代码：

Private Sub btnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim CurrentUser As UserInfo
'用Session("CurrentUser")来实例化CurrentUser
        CurrentUser = DirectCast(Session("CurrentUser"), UserInfo)
        CurrentUser = UserlogOut(CurrentUser)


    End Sub

登录验证子程序的代码如下：

Public Function Userlogin(ByVal MyUserInfo As UserInfo) As UserInfo
            Dim CurrentUser As New UserInfo

            Dim mySql As String
            mySql = "Select UserID from Employee where UserName='" & MyUserInfo.UserName & "'"
            mySql &= " and UserPWD='" & MyUserInfo.UserPWD & "'"

            ObjSql.strSQL = mySql
            Dim dr As SqlDataReader = ObjSql.SelectFromDBrd()

            If dr.Read Then
                MyUserInfo.IsLogin = True
                MyUserInfo.UserId = dr("UserId")
                dr.Close()
'将用户表中的IsLogin字段改为TRUE（1）（*****重点看看这句*****）
                mySql = "Update Employee set IsLogin=1 where userid='" & MyUserInfo.UserId & "'"
                ObjSql.strSQL = mySql
                ObjSql.ExecuteSQL()

            Else
'用户不能登录。。。。
                MyUserInfo.IsLogin = False
                dr.Close()
            End If
            CurrentUser = MyUserInfo

            Return CurrentUser
end sub

退出登录子程序的代码如下：

 Public Function UserlogOut(ByVal MyUserInfo As UserInfo) As UserInfo
            Dim CurrentUser As New UserInfo
            Dim mySql As String
            If MyUserInfo.IsLogin = True Then
'将用户表中的IsLogin字段改为FALSE（0）（*****重点看看这句*****）
                mySql = "Update Employee set IsLogin=0 where userid='" & MyUserInfo.UserId & "'"
                ObjSql.strSQL = mySql
                ObjSql.ExecuteSQL()
                MyUserInfo.IsLogin = False

                

            End If
            CurrentUser = MyUserInfo
            Return CurrentUser
end sub

这两个子程序均能正常工作。

问题：但是如用户登录后，并没有执行退出登录功能而直接关闭浏览器的话，UserLogOUT()并没有被执行，即用户表中的IsLogin字段一直为TRUE，这怎么办？

将UserLogOUT()放在Session On end 中也不行：

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' SESSION开始时，建立一个Session("CurrentUser") 
        Dim CurrentUser As New UserInfo
        Session("CurrentUser") = CurrentUser

    End Sub

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话结束时激发

        UserlogOut(DirectCast(Session("CurrentUser"), UserInfo))

    End Sub

超时的用户删除？什么是超时的用户啊？难道以第二个用户登录的时间为准，其前的在线用户均删除（在在线用户表中），我不大明白这是如何能确定出总的在线人数的。

另外：
Session_End怎么好象不起作用呢？难道Session_End事件中不能对数据库进行操作？

是不是用户关掉浏览器时，Session_End事件中的代码来不及执行？

谢谢蓝鲸的解答。

不过想问一下，我做的这样为何无法实现想要的功能？关键是为什么以下代码在用户直接关闭浏览器时不起作用（即UserlogOut（）根本没在Session_End中执行）？？？？？？？？？

难道用户关闭浏览器时，Session_End事件根本不发生？还是来不及执行就结束了？？

按我的理解：用户关闭浏览器时，Session_End事件中的代码是应被完全执行的。这个概念难道有错？？？？？？？？

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' 在会话结束时激发

        UserlogOut(DirectCast(Session("CurrentUser"), UserInfo))

    End Sub

Session关闭与Session.TimeOut设置时间有关，默认20分钟。
如果用Session.Abandon();也不会马上停止Session。
晚上我对ASPX测试，

在Application_Start使
Application["Test"] = "Start";

在ASPX文件中的Load中
TextBox1.Text = Application["Test"].ToString();
Application["Test"] = "End";
Session.Abandon();

在Session_End中
Application["Test"] = "ISEnd";

第一次启动页面，文本框中显示"start"，第二次显示"End"，而不是所希望的"IsEnd"，
说明关闭页面对Session_End不起作用。

页面的UnLoad事件只表示用户关闭了该页，并不能保证登录用户不在线啊，我想要的是用户关闭所有的浏览窗口时才更新用户的在线状态，而不是用户关了某页（可能它还在看网站的其它页，此时仍在线）。