تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال صفحة login
#1
مثال بسيط جدا

الاكواد
صفحة الماستر بيج
رمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState
Partial Class MasterPage
    Inherits System.Web.UI.MasterPage
    Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(constr)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("name") = "" Then
            l.Text = "اهلا وسهلا بك يازائر كم يسعدنا تسجيلك معنا"
            HyperLink5.Visible = False
            HyperLink4.Visible = True
            HyperLink3.Visible = True
        Else
            HyperLink3.Visible = False
            HyperLink4.Visible = False
            HyperLink5.Visible = True
            l.Text = "اهلا بعودتك يا :" & Session("name")
        End If
    End Sub
End Class

الصفحة المحمية وهي هنا default2.aspx
رمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState

Partial Class Default2
    Inherits System.Web.UI.Page
    Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(constr)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Title = "معرض الصور"
        If Session("name") = "" Then
            Response.Redirect("~\login.aspx")
        End If
        Label1.Text = "اهلا وسهلا بك يا :" & Session("name")
    End Sub
End Class
صفحة الدخول Login.aspx
رمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState

Partial Class Default3
    Inherits System.Web.UI.Page
    Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(constr)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Title = "تسجيل الدخول"
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
            l.Text = "فضلا عبيء الحقول بقيم مقبولة!"
            l.ForeColor = Drawing.Color.Red
            l.Font.Bold = True
        Else
            Dim cm As New OleDbCommand("select * from tb where tname='" & TextBox1.Text & "'and tpass='" & Val(TextBox2.Text) & "'", con)

            If con.State = Data.ConnectionState.Open Then con.Close()
            con.Open()
            Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
            If dr.Read Then
                Session("name") = TextBox1.Text
                Response.Redirect("~\default.aspx")
            Else
                l.Text = "عفوا يوجد خطا اما باسم المستخدم او كلمة المرور"
                l.ForeColor = Drawing.Color.Red

            End If

            If con.State = Data.ConnectionState.Open Then con.Close()

        End If

    End Sub
End Class
صفحة اضافة عضوية جديدة addme.aspx
رمز برمجي:
كود :
Imports System.Data.OleDb
Imports System.Web.SessionState
Imports System.Data

Partial Class addme
    Inherits System.Web.UI.Page
    Dim constr As String = "provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(constr)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Title = "تسجيل جديد"
    End Sub




    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
            l.Text = "فضلا عبيء الحقول بقيم مقبولة!"
            l.ForeColor = Drawing.Color.Red
            l.Font.Bold = True
        Else
            Dim ds As New DataSet
            Dim da As New OleDbDataAdapter("select * from tb", con)
            Dim cm As New OleDbCommandBuilder(da)
            da.Fill(ds, "tb")
            Dim dr As DataRow = ds.Tables("tb").NewRow

            dr.Item("tname") = TextBox1.Text
            dr.Item("tpass") = TextBox2.Text


            ds.Tables("tb").Rows.Add(dr)
            da.Update(ds, "tb")
            Response.Redirect("~\default.aspx")
        End If
    End Sub
End Class
صفحة الخروج Logout.aspx
رمز برمجي:
كود :
Imports System.Web.SessionState
Partial Class Default3
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session("name") = ""
        Response.Redirect("~\default.aspx")
    End Sub

End Class



أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#2
موضوع جميل جداً جداً

بارك الله فيك تم التقيييم :d
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:
#3
جميل .. لماذا لا تستخدم الـ Cookies في حفظ البيانات ؟ ستكون افضل بالطبع ..
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
الرد }}}}
تم الشكر بواسطة:
#4
فيها تعقيد شوي سافهمها لو وجدت مثال سهلSmile
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#5
بالعكس سهلة جدا ..
الكوكيز حجمها اربعة كيلوبايت فقط !
لاضافة كوكي ..
إقتباس :Response.Cookies("CookieName").Value="Value"
Response.Cookies("CookieName").Expires=DateTimer.Now.AddDays(100)
ملاحظة : لن يتم خزن الكوكي الا عندما تضع لها تاريخ انتهاء ..
و عندما تريد قراءتها في وقت لاحق
إقتباس :Dim Value As String = Server.HTMLEncode(Request.Cookies("CookieName").Value)
اذا اردت يمكنك الاطلاع على هذا المثال
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
الرد }}}}
تم الشكر بواسطة:
#6
grazi .
الرد }}}}
تم الشكر بواسطة:
#7
جزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#8
مشكور أخي سعود على مجهودك و مثالك الرائع
الرد }}}}
تم الشكر بواسطة:
#9
ملاحظة : بإمكان المستخدم أن يمنع استقبال الكوكيز على جهازه ( من إعدادات المتصفح ) وبالتالي لن تنفع في هذه الحالة استخدام الكوكيز ...
أما السيشن Session فتبقى خيار أضمن
الرد }}}}
تم الشكر بواسطة:
#10
اخي محمد العزيز ...
هناك تقنية تستخدمة لمعرفة هوية المستخدم حتى لو كان المتصفح لا يدعم الكوكيز وهذه التقنية تسمى cookiesless ........
تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] انشاء صفحة اختيار رابط صورة بشكل عشوائي سعود 1 569 16-05-15, 08:10 PM
آخر رد: Amir_alzubidy
  تغيير حجم الصور ( يتضمن مثال عن معرض صور slideShow ) محمد الحاج خلف 1 766 28-05-13, 11:37 PM
آخر رد: محمد الساعدي
  تعلم كيف تنقل بيانات من صفحة لأخرى بإستخدام QueryString RaggiTech 0 795 15-10-12, 10:49 AM
آخر رد: RaggiTech
  صفحة الفيديو الخاصة ب Asp.net من مايكروسوفت RaggiTech 0 362 15-10-12, 10:20 AM
آخر رد: RaggiTech
  مثال الاسماء في صفحة من جدول وتفاصيلها في صفحة اخرى من جدول آخر سعود 0 590 17-09-12, 10:42 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم