שלח תשובה

זירת השאלות

575
צפיות
16
תשובות

Login Problem

,‏ 20 באוגוסט, 2005

היי, מה נשמע?
אני עשיתי לאתר שלי LOGIN. לאתר שלי כבר היה קיים LOGIN אחד, במקום נחוץ, אז העתקתי את הקוד, ושמתי במקום השני. בעיה היא, שכשאני מכניס שם משתמש וסיסמה קיימים, הקוד אומר לי שהם לא נכונים. שיניתי את הפרמטרים הנחוצים, ווידאתי ששם המשתמש והסיסמה קיימים, אבל עדיין לא…

הנה הקוד הקיים:


<%
   If Request.form("UserName")<>"" And Request.form("Pass")<>"" Then
      Dim conn, SQLstr
    set oConn=server.createobject("ADODB.connection")
    oConn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/Reg.mdb")

      SQLstr="INSERT INTO SiteUsers (Login,Password,Fname,Lname,Email)"
      SQLstr= SQLstr & " VALUES ('" & Request("Login") & "','"
      SQLstr= SQLstr & Request("Password") & "','"
      SQLstr= SQLstr & Request("Fname") & "','"
      SQLstr= SQLstr & Request("Lname") & "','"
      SQLstr= SQLstr & Request("Email") & "')"
      conn.Execute SQLstr
      conn.Close
      Set conn = Nothing
      Response.Redirect "enter.asp"
   End If
%>


אשמח אם תעזרו לי, ותודה מראש.

תגיות:

16 תשובות

  1. טעות
    אני מצטער, אבל הייתה פה טעות, הנה הקוד הנכון:


    <%
    UserName=request.form("UserName")
    Pass=request.form("Pass")

    const mydb="db/Reg.mdb"
    function connect()
    set conn = server.createobject("ADODB.connection")
    conn.mode=admodereadandwrite
    conn.open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& server.mappath(mydb))
    set connect=conn
    end function
    set conn = connect()
    set rs = server.createobject("adodb.recordset")
    rs.activeconnection=conn
    rs.open "select * from regP1 where NName='"&AdminID&"'"
    if Not rs.EOF then
        if Not rs("password")<>Pass then
        Session("UserID") = RS("ID")
        session("UN") = RS("NName")
        Response.Redirect "BJourney.asp"
        end if
        else
        Response.Write "<center><FONT COLOR=white size=3>"    
        Response.Write "שם המשתמש או הסיסמה אינם נכונים.</FONT><br>"
        response.write "-<a href=IndexJourney.asp>חזור לעמוד ההזדהות</a>-"

    end if

    %>

  2. BuildHome הגיב:

    למה לא שאילתה אחת
    במקום תנאים ותנאים?
    SELECT [*] FROM regp1 WHERE NName='"&Username&"' AND password='"&Pass&"'"
    אם rs.eof=true הפרטים שגויים, אחרת הם נכונים.

  3. סידרתי… הבעיה נמשכת…
    אני עשיתי לפי עצתך, אבל הבעיה עדיין נמשכת… מה אוכל לעשות עוד בנדון?
    ותודה בכל-מקרה.

  4. הנה:


    <%
    UserName=request.form("UserName")
    Pass=request.form("Pass")

    const mydb="db/Reg.mdb"
    function connect()
    set conn = server.createobject("ADODB.connection")
    conn.mode=admodereadandwrite
    conn.open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="& server.mappath(mydb))
    set connect=conn
    end function
    set conn = connect()
    set rs = server.createobject("adodb.recordset")
    rs.activeconnection=conn
    rs.open "select * from regP1 where NName='"&UserName&"' AND Password='"&Pass&"'"
    if Not rs.EOF then
        Session("UserID") = RS("ID")
        session("UN") = RS("NName")
        Response.Redirect "BJourney.asp"
    else
        Response.Write "<center><FONT COLOR=white size=3>"    
        Response.Write "שם המשתמש או הסיסמה אינם נכונים.</FONT><br>"
        response.write "-<a href=IndexJourney.asp>חזור לעמוד ההזדהות</a>-"

    end if

    %>

  5. BuildHome הגיב:

    הקוד נראה לי תקין
    תבדוק מה שאפשר לבדוק (הערכים המתקבלים מהטופס, הדפסת שאילתה, בדיקת נתונים במסד וכו').

  6. בדקתי…
    תודה,
    אבל אמרתי שאני בדקתי את כל הערכים הדרושים לביצוע תקין של השאילתה. כנראה שזו בעיה בשרת. אני אחכה למחר ואעדכן אתכם לגביי המצב?

  7. Dgogo הגיב:

    תנסה להדפיס את השאילתה ולראות אם
    היא נכונה ומכילה את הפרמטרים שמילאת בטופס

  8. עשיתי…
    אני הדפסתי את השאילתה, כל הערכים התקבלו, כל הגרשיים בסדר, כל השדות מתאימים, והבעיה נמשכת… אני לא מבין מה הבעיה? אני החלפתי שרת, והיא עדיין נמשכת…

  9. eLisHa הגיב:

    תנסי להריץ את השאילתה שהדפסת באקסס

  10. IIS
    האא הא!
    תפסתי את השרת על חם!
    התקנתי שרת IIS אצלי במחשב, העברתי את האתר שלי לשם, והכל עובד מ-ע-ו-ל-ה.
    למישהו יש המלצות לשרתים תומכי ASP(פשוט אם אני מכבה את המחשב, הIIS לא פעיל, אז זה קצר בעיה…)

    תודה לכל מי שעזר לי.
    ניסתי את השרתים: 1AspHost
    ו:WebSamba
    והם לא פעלו.

    אני באמת אשמח לקבל המלצות לשרתים.
    ~תודה מראש~

  11. DB is read-only
    היי,
    נגמרה בעיה קודמת וישנה בעיה חדשה בפתח…
    אני מנסה להכניס נתונים למסד, ומופיעה לי שגיאה שאומרת: The DB is read-only. איך אני יכול לתקן את האופציה הזו?

  12. Dgogo הגיב:

    בקלות
    לחצן ימני על הקובץ ולהסיר את הוי מהקוביה של ה- READ ONLY

  13. UNICODE ב ACCESS
    היוינקוד באקסס לא פעיל, במקום היוניקוד, מופיעים לי סימני שאלה. ניסיתי את השיטה של הN לפני הערך המוכנס לטבלה, אבל הופיעה לי שגיאה שאומרת שהתחביר אינו נכון.
    כיצד אוכל לתקן את היוניקוד לדעתכם?
    לצורך הענין, יש לי את תג הMETA והקוד שבתחילת העמוד לצורך קידוד, אבל הם לא עוזרים…
    תודה לכל עוזר שהקדיש את תשומת לבו לבעייתי.

  14. הקפצה…
    סליחה על ההקפצה, השאלה יורדת לעמוד הבא…

שלח תשובה