الدرس (14) صفحة تسجيل الدخول

برمجة وتصميم صفحة تسجيل الدخول من خلال الكوكيز و السيشن وشرح الأمن والحماية للوحة التحكم

ملاحظة: كود صفحة تسجيل الدخول في اسفل الفيديو


كود صفحة الدخول - السيشن
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
Lbmsg.Text = "*"
Exit Sub
End If

If TextBox1.Text = "1234" Then
Session("Ahmad") = "Adel"
Session.Timeout = 120
Response.Redirect("WelcomePage.aspx")

Else
Lbmsg.Text = "حطأ في كلمة المرور"
Exit Sub

End If

End Sub

'كود صفحة الدخول - الكوكيز
If TextBox1.Text = "" Then
Lbmsg.Text = "إدخل كلمة المرور"
Exit Sub
End If

''''''''''''''''''
If TextBox1.Text = "1234" Then

Response.Cookies.Add(New HttpCookie("Ahmad", "Adel"))
Response.Cookies("Ahmad").Expires = Date.Now.AddDays(1)

Response.Redirect("WelcomePage.aspx")

Else

Lbmsg.Text = "حطأ في كلمة المرور"
TextBox1.Text = ""
Button1.Enabled = False
Exit Sub

End If
--------------------------------------------------
'كود صفحة الماستر بيج - السيشن

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Session("Ahmad") <> "Adel" Then
Response.Redirect("Default.aspx")

End If

End Sub

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click

Session.Remove("Ahmad")
Response.Redirect("Default.aspx")
End Sub

'كود صفحة الماستر بيج - الكوكيز
Partial Class Admin_MasterPage
Inherits System.Web.UI.MasterPage

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Request.Cookies("Ahmad") Is Nothing Then
Response.Redirect("Default.aspx")
Else

If Request.Cookies("Ahmad").Value <> "Adel" Then

Response.Redirect("Default.aspx")

End If

End If

End Sub

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click

Response.Cookies("Ahmad").Expires = DateAndTime.Now

Response.Redirect("Default.aspx")

End Sub
End Class