用户登陆代码（转）

最新推荐文章于 2024-01-05 10:14:39 发布

lwq373211147

最新推荐文章于 2024-01-05 10:14:39 发布

阅读量340

点赞数

文章标签： session object

本文链接：https://blog.csdn.net/lwq373211147/article/details/2290375

版权

' 登陆按钮
    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