خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
Yazsys.com
منذ عام 2012 - 2018
Skip Navigation Links
نظام إدارة المبيعات
|
تعليم & شروحاتExpand تعليم & شروحات
 
الدرس (14) برمجة وتصميم موقع شركة وهمية بتقنية ASP.NET - صفحة تسجيل الدخول
بواسطة احمد عادل موسى
2015-05-27

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

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

 

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

'كود صفحة الدخول - السيشن
    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
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZSYS لإدارة المبيعات