النتائج 1 إلى 5 من 5

الموضوع: أبحث عن كود ASP

  1. #1
    عضو نشيط
    تاريخ التسجيل
    May 2001
    المشاركات
    66


    السلام علكيم
    لدي عدة حقول واود ان املأها بيانات وبعد ذلك التشيك مع قاعدة البيانات بحيث يتم التأكد من وجود هذه البيانات في قاعدة البيانات حتى يستمر المستخدم للدخول الى الشاشة التالية .
    اود من الاخوة ومنهم الاخ MR.ASP مساعدتي في ايجاد هذا الكود .





    aspphp غير متواجد حالياً


  2. #2
    خبير سيرفرات لينكس
    تاريخ التسجيل
    Mar 1999
    المشاركات
    4,917


    تقصد متل كلمة الدخول واسم المستخدم

    ان كان هذا ملا تريدة اليوم بساويها لك





    beshoo غير متواجد حالياً

  3. #3
    عضو نشيط
    تاريخ التسجيل
    Apr 2001
    المشاركات
    177


    هذا الكود يأخذ متغيرين 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






    Mr.ASP غير متواجد حالياً

  4. #4
    عضو نشيط
    تاريخ التسجيل
    May 2001
    المشاركات
    66


    الله يعطيكم العافية
    لكني ما كنت اقصد هذا الموضوع مع اني احتاجة
    الامر كتالي :
    هذه صفحة هي عبارة عن تدقيق عن هوية المستخدم الجديد اذا كان موجود اصلاً في قاعدة البيانات اي اذا ادخل اسمة مثلاً يبحث في قاعدة البيانات اذا كان اسمة موجود اصلاً يسمح لة بصفحة اخرى يمكنه منها اختيار كلمة السر طبعاً بحيث يكون مستخدم جديد
    هذا كود طبعاً على قولة اخوي 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
    %>






    aspphp غير متواجد حالياً

  5. #5
    عضو نشيط
    تاريخ التسجيل
    May 2001
    المشاركات
    66

    :) واخيراً :)



    هذا ما كنت ابحث عنه
    لكل من قراء او شارك في هذا الموضوع شكراً لكم
    هذا هو الكود
    كود:
    <%@ 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
    %>








    aspphp غير متواجد حالياً





ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

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