Mirabilweb
a- a+

Creare un sistema di messaggi privati per gli utenti del proprio sito web (Parte II)

Pagina 2 di 10

Per creare la pagina di registrazione, basta semplicemente creare un form html, con i seguenti campi:

 

    • Username, in cui verrà immesso l’username per i messaggi privati
    • Password, in cui verrà immessa la password per l’utente
    • Email, in cui verrà immessa l’email dell’utente 

   

Username:
Password:
Email:

         

 

Creiamo adesso la pagina “aggiungi.asp”, alla quale verrà inviato il form HTML e che si occuperà di inserire nel database i dati precedentemente immessi. Ecco il codice della pagina aggiungi.asp, commentato in tutte le sue parti:

 

<%

Response.Buffer = True

 
‘ RICHIEDE I CAMPI DEL PRECEDENTE FORM

user = Replace(Request.Form("username"),"'" ,"''")

pwd = Replace(Request.Form("password"),"'" ,"''")

email = Replace(Request.Form("email"),"'" ,"''")

 

‘ MODIFICARE CON IL PERCORSO DEL DATABASE

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/msgprivati.mdb")

 

‘ SELEZIONA DAL DATABASE TUTTI I CAMPI DOVE NICKNAME E’ UGUALE A USER (USERNAME IMMESSO)

mySQL="select * from utenti where nickname = '"&user&"'"

Dim rs

set rs=Server.CreateObject("adodb.recordset")

rs.open mySQL, Conn, 3, 3

 

‘ SE IL RISULTATO E’ DIVERSO DA ZERO (RISULTATO ZERO = INESISTENTE) PORTA NELLA PAGINA ESISTE.ASP

 

if rs.recordcount > 0 then

response.redirect "esiste.asp"

end if
‘ ALTRIMENTI AGGIUNGE L’UTENTE

set rs=Server.CreateObject("adodb.recordset")

mySQL="utenti"

rs.open mySQL, Conn, 3, 3

 

rs.Addnew

 

rs.fields("nickname")=user

rs.fields("password")=pwd

rs.fields("email")=email

rs.update

 

rs.close

set rs=nothing

conn.close

set conn=nothing

 
‘ UTENTE AGGIUNTO CORRETTAMENTE E TI PORTA NELLA PAGINA '“AGGIUNTO.ASP”

response.redirect "aggiunto.asp"

%> 

Da creare sono anche due pagine:

 

  • Esiste.asp, una pagina in cui verrà segnalato all’utente che l’username immesso è già stato utilizzato e che lo invita a cambiare username

  • Aggiunto.asp, una pagina in cui si confermerà all’utente che è stato aggiunto nel database e che può iniziare a inviare i messaggi privati.

 

Continua >>>




Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Staff
Ti interessano altri articoli su questo argomento?
Chiedi alla nostra Redazione!