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