تسجيل الدخول وتسجيل الخروج

لاجواب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظ

السلام عليكم

اخي انا عندي كود ولكني علي سفر الان امنحني 10 ايام وان شاء الله اضعه لك في المنتدي

أخي xxxlsss مشكلتك بسيطة جدا وليس أنا من بسطها ولكن asp.net 2.0 هي التي فعلت ذلك ولكن إسمحلي بسؤال هل تستعمل asp.net 2.0 or asp.net 1.0 لأن الذي سوف أتحدث عليه الأن يمشي مع 2 .

أولا قومو بتنزيل الدوكيمنت المرفقة.

الأن بعد قراءة الدوكيمنت أكيد عرفتم طريقة إضافة ال role عن طريق الويزارد.

الأن ما الذي يفعله لنا هذا الويزارد:

قامت الأي إس بي بإضافة هذه الخاصية الممتازة لتمنح مستخدمينها المبرميجين سهولة إضافة أدوار للزوار visitors مثلا يمكنك إضافة دور Users للزوار العاديين دور ال admin للإداريين للموقع وهكذا وبعد تحديد هذه الرولس الإي إس بي يقوم بإنشاء الداتا بيس وكل شيء لوحده وبذلك يكون موقعك جاهز ولإمكانية التسجيل يمكنك إضافة الكونترول الجاهزة في ال toolbox في تاب ال login.

Securing_your_Website_with_Membership.doc

asp.net 1.0

السلام عليكم

بالنسبة لل asp.net 1.0 اذا كنت بتستخدم ال session يمكن تخزين ال session =" " اما اذا كنت تستخدم الكوكيز فيمكن اما بلغاء الكوكيز او تخزين قيمة خالية على الكوكيز

انا استعمل ال asp 1

واستخدم ال session

وان شاء الله سارفق لك الكود قريبا

أخي الأمر بسيط

استعمل الكوكيز

أرفقت لك مثال على طريقة الكوكيز للدخول للصفحة أو نقلك لصفحة تسجيل الدخول

:)

هذا كود تسجيل الخروج من الموقع

 

if (Request.Cookies["UserSettings"] != null)
{
	HttpCookie myCookie = new HttpCookie("UserSettings");
	myCookie.Expires = DateTime.Now.AddDays(-1d);
	Response.Cookies.Add(myCookie);
}

cookie.txt

هل وصلك الرد كاملا ؟؟؟

السلام عليكم ورحمة الله

اسف لتاخري في الوفاء بوعدي ولكنها الظروف عموما هدا الكود اللي بستخدمه وان شاء الله يكون فيه ما هو مفيد :

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

تعريف المتغيرات التالية :

Dim cn As New OleDbConnection()
	Dim adp As New OleDbDataAdapter()
	Dim ds As New DataSet()
	Dim ta As New DataTable()
	Dim rs As DataRow
	Dim r() As DataRow

ربط قاعدة البيانات في ال page load :

جدول التسجيل register وضعته فرضا بثلاث حقول الاسم والباسورد والايميل

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		'Put user code to initialize the page here
		Try
			Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydata.mdb"
			cn.ConnectionString = s
			adp = New OleDbDataAdapter("select * from register", cn)
			ds.Clear()
			adp.Fill(ds, "select * from register")
			ta = ds.Tables("select * from register")
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

كود زر التسجيل :

مع ملاحظة ان اول سطرين من الكود وظيفتهم التحقق من عدم وجود مسبق للباسورد والاسم وفي حالة عدم التكرار يتم الاضافة واستخدام session لاخد اسم المستخدم الموضوع فرضا في textbox1 الي صفحة الترحيب اللي سميتها welcome و ادا كانت كلمة المرور او الاسم مكررين سيتم استخدام session لاخد باقي البيانات وهي الايميل الموضوع فرضا في textbox4 الي صفحة اخري وهي userdata2 وفي هزه الصفحة سيطلب من المستخدم ان يضيف اسم وباسورد اخرين وسيتم توضيح زلك :

r = ta.Select("r_name='" & Trim(TextBox1.Text) & "' or r_pass=' " & Trim(TextBox2.Text) & "'")
		If r.Length <= 0 Then

			rs = ta.NewRow
			rs("r_name") = TextBox1.Text
			rs("r_pass") = TextBox2.Text
			rs("r_mail") = TextBox4.Text
			ta.Rows.Add(rs)
			Dim cmd As New OleDbCommandBuilder(adp)
			adp.Update(ta)
			Me.Session.Add("Txt1", TextBox1.Text)
			Response.Redirect("welcome.aspx")
		Else

			Me.Session.Add("Txt1", TextBox4.Text)
			Response.Redirect("userdata2.aspx")
		End If

في صفحة الترحيب welcome في ال pageload الكود التالي الزي سياخد اسم المستخدم من ال session الي label1 مثلا لاظهار جملة الترحيب والي جانبها label فيه اسم الضيف :

Me.Label1.Text = Me.Session("Txt1")

في صفحة ال userdata2 التي ستظهر في حالة ادخال اسم مستخدم وكلمة مرور سبق استعمالهما :

تعريف المتغيرات :

Dim cn As New OleDbConnection()
	Dim adp As New OleDbDataAdapter()
	Dim ds As New DataSet()
	Dim ta As New DataTable()
	Dim rs As DataRow
	Dim r() As DataRow

في ال pageload الكود التالي :

استخدام ال session لاخد البيانات التي لا تحتاج الي اعادة ادخال مثل الايميل ثم ربط الصفحة بقاعدة البيانات :

Me.TextBox4.Text = Me.Session("Txt1")
		Try
			Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\mydata.mdb"
			cn.ConnectionString = s
			adp = New OleDbDataAdapter("select * from userreg", cn)
			ds.Clear()
			adp.Fill(ds, "select * from userreg")
			ta = ds.Tables("select * from userreg")
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

كود زر ارسال البيانات :

بعد ان يقوم المستخدم بادخال اسم مستخدم وباس ورد جديدين سيتم اختبارهما بنفس الطريقة السابقة وفي حالة عدم وجودهما سيتم اضافة البيانات والزهاب الي صفحة الترحيب واما في حالة وجودهما من قبل سيتم اعادة تحميل نفس الصفحة الحالية لاعادة الادخال :

r = ta.Select("r_name='" & Trim(TextBox1.Text) & "' or r_pass=' " & Trim(TextBox2.Text) & "'")
		If r.Length <= 0 Then

			rs = ta.NewRow
			rs("r_name") = TextBox1.Text
			rs("r_pass") = TextBox2.Text
			rs("r_mail") = TextBox4.Text
			ta.Rows.Add(rs)
			Dim cmd As New OleDbCommandBuilder(adp)
			adp.Update(ta)
			Me.Session.Add("Txt1", TextBox1.Text)
			Response.Redirect("welcoms.aspx")
		Else
			Me.Session.Add("Txt1", TextBox4.Text)
			Response.Redirect("userdataer.aspx")
		End If

ارجو الفائدة للجميع وكود تسجيل الخروج يا اخي الكريم لازالت اجتهد فيه ازا وجدته ساكتبه لك ان شاء الله اما نقطة عدم تفعيل الزر عند الخروج فلم افهمها ياريت توضحها لنا