[ASP]come creare un login e registrazione utenti

[gelova]

Ciao a tutti !
Ho un problemino, realizzando delle pag con Dreamweaver dovrei creare un pagina per poter registrare gli utenti con Access i campi sono 5
Nome - Cognome - Username - Password - email sapreste indicarmi qualche script semplicissimo (data la mia poca esperienza in asp) da poter utilizzare ?

Grazie 1000 !!!

[gelova]

[madai]

Basta una ricerca: http://www.google.it/search?q=area+r...la:it:official

[gelova]

Si le avevo già viste, ma non è quello che stavo cercando, io cercavo un codice sorgente per la registrazione dei vari utenti, non il login con password preimpostate, l'unica cosa che ho trovato è questa
http://www.webmasterpoint.org/asp/sc...istrazione.asp
ma troppo complicato.
Esiste qualcosa di simile più semplice ?

Grazie !!!!

[madai]

Prima di tutto costruisciti il form per l'invio dei dati con tutti i campi che ti serve registrare nel database. L'action del form fallo puntare ad una pagina asp che recupera i dati (es. strNome = Request("nome")) e li inserisce nel database attraverso un "INSERT INTO nomeTabella (nome, cognome,...,n) VALUES (strNome, strCognome,...,strN)"

[gelova]

IL form riesco a realizzarlo
il problema è tutto il resto
potresti postare il codice grazie !!!

[gelova]

Vorrei qualcosa simile all'esempio fatto qui
http://www.amicopc.com/asp/register.asp
solo che qui non esiste un comando che verifica se un utente si è registrato
con l'user e passw uguali ad un'altro !
E quindi due utenti possono registrarsi tranquillamente con la stessa user e passw.

[Legolas]

Puoi usare quello script e modificarlo secondo le tue esigenze, per controllare se esiste già un determinatu user nel database basta una semplice query

"SELECT * FROM tabella WHERE nick = " & request.form("nick")

[gelova]

Non avendo mai fatto applicazioni del genere, potresti indicarmi dove copiare questa query
"SELECT * FROM tabella WHERE nick = " & request.form("nick")
da te suggerita ?

[gelova]

Dove siete Legolas e Madai, mi avete risolto tanti problemi datemi una mano anche per questo !!!!

[Legolas]

posta la pagina dove inserisci gli utenti nel db e vediamo che si può fare

Ciao

[gelova]

Sapevo di poter contare su di voi

il file si chiama registrami.asp, il contenuto è questo:

<%
dim nome
dim user
dim pwd
nome=request.form("form_nome")
user=request.form("form_user")
pwd=request.form("form_password")
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pass.mdb")
sql = "SELECT * FROM pass"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
RS.AddNew
rs.Fields("nome")=nome
rs.Fields("user")=user
rs.Fields("pwd")=pwd
rs.update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing
response.redirect("reg_ok.htm")
%>

[gelova]

esiste poi un'altro file che si chiama validate.asp che ha il compito di verificare i dati inseriti nel database, il contenuto è questo:

<%
dim url
url=request.querystring("url")
%>
<form method="POST" action="check.asp">
<p align="center">Username<br>
<input type="text" name="form_user" size="20"></p>
<p align="center">Password<br>
<input type="password" name="form_password" size="20"></p>
<p align="center"><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
<input type="hidden" name="form_url" value="<% = url %>">

[gelova]

Non mi abbandonate

[madai]

Prova così, facci sapere, ciao:

<%
dim nome
dim user
dim pwd
'evitiamo l'SQL Injection replicando gli apici
nome=Replace(request.form("form_nome"),"'","''")
user=Replace(request.form("form_user"),"'","''")
password=Replace(request.form("form_password"),"'","''")
Dim conn
Set conn =  Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/pass.mdb")
sql = "SELECT * FROM pass WHERE user = '" & user & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF then

RS.AddNew
rs.Fields("nome")=nome
rs.Fields("user")=user
rs.Fields("pwd")=pwd
rs.update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing 
response.redirect("reg_ok.htm")

Else

Response.Write("User gi&aacute; esistente")
Response.End
RS.Close
 Set RS=Nothing
 conn.Close
 Set conn=Nothing

End if
%>