Forum

ΠΑΡΑΔΕΙΓΜΑ LOGIN - HELP - Από {theano}

an mpori kapoios na boithisi as mou steilei ena kalo paradeigma me login gia mathites poy tha ginete elegxos gia to AEM ton mathitvn apo thn basi dedomenon poy tha einai kataxvrhmenoi oi mathites.

 

Απάντηση από:_tasos

Τι βάση δεδομένων έχεις;
Σε τι γλώσσσα θέλεις να είναι το πρόγραμμα;

Απάντηση από:theano

Σε VBScript . Η Βάση δεδομένων σε ACCESS. Εχω ήδη δημιουργήσει το login αλλα δεν μπορώ να κάνω τον έλεγχο για το ΑΕΜ των μαθητών.

Απάντηση από:mengele

Apories mou prin sou proteinw kati,gia na sigourepsw oti 8a se voi8isw kai den 8a se xantakwsw.
Xmxmmxmxm ti einai to AEM?
Apo apopsh ASP programmatismou ksereis tipota?Dhladh an xreiastei mesa stous elegxous ths ASP gia na ginei to login,xreiastei na pros8eseis "xeirokinhta" ton elegxo autou tou AEM pou anafereis, 8a eisai se 8esh na to valeis?

Elpizw na voi8isa,
Euxaristw

Απάντηση από:theano

To AEM έιναι ο Αριθμός μητρωου των μαθητών.Τώρα μαθάινω ASP και η εργασία αυτή που έχω είναι για την Πτυχιακή μου.Βρήκα ένα παράδειγμα login στο Internet και εκεί πάνω έκανα κάποιες τροποποιήσεις. Απλά τώρα δεν μπορώ να κάνω αυτόν έλεγχο για το ΑΕΜ.

Απάντηση από:theano

Ο κώδικας είναι αυτός:


'Save entered username and password
Username = Request.Form("txtUsername")
Password = Request.Form("txtPassword")
Password2 = Request.Form("txtPassword2")

Firstname = Request.Form("txtFirstname")
Lastname = Request.Form("txtLastname")
AEM = Request.Form("txtAEM")
EmailAddress=Request.Form("txtEmailAddress")


'check if password not match with password2

if Password <> Password2 Then

Response.Redirect("login.asp?login=pass2failed")
end if




'Check if username and password are entered
if Username = "" then Response.redirect("login.asp?login=createnamefailed")
if Password = "" then Response.Redirect("login.asp?login=createpassfailed")
if FirstName = "" then Response.Redirect("login.asp?login=createfnamefailed")
if LastName = "" then Response.Redirect("login.asp?login=createlnamefailed")
if AEM = "" then Response.Redirect("login.asp?login=createaemfailed")

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb")
set rs = server.CreateObject ("ADODB.Recordset")
'Open all records
rs.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rs.EOF
if rs("username")=Username then
set rs=nothing
set conn=nothing
Response.Redirect("login.asp?login=createnamefailed")
end if
rs.MoveNext
loop
/ΚΑΠΟΥ ΕΔΩ ΘΑ ΠΡΕΠΕΙ ΝΑ ΓΙΝΕΙ Ο ΕΛΕΓΧΟΣ ΓΙΑ ΤΟ ΑΕΜ , ΑΛΛΑ ΘΑ ΠΡΕΠΕΙ ΝΑ ΑΝΟΙΞΩ ΤΟΝ ΑΛΛΟ ΠΙΝΑΚΑ STUDENTS ΟΠΟΥ ΘΑ ΕΙΝΑΙ ΚΑΤΑΧΩΡΗΜΕΝΟΙ ΟΙ ΜΑΘΗΤΕΣ ΚΑΙ ΑΝ ΤΟ ΑΕΜ ΠΟΥ ΕΙΝΑΙ ΚΑΤΑΧΩΡΗΜΕΝΟ ΜΕΣΑ ΣΤΟΝ ΠΙΝΑΚΑ ΔΕΝ ΕΙΝΑΙ ΙΔΙΟ ΜΕ ΑΥΤΟ ΠΟΥ ΠΛΗΚΤΡΟΛΟΓΕΙ Ο ΧΡΗΣΤΗΣ , ΤΟΤΕ ΝΑ ΜΗΝ ΚΑΝΕΙ REGISTER.
'Add a record
rs.AddNew


'Put username and password in record
rs("username")=Username
rs("password")=Password
rs("firstname")=Firstname
rs("lastname")=Lastname
rs("aem")=AEM



'Save record
rs.Update


set rs=nothing
set conn=nothing

Response.Redirect("login.asp?login=creatednew")


%>

Απάντηση από:Psaxtiris

ελπίζω να είναι αυτό που θες
----------------------------------------

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb")

set rsa = server.CreateObject ("ADODB.Recordset")
'Open all records
rsa.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rsa.EOF
if rsa("username")=Username then
flag_a=true
else
flag_a=false
end if
rsa.MoveNext
loop

if flag_a=true then
set rsa=nothing
Response.Redirect("login.asp?login=createnamefailed")
else
set rsb = server.CreateObject ("ADODB.Recordset")
'Open all records
rsb.Open "SELECT * FROM students", conn, 3, 3

'Check if AEM doesn't already exist
do while not rsb.EOF
if rsb("aem")=AEM then
flag_b=true
else
flag_b=false
end if
rsb.MoveNext
loop
set rsb=nothing

if flag_b=true then
Response.Redirect("login.asp?login=createnamefailed")
else
'Add a record
rsa.AddNew
'Put username and password in record
rsa("username")=Username
rsa("password")=Password
rsa("firstname")=Firstname
rsa("lastname")=Lastname
rsa("aem")=AEM
'Save record
rsa.Update
set rsa=nothing
Response.Redirect("login.asp?login=creatednew")
end if
end if

set conn=nothing

Απάντηση από:theano

Ευχαριστώ πολύ , με βοήθησε αρκετά

Απάντηση από:theano

Το πρόβλημα τώρα είναι ότι δημιουργεί λογαριασμό σε όλους τους χρήστες ακόμα και σε αυτούς που το ΑΕΜ τους δεν είναι καταχωρημένο στον πίνακα students.

Απάντηση από:theano

Το πρόβλημα στον παρακάτω κώδικα που μου έγραψες :

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb")

set rsa = server.CreateObject ("ADODB.Recordset")
'Open all records
rsa.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rsa.EOF
if rsa("username")=Username then
flag_a=true
else
flag_a=false
end if
rsa.MoveNext
loop

if flag_a=true then
set rsa=nothing
Response.Redirect("login.asp?login=createnamefailed")
else
set rsb = server.CreateObject ("ADODB.Recordset")
'Open all records
rsb.Open "SELECT * FROM students", conn, 3, 3
/ΕΔΩ ΠΟΥ ΓΙΝΕΤΕ Ο ΕΛΕΓΧΟΣ ΓΙΑ ΤΟ ΑΕΜ ΘΑ ΠΡΕΠΕΙ ΝΑ ΔΕΧΕΤΕ ΜΟΝΟ ΤΟΥΣ ΧΡΗΣΤΕ ΠΟΥ ΕΙΝΑΙ ΚΑΤΑΧΩΡΗΜΕΝΟΙ ΜΕΣΑ ΣΤΟΝ ΠΙΝΑΚΑ students.ΔΗΛΑΔΗ ΑΥΤΟΥΣ ΠΟΥ ΤΟ ΑΕΜ ΠΟΥ ΔΙΝΟΥΝ ΟΤΑΝ ΚΑΝΟΥΝ REGISTER ΕΙΝΑΙ ΙΔΙΟ ΜΕ ΑΥΤΟ ΠΟΥ ΕΙΝΑΙ ΜΕΣΑ ΣΤΟΝ ΠΙΝΑΚΑ STUDENTS.ΚΑΙ ΜΕΤΑ ΑΦΟΥ ΤΟ ΑΕΜ ΣΥΜΦΩΝΕΙ ΝΑ ΓΙΝΕΤΕ ΚΑΙ Η ΚΑΤΑΧΩΡΗΣΗ ΣΤΟΝ ΠΙΝΑΚΑ USERLIST.
'Check if AEM doesn't already exist
do while not rsb.EOF
if rsb("aem")=AEM then
flag_b=true
else
flag_b=false
end if
rsb.MoveNext
loop
set rsb=nothing

if flag_b=true then
Response.Redirect("login.asp?login=createnamefailed")
else
'Add a record
rsa.AddNew
'Put username and password in record
rsa("username")=Username
rsa("password")=Password
rsa("firstname")=Firstname
rsa("lastname")=Lastname
rsa("aem")=AEM
'Save record
rsa.Update
set rsa=nothing
Response.Redirect("login.asp?login=creatednew")
end if
end if

set conn=nothing

ΚΑΜΙΑ ΙΔΕΑ?