سوال سهل في Login

cn.open()
		cmd.CommandText = "Select UserName,Password From Users  where UserName='" & TextBox1.Text & "'And Password='" & TextBox2.Text & "'"
		cmd.Connection = cn
		rd = cmd.ExecuteReader
		If rd.Read Then
			Session.Add("UserName", TextBox1.Text)
			Response.Redirect("Main.aspx")
		Else
			Label1.Visible = True
			Label1.Text = "invalid User Name Or Password,Please Cheack Data and try Again"
		End If
		cn.Close()
		rd.Close()
		cn = Nothing

rd = Nothing

هذا فى فورمة الدخول ولكن يفضل استخدام stored peocedure

لان الكود السابق فيه ثغرة ال sql injection

لمهم دة للتاكد وفتح السيشن

اما للتأكد من السيشن نفسه كالتالى

ضع هذا الكود فى الصفحات اللى من بعد

	If IsNothing(Session("UserName")) Then
			Response.Redirect("Default.aspx")
		End If

If Not Session("UserName") = "Ahmed Fawzy" Then
			Response.Redirect("http://www.alzahaby.com/vb")
		End If

واجعلى الصلاحيات من خلال نوع الاسم هذا على حسب النوع اعطيه التصاريح

السلام عليكم

اشكرك اخي احمد وجاري التطبيق

للرفع ياليت واحد يكتب لنا كود الحماية حسب المستوى انا في انتظاركم

اختى اجعلى السيشن اللى كاتبه بدل من انه يستقبل بيانات ال name

اجعليه يستقبل بينات ال Type

حق الأسم

مثلا Admin??

والله الموفق

السلام عليكم