كيفية عمل صلاحية الدخول للمشتركين

نعم هناك خطأ فانت استبدلت هذا CommandText قبل تنفيذه ، فأضفت له قيمه ثم أخرى ، ولم أدقق في البقية

لكن استخدم الكود الموجود في آخر مشاركة ، وطبعا الأفضل تستخدم STORED PROCEDURE ، وستجد موضوعات كثيرة في هذا الشأن في المنتدى بإذن الله تعالى

مشكور عزيزي اتدري اني استعجلت بعض الشيئ و لكن قللي اذا تفضلت ما هو الهدف الأساسي من وجود stored procedure لهذه العملية اهو لتسريع العملية و تخفيف الكود المستخدم ام ماذا ؟؟؟؟؟؟؟؟؟

و ارجو منك ايضا

و ارجو منك ان تعطيني موقع يمكن من خلاله رفع كتب asp.net و هي كتب جديدة و أعتقد انها مفيدة جدا لنا و للمنتدى الفضيل

ذلك ان اصغر حجم لاي كتاب موجود هو 4 mb و هذا لا يمكن ارفاقه فقد حاولت

بالنسبة لاستخدام ال stored proc فهذا لكل مميزاتها عامة وللأمان أيضاً فهي تعتمد على تمرير البارمترات وهذا أفضل للأمان

بالنسبة لموقع لرفع الكتب فربما أفادك أحد الإخوان بارك الله فيهم

وهناك موضوعات هنا في المنتدى فيها وصلات كثيرة لكتب .net عامة ، وكذلك مكتبة الموقع في الصفحة الرئيسية

www.arabtem2000.com

عنوان الموقع هو

arabteam2000.com

لقد قمت بأختيار هذه الموقع لرفع الكتب و هو

http://rapidshare.de/

و انا الان اقوم بتحميلها فهي على الأقل 50 mb و ليكن الله في عوني

اخي محمد النحراوي هل ممكن لنا ان تشرح هذا الكود

Private Sub BookTicket(ByVal UserName As String, ByVal Role As String, ByVal IsPersistent As Boolean)
	   Dim UserTicket As FormsAuthenticationTicket = New FormsAuthenticationTicket(1, UserName, DateTime.Now, DateTime.Now.AddDays(10), IsPersistent, Role, FormsAuthentication.FormsCookiePath)
	   Dim CookieHash As String = FormsAuthentication.Encrypt(UserTicket)
	   Dim UserCookie As HttpCookie = New HttpCookie(FormsAuthentication.FormsCookieName, CookieHash)
	   If UserTicket.IsPersistent Then
		   UserCookie.Expires = UserTicket.Expiration
	   End If
	   Response.Cookies.Add(UserCookie)
	   Response.Redirect(Request.QueryString("ReturnUrl"))
   End Sub

ومذا يعني رقم واحد في اول بارمتر ل formsAuthenicationTicket

وهذا ما فائدته

CODE	   If (Not (HttpContext.Current.User Is Nothing)) Then
		   If HttpContext.Current.User.Identity.IsAuthenticated Then
			   If HttpContext.Current.User.Identity.AuthenticationType = "Forms" Then
				   Dim Id As FormsIdentity = HttpContext.Current.User.Identity
				   Dim UserTicket As FormsAuthenticationTicket = Id.Ticket
				   Dim UserData As String = UserTicket.UserData
				   Dim Roles() As String = UserData.Split(",")
				   HttpContext.Current.User = New System.Security.Principal.GenericPrincipal(Id, Roles)
			   End If
		   End If
	   End If

انا عن نفسى بعمل فورمة فيها اتنين تكست بوكس و زرار

وعند الضغط على الزرار بكتب الكود ده

protected void Button1_Click(object sender, EventArgs e)
	{
		/////////////////////check for the foundation of the user /////////////////////////
		SqlConnection conn_login = new SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings["egyptmastersConnectionString"].ToString());
		SqlCommand cmd_login = conn_login.CreateCommand();
		cmd_login.CommandType = CommandType.Text;
		cmd_login.CommandText = "select id,username,password from users where username=" + "'" + txt_username.Text + "' and password=" + "'" + txt_pass.Text + "'";
		conn_login.Open();
		SqlDataReader dr = cmd_login.ExecuteReader();
		if (dr.HasRows)// searching in the admin table about the user if it found it pass if not it will print error message
		{
			if (dr.Read())
			{
				Session.Add("username", txt_username.Text);
				Session.Add("user_id", dr["id"]);
				string id= Session["user_id"].ToString();

				Response.Redirect("index_user.aspx?id="+ id);
			}
		}
		else
		{
			txt_username.Text = "";
			txt_pass.Text = "";
			Label1.Text = "يوجد خطأ فى الدخول يرجى إعاده المحاوله";
		}
		conn_login.Close();
	}

السلام عليكم

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim dr As SqlClient.SqlDataReader

Dim Sql_Str As String

Dim My_Object As New Main_Class

Sql_Str = "Select * From Security where Login_Name='" & txt_User_Name.Text & "' and Login_Password='" & txt_Password.Text & "'"

dr = My_Object.Build_Reader_Text(Sql_Str)

If Not dr.HasRows Then

lblNotFound.Visible = True

lblNotFound.Text = "اسم المستخدم أو كلمة المرور غير صحيحة"

Else

'FormsAuthentication.RedirectFromLoginPage(txt_User_Name.Text, False)

Response.Redirect("./Main/MenuPage.aspx")

End If

End Sub

----------------------------------------------------------------------------------------------------------------------

هده صفحة web config

<authentication mode="Forms">

<forms loginUrl="./Main/Login_Page.aspx"></forms>

</authentication

<authorization>

<deny users="?"></deny

</authorization

-----------------------------------------------------------------------------------------------------------------

هل يوجد رد