If Session("admin") = "admin" Then
Label2.Text = Session("UserAuthentication").ToString.ToUpper
Else
MsgBox("เฉพาะ Admin เท่านั้น", MsgBoxStyle.Critical, "TEST")
Response.Redirect("login.aspx")
End If
เมื่อวานพี่เขามาทดสอบระบบ เขาให้เปิดไปหน้าส่วนของ admin แล้ว copy link จากนั้นก็ให้ logout เข้าของ user
แล้วพี่เขาก็วาง link นั้น กด enter ก็แสดงหน้าในส่วนของ admin พี่เขาเลยอยากให้ ถ้ามีใครไป copy link แล้วเอามาวาง ถ้าไม่ใช่ admin จะเปิดไม่ได้
Dim answer As MsgBoxResult
answer = MsgBox("ต้องการออกจากระบบหรือไม่", MsgBoxStyle.YesNo, "Log Out")
If answer = MsgBoxResult.Yes Then
Session.Clear()
Session.RemoveAll()
Session.Abandon()
Response.Redirect("login.aspx")
End If
Private Sub checkAdmin()
If Session("admin") = "admin" Then
HyperLink7.Text = "ส่วนของ Admin"
HyperLink7.NavigateUrl = "adminedit.aspx"
ImageButton12.ImageUrl = "~\NewFolder1\Database - Search.png"
ImageButton12.PostBackUrl = "adminedit.aspx"
Else
HyperLink7.Visible = False
ImageButton12.Visible = False
End If
End Sub