login

السلام عليكم

هل تريده أن يقوم بتسجيل الدخول عن طريق اسم مستخدم وكلمة مرور مخزنة داخل قاعدة بيانات، أم أنك تريده أن يساوي اسم مستخدم أو كلمة مرور ثابته.

سوف أقوم الان بوضع لك كلة الطريقتين:

الطريقة الأولى إذا كانت مخزنة داخل جدول:

لنفترض بأن لديك فورم تحتوي على اسم المستخدم واسم الحقل لها username وكلمة المرور واسمها password وتحدد الفورم إلى اي صفحة تريدها أن تذهب فلنفترض بأنه صفحة admin.asp في هذه الصفحة سوف تقوم بعمل التالي:

<%
'كود الاتصال بقواعد البيانات
dim conn 
set conn=server.createobject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.MapPath("db.mdb"))
dim username,password,check_login
username=request("username") 'هنا سوف يتم تخزين اسم المستخدم داخل المتغير username التي تم إرسالها من الفورم

password=request("password") 'هنا سوف يتم تخزين كلمة المرور

'هنا ستم تنفيذ جملة الاستعلام للتأكد من صحة البيانات
set check_login=conn.execute("select * from admin where username='"&username&"' and password='"&password&"' ")

if not check_login.eof then 'إذا كانت check_login تحتوي على سجل يوجد به اسم المستخدم وكلمة المرور سوف تقوم بتنفيذ التالي
'هنا ضع الكود الذي تريده أن يظهر عندما يكون اسم المستخدم وكلمة المرور صحيحة
else 'هنا في حالة عدم وجود سجل سوف تظهر العبارة التالية
response.write("عذراً اسم المستخدم أو كلمة المرور غير صحيحة
")
end if  'إغلاق الشرط
set check_login=nothing
conn.close 
%>

الكود التالي في عندما تكون القيمة ثابته:

طبعاً تقوم بعمل الفروم لذلك، وتحدد الصفحة التي تريدها أن تذهب له، سوف تقوم بوضع الكود التالي:

<%
dim username,password
username="arabteam2000" 'هنا تم تخزين اسم المستخدم 
passwrod="arabteam2000" ' هنا يتم تخزين كلمة المرور الثابتة

'هنا سوف يتم التحقق إذا كانت اسم المستخدم وكلمة المرور المرسلة من الفروم تساوي القيم المخزنة داخل المتغيرين في الأعلى 
if username=request("username") and passwrod=request("password") then
'ضع الكود الذي تريده أن يظهر في حالة صحة البيانات
else
response.write("اسم المستخدم أو كلمة المرور غير صحيحة")
end if
%>

وبتلك الطريقتين يتم الفحص.

مع تحياتي

السلام عليكم

الملفين التابعين لهذا الرد يشرحوا الغرض.

هذا الكود هو الذي استعمله في صفحتي ... خصوصا اذا كان عندك اكثر من نوع من المستخدمين

<!-- #include file="adovbs.inc" -->
<!-- #include file="conn.asp" -->
<%

dim SQL
dim username
username = Request.Form("username")
SQL = "select userName, password, Status from users where users.userName = '" & username & "'"
RS.Open SQL ,Conn,3,1

%>
<%

if not RS.EOF then
	if Request.Form("password") = RS("password") then
  if RS("Status") = TRUE then
  Session("Admin") = TRUE
  session("Good") = True
  session.Timeout = 2
  Response.Redirect("default.asp")
  end if
	end if

if Request.Form("password") = RS("password") then
	if RS("Status") = FALSE then
	session.Timeout = 3
	Response.Redirect("faq.asp")
	end if
end if
end if

'RS.Close
set RS = nothing
'Conn.Close
set Conn = nothing
set SQL = nothing
	session("Good") = false
	Response.Redirect("login.asp?Error=Incorrect username or password")
	session("Admin") = false
	Response.Redirect("login.asp?Error=Admin session was time out")

%>

Login Form.rar

السلام عليكم

لو سمحتم ممكن الكود مال user name

, pasward

بس php

و شكرا

السلام عليكم

أختي الكريمة أنا أجهل لغة php ، لأنني لم أتعامل معها من قبل، ولكن قمة بالبحث لك عبر محركات البحث، فوجدة هذا الموقع يشرح لك بعناية كيفية عمل تسجيل الدخول، الموقع على عنوان الرابط التالي:

http://martin.f2o.org/php/login

مع تحياتي

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

مشكور اخويه على الرد

و الحمدلله لقيت الي ابيه

الله يجزيك الف خير

و يجعله في ميزان حسناتك

السلام عليكم

لا شكر على واجب.

مع تحياتي