YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
الدرس (14) برمجة وتصميم موقع شركة وهمية بتقنية ASP.NET - صفحة تسجيل الدخول

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

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

 

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

'كود صفحة الدخول - السيشن
    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
 
 

 
 
 
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع