ABA


"בדיקת התחברות ונתינת הרשאות |ASP"
גירסת הדפסה        
קבוצות דיון בניית אתרים נושא #11874 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 11874
ronen333 
חבר מתאריך 20.2.03
6069 הודעות
   17:20   10.04.07   
אל הפורום  
  בדיקת התחברות ונתינת הרשאות |ASP  
 
   ערכתי לאחרונה בתאריך 10.04.07 בשעה 17:31 בברכה, ronen333
 
בניתי דף לבדיקת התחברות ואז נתינת הרשאות.
עכשיו רציתי להתעלות על ERRORS שעלולים להופיע במידה והמשתמש לא עושה משהו כראוי.
כמו:
-לא למלא את הטופס ואז מציג הודעה מתאימה.
-לרשום שם משתמש או סיסמה לא נכונים ואז מציג הודעה מתאימה.

התעלתי על הבעיה שזה מזהה כמובן אם לא מילו טופס, וגם על זה שלא רושמים סיסמה נכונה, אבל משום מה שניסתי לעשות שזה יבדוק אם השם משתמש נכון, מה שאמור להיות נכון בתכנון שלי, יצא לא נכון.
הבעיה המוצגת היא:


ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/aviad/db/login.asp, line 29

http://users1.nofeehost.com/aviad/login.html

עכשיו הרעיון שלי היה כזה, הוא בוחר את השם מהקלט ומכניס אותו לטבלה ווירטואלית. אם הטבלה נגמרה ללא תוצאות זה מקבל תקין=FALSE. אין לי מושג למה זה לא פועל. אשמח לעזרה.

הנה הקוד-


<html>
<head>
<link rel="stylesheet" type="text/css" href="styles.css">
<title>בדיקת התחברות</title>
</head>
<body>

<% If Request.Form("nick")<>"" And Request.Form("pass")<>"" Then %>


<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set tableRs=Server.CreateObject("ADODB.Recordset")

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\rishum.mdb;" & _
"Uid=admin;" & _
"Pwd=;"

mySql= "Select * From table1 WHERE fname='"& Request.Form("nick") &"'"
tableRs.Open mySql, oConn,3,3
%>

<% pass=Request.Form("pass") %>
<% datapass=tableRs.fields("dpass") %>


<% IF tableRs.EOF Then %>
<% Takin=false %>
<% Else %>
<% IF pass<>datapass Then %>
<% Takin=false %>
<% Else %>
<% Takin=true %>
<% Session("ID")=tableRs.fields("id") %>

<% End If %>
<% End If %>

<%
tableRs.Close
oConn.Close
Set tableRs=nothing
Set oConn= nothing
%>


<% If Takin=true Then %>


.ההתחברות התבצעה בהצלחה, אנא המתן מס' שניות אתה מעובר לדף הבית

<% Response.Redirect "http://users1.nofeehost.com/aviad/" %>


<% Else %>
<center>
<font color=red>השם משתמש או הסיסמה אינם נכונים.
</font>
<br>
<a href="http://users1.nofeehost.com/aviad/login.html">לחץ כאן על מנת לנסות להתחבר שנית</a>
<% End If %>

<% Else %>
עליך להזין פרטים על מנת להתחבר
<% End If %>


</body>
</html>


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  הצעה... Sn00py  10.04.07 17:45 1
     ?? ronen333  10.04.07 17:48 2
  מישהו? ronen333  11.04.07 16:38 3
  תעשה ככה: MeToR 12.04.07 15:51 4
     שכחתי להוסיף: MeToR 12.04.07 17:05 5
         זה בסדר אני לא משתמש בSESSION הזה ronen333  13.04.07 15:54 7
     תודה... ronen333  12.04.07 17:05 6

       
Sn00py 
חבר מתאריך 1.8.02
2954 הודעות
   17:45   10.04.07   
אל הפורום  
  1. הצעה...  
בתגובה להודעה מספר 0
 
   תעשה שאילתה כמו שעשית... select איפה שה USER שווה לשם משתמש, ואז תעשה
if (tableRs.EOF AND tableRS.BOF)
' no login
else
' login ok
End If

בהצלחה

\x6C\x65\x65\x74\x68\x61\x78\x30
\x72\x3A\x2D\x29
tresp4sser


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
ronen333 
חבר מתאריך 20.2.03
6069 הודעות
   17:48   10.04.07   
אל הפורום  
  2. ??  
בתגובה להודעה מספר 1
 
   או שלא הבנתי אותך או שלא הבנת אותי.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
ronen333 
חבר מתאריך 20.2.03
6069 הודעות
   16:38   11.04.07   
אל הפורום  
  3. מישהו?  
בתגובה להודעה מספר 0
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
MeToR
חבר מתאריך 26.1.07
11 הודעות
   15:51   12.04.07   
אל הפורום  
  4. תעשה ככה:  
בתגובה להודעה מספר 0
 
   ערכתי לאחרונה בתאריך 12.04.07 בשעה 15:52 בברכה, MeToR
 

<%@language="vbscript"%>

<%
if (Request.Form("nick")<>"") and (Request.Form("pass")<>"") then
nick=Request.Form("nick")
pass=Request.Form("pass")

Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
oConn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=D:\content\users1\aviad\db\rishum.mdb; Uid=admin; Pwd=;"

sql="SELECT * FROM table1 WHERE fname='" & nick & "' AND dpass='" & pass & "'"
rs.Open sql, oConn, 3, 3

if rs.EOF then
response.write ("שם המשתמש או הסיסמא שגויים.")
response.write("<a href='http://users1.nofeehost.com/aviad/login.html'> לחץ כאן </a> כדי לחזור לדף ההתחברות")
else
Session("con")="ok"
response.redirect("http://users1.nofeehost.com/aviad/")
end if

else
response.write("אנא הכנס שם משתמש וסיסמא.")
response.write("<a href='http://users1.nofeehost.com/aviad/login.html'> לחץ כאן </a> כדי לחזור לדף ההתחברות")
end if
%>


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
MeToR
חבר מתאריך 26.1.07
11 הודעות
   17:05   12.04.07   
אל הפורום  
  5. שכחתי להוסיף:  
בתגובה להודעה מספר 4
 
   לכל דף שאתה רוצה שרק משתמשים מחוברים יוכלו להיכנס, תכתוב בראש הדף:

<%
if Session("con")<>"ok" then response.redirect("http://users1.nofeehost.com/aviad/login.html")
%>


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
ronen333 
חבר מתאריך 20.2.03
6069 הודעות
   15:54   13.04.07   
אל הפורום  
  7. זה בסדר אני לא משתמש בSESSION הזה  
בתגובה להודעה מספר 5
 
   אני שולף ID מהDB, כמו שאתה רואה בקוד שרשמתי...


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
ronen333 
חבר מתאריך 20.2.03
6069 הודעות
   17:05   12.04.07   
אל הפורום  
  6. תודה...  
בתגובה להודעה מספר 4
 
   זה עם הרשאות לכם עשיתי עם ID ולא עם SESSION קבוע כמו שאתה עשית.
בכל מקרה תודה אני אשנה את זה טיפה.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net