السلام علكيم
لدي عدة حقول واود ان املأها بيانات وبعد ذلك التشيك مع قاعدة البيانات بحيث يتم التأكد من وجود هذه البيانات في قاعدة البيانات حتى يستمر المستخدم للدخول الى الشاشة التالية .
اود من الاخوة ومنهم الاخ MR.ASP مساعدتي في ايجاد هذا الكود .
السلام علكيم
لدي عدة حقول واود ان املأها بيانات وبعد ذلك التشيك مع قاعدة البيانات بحيث يتم التأكد من وجود هذه البيانات في قاعدة البيانات حتى يستمر المستخدم للدخول الى الشاشة التالية .
اود من الاخوة ومنهم الاخ MR.ASP مساعدتي في ايجاد هذا الكود .
تقصد متل كلمة الدخول واسم المستخدم
ان كان هذا ملا تريدة اليوم بساويها لك
هذا الكود يأخذ متغيرين Name و Pass من صفحة الدخول
يبحث عنهما في قاعدة البيانات أذا وجد حقل ممثال
يوجه المستخدم الى صفحة الدخول و يعطيه
Session("Login")=True
و أذا لم يجد الحقل يرجع المستخدم الى صفحة الدخول ويعطيه
Session("Login")=False
التغيرات المطلوبه
sql="Select * from TableNameHere Where (Name='" & Name & "' AND Password='" & Pass & "');"
TableNameHere=اسم الجدول
name = أسم عمود الأسم
name = أسم عمود كلمة السر
كود:Name=Request("Name") Pass=Request("Pass") sql="Select * from TableNameHere Where (Name='" & Name & "' AND Password='" & Pass & "');" ado.ConnectionString="Your Database Connection String Goes Here" Ado.open Set rs=Ado.Execute(sql) Found=Rs.EOF Ado.close IF Not Found Then 'user login fail Session("Login")=False response.redirect "loginPage.asp" else 'user login success Session("Login")=True response.redirect "EntrancePage.asp" End If
الله يعطيكم العافية
لكني ما كنت اقصد هذا الموضوع مع اني احتاجة
الامر كتالي :
هذه صفحة هي عبارة عن تدقيق عن هوية المستخدم الجديد اذا كان موجود اصلاً في قاعدة البيانات اي اذا ادخل اسمة مثلاً يبحث في قاعدة البيانات اذا كان اسمة موجود اصلاً يسمح لة بصفحة اخرى يمكنه منها اختيار كلمة السر طبعاً بحيث يكون مستخدم جديد
هذا كود طبعاً على قولة اخوي MS.ASP فية الكثير من الاخطاء ولكن لا مانع من طرحة
كود:%@ Language=VBScript %> <% Response.CharSet="windows-1256" Response.Expires = 0 set cn = server.createobject("adodb.connection") set rs = server.CreateObject ("adodb.recordset") cn.open("DSN=oracle_odbc;password=tiger") rs.open "select deptno,dname,loc from tb2 where deptno="& Request.Form("t1") &" dname="& Request.Form("t2")&" loc="& Request.Form("t3"),cn,0,1 if cn.eof then response.redirect "../check/pass_uesr.htm" elseif cn("user_USER")<>p_user then response.redirect "../check/pass_uesr.htm" end if %>
هذا ما كنت ابحث عنه
لكل من قراء او شارك في هذا الموضوع شكراً لكم
هذا هو الكود
كود:<%@ Language=VBScript %> <% Response.CharSet="windows-1256" Response.Expires = 0 set cn = server.createobject("adodb.connection") set rs = server.CreateObject ("adodb.recordset") sel_tb1=Request.Form ("T1") sel_tb2=Request.Form ("T2") sel_tb3=Request.Form ("T3") cn.open("DSN=oracle_odbc;password=tiger") rs.open "select deptno,dname,loc from tb2 where deptno= "& sel_tb1 &" and dname='"& sel_tb2 &"' and loc='"& sel_tb3 &"'",cn,0,1 if rs.eof then response.redirect "../rpps/no_data.htm" elseif cint(rs("deptno"))<>cint(sel_tb1) then response.redirect "../rpps/insert_new_pass.htm" end if %>