- Home
- Categorie
- Coding e Sistemistica
- Coding
- [ASP]come creare un login e registrazione utenti
- 
							
							
							
							
							
[ASP]come creare un login e registrazione utentiCiao 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 !!! 
 
- 
							
							
							
							
							
:bho: 
 
- 
							
							
							
							
							
Basta una ricerca: http://www.google.it/search?q=area+riservata+asp&start=0&ie=utf-8&hl=it&oe=utf-8&client=firefox-a&rls=org.mozilla  official official 
 
- 
							
							
							
							
							
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/script/06_registrazione.asp
 ma troppo complicato.
 Esiste qualcosa di simile più semplice ?Grazie !!!! 
 
- 
							
							
							
							
							
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)" 
 
- 
							
							
							
							
							
IL form riesco a realizzarlo 
 il problema è tutto il resto
 potresti postare il codice grazie !!!
 
- 
							
							
							
							
							
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.
 
- 
							
							
							
							
							
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")  
 
- 
							
							
							
							
							
Non avendo mai fatto applicazioni del genere, potresti indicarmi dove copiare questa query 
 "SELECT * FROM tabella WHERE nick = " & request.form("nick")
 da te suggerita ?
 
- 
							
							
							
							
							
Dove siete Legolas e Madai, mi avete risolto tanti problemi datemi una mano anche per questo !!!!  x:x x:x
 
- 
							
							
							
							
							
posta la pagina dove inserisci gli utenti nel db e vediamo che si può fare  Ciao   
 
- 
							
							
							
							
							
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")
 %>
 
- 
							
							
							
							
							
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 %>">
 
- 
							
							
							
							
							
Non mi abbandonate  
 
- 
							
							
							
							
							
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á esistente") Response.End RS.Close Set RS=Nothing conn.Close Set conn=Nothing End if** %>
 
- 
							
							
							
							
							
Funziona siete sempre i migliori grazie 1000 !    Se avete anche sotto mano uno script con l'aggiunta dell'opzione dell'invio dei dati tramite email sarebbe il massimo !!! Grazieeeeeee !!!! 
 
- 
							
							
							
							
							
Ciao, scusa se non ti ho risposto prima ma ho la linead che da agosto non funziona e aspetto il tecnico...    Comuqnue per inviare una mail (ipotizzando che usi cdosys) basta fare così: Dim objMail, objConfig Set objMail = Server.createObject("CDO.Message") Set objConfig = Server.createObject ("CDO.Configuration") With objConfig .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "il tuo smtp" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.update End With Set objMail.Configuration = objConfig objMail.From = "[email protected]" ' Mittente objMail.To = "qui ci metti la mail del destinatario" ' Destinatario objMail.Subject = "Oggetto mail" objMail.HTMLBody = "Ciao la tua user è: " & user & " e la tua password è:" & password objMail.Send() Set objMail = NothingCiao   
 
- 
							
							
							
							
							
Legolas questo va copiato sempre su "registrami.asp" ? 
 
- 
							
							
							
							
							
@gelova said: Legolas questo va copiato sempre su "registrami.asp" ? 
 Si.
 Magari però prima di fare copia incolla leggiti lo script perchè alcune voci le devi editere teCiao 
   
 
- 
							
							
							
							
							
@Legolas said: objMail.From = "[email protected]" ' Mittente objMail.To = "qui ci metti la mail del destinatario" ' DestinatarioInfatti non ho ben capito questi passaggi.....se "[email protected]" si iscrive 
 il proprietario del sito ad esempio "[email protected]" dovrebbe ricevere un'email da "[email protected]".....come faccio ad inserire l'email del mittente se non so chi si iscrive ? :bho: