تقييم الموضوع :
  • 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 450 16-05-15, 08:10 PM
آخر رد: Amir_alzubidy
  تغيير حجم الصور ( يتضمن مثال عن معرض صور slideShow ) محمد الحاج خلف 1 652 28-05-13, 11:37 PM
آخر رد: محمد الساعدي
  تعلم كيف تنقل بيانات من صفحة لأخرى بإستخدام QueryString RaggiTech 0 702 15-10-12, 10:49 AM
آخر رد: RaggiTech
  صفحة الفيديو الخاصة ب Asp.net من مايكروسوفت RaggiTech 0 318 15-10-12, 10:20 AM
آخر رد: RaggiTech
  مثال الاسماء في صفحة من جدول وتفاصيلها في صفحة اخرى من جدول آخر سعود 0 543 17-09-12, 10:42 AM
آخر رد: سعود

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


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