Mirabilweb
a- a+

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

Pagina 5 di 10

 

Adesso creeremo una pagina che visualizzi tutti gli utenti registrati al servizio, al fine di farli conoscere fra di loro. La pagina di chiamerà utenti.asp e sarà visibile sono agli utenti registrati e loggati (= che hanno eseguito il login). Ecco il codice completo della pagina utenti.asp, commentata in tutte le sue parti:

 

 

<%

If Session("entrato")<>"si" then

Response.Redirect "login.asp"

end if

 

utente=session("utente")

%>

 

 

<%

‘DA  INCLUDERE E’ ANCHE IL FILE adovbs.inc CHE E’ DISPONIBILE CLICCANDO SU adovbs.inc ALLE FINE DELLA LEZIONE

%>

<!-- #include FILE="adovbs.inc" -->

<% 

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

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

 

‘APRE LA TABELLA UTENTI

Set RecSet = Server.CreateObject("ADODB.Recordset")

Utenti = "SELECT * FROM utenti"

RecSet.Open Utenti, Conn, adOpenStatic, adLockOptimistic

 

%>

 

<%

‘ SE NON VI SONO UTENTI TI MOSTRA IL SEGUENTE MESSAGGIO (IMPOSSIBILE)

if RecSet.eof then

Response.Write "
Nessun Utente Trovato.

else

%>

 <!-- inizia a ripetere le celle -->

<%  Do Until RecSet.EOF %>

     
<%=RecSet("nickname") %>

     
<% =RecSet("email") %>

<!-- fine ripetizione celle -->

<%        RecSet.MoveNext

        Loop

        RecSet.Close

        END IF

        %>

 

Da notare è che viene inserito per ogni username, un link del tipo invia_messaggi.asp?utente=username, questo per inviare direttamente un messaggio all’utente, senza scriverlo nel campo username della pagina per inviare i messaggi.

 

Continua >>>



Ti potrebbe interessare anche

commenta la notizia

Ci sono 1 commenti