session的使用方法代码问题？？立马给分！！

[andywsy]

我想实现的功能是：当第一个用户用s_id登陆时，设置session记录这个值，当第二个用户用同一个s_id登陆时，label4.text显示该学号已登陆！也就是判断重复登陆问题！当用户退出时，清除这个s_id!!我用的是vb.net！
请高手们写写代码，比较急！我立马给分！

[vlsm]

form程序的话，可以在数据库里面判断，在用户登录信息表里面设置一个字段为登录状态。为1在线，为0掉线，用户退出的时候要记得清0，但是要考虑非正常退出的情况。

[vlsm]

Session 是 Web的东西， Win 好像没有听说过？？？？

[milizi820]

在登陆页面用
Session.Add("user_id", user.UserId);
退出
Session["user_id"] = null;
Page.Response.Write("<Script Language=JavaScript>window.close();</Script>");

[yunyun837]

'登陆按钮
    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        If Session("s_id") <> "" Then
            '判断当前登陆的用户是否是已经登陆的用户
            If Session("s_id") = txtID.Text Then
                Label4.Text = "该学号已登陆"
            Else
                Session("s_id") = txtID.Text
            End If
        End If
    End Sub

    '退出按钮
    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Session("s_id") = ""
    End Sub

[herol]

这帖子不是发过一遍了吗，怎么又来一遍

[Ny-6000]

[Quote=引用 4 楼 yunyun837 的回复:]
VB.NET code
'登陆按钮
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If Session("s_id") <> "" Then
'判断当前登陆的用户是否是已经登陆的用户
If Session("s_id") = txtID.Text Then
Label4.Text = "该学号已登陆"
Else
Session("s_id") = txtID.Text
…
[/Quote]


如果用户没有点击退出按钮，又要怎样处理呢？