Protected Sub btLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btLogin.Click
Dim u As New Account
u = u.Login(txtUsername.Text.Trim, txtPassword.Text.Trim)
If txtPassword.Text = u.password Then
Session("mem_id") = u.idmem
Session("name") = txtUsername.Text.Trim
Session("time") = Date.Now
Session("fullname") = u.firstname.Trim
Session.Timeout = 1
'Application.Lock()
'Application("online") = Application("online") + 1
'Application.UnLock()
FormsAuthentication.RedirectFromLoginPage(u.firstname, True)
Response.Redirect("Default.aspx")
Else
Session("fullname") = ""
lblError.Text = "Invalid Username/Password"
End If
End Sub
ค่า session ไม่มีแล้วนะค่ะ แต่ตัว login status ยังอยู่เลยค่ะ