الرئيسية | مركز الدعم | نبذة عنا | اتصل بنا | تابعنا على فيسبوك | English
YAZSYS.COM, Pos, Pop, Point Of Sale
منذ عام 2012 - 2019 عدد العملاء حتى الأن: 2768
تحميل نظام المبيعات  
 
الدرس (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
 
 

 
تحميل نظام المبيعات  
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZ الجيل الثالث
مركز الدعم
تابعنا على فيسبوك
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع
 
 
 
تحميل نظام المبيعات