Mirabilweb
a- a+

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

Iniziamo subito a creare il sistema per l’invio dei messaggi. Esso è composto da due pagine:

  •  invia_messaggio.asp, in cui si troverà il form (modulo) da compilare per l’invio dei messaggi

  •  invia.asp, che sarà la pagina vera e propria che invierà il messaggio

Ecco il codice della pagina invia_messaggio.asp, non occorre commentare nulla:

 

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

Response.Redirect "login.asp"

end if

utente=session("utente")

%>

<html>

<head><title>Tutorial Computer ASP ==&gt; Creare un sistema di messaggi privati</title>

<body> 

<p align="center"><font face="Verdana" size="2"><b>Sistema di Messaggi Privati

per <%=utente%></b></font></p><div align="center">

<form method="POST" action="invia.asp"> 

<div align="center"><center><table border="0" cellpadding="0" cellspacing="0" width="523"> 

<tr>

<%

‘Preleva l’username dalla querystring utente (osservare lezione n° 5)

destinatario = Request.QueryString("utente")

%>

<td width="232"><font face="Verdana" size="1"><b>Destinatario (suo username):</b></font></td>

<td width="287"><font face="Verdana" size="1"><b><input type="text" name="destinatario" size="24" value=”<%=destinatario%>”></b></font></td></tr><tr> 

<td width="232"><font face="Verdana" size="1"><b>Messaggio:</b></font></td> 

<td width="287"><font face="Verdana" size="1"><b><textarea rows="5" name="messaggio" cols="34"></textarea></b></font></td> </tr> <tr> <td width="519" colspan="2"><p align="center"><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></td></tr>

</table></center></div>

<p align="center">&nbsp;</p> </form></div>

<ul>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="messaggi.asp">Leggi/Elimina

    Messaggi</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="invia_messaggi.asp">Invia

    Messaggio</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="utenti.asp">Tutti

    gli utenti</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="esci.asp">Esci</a></b></font></li>

</ul>

<p align="right"><font face="Verdana" size="1">by Mirabil Web Computer, per

altri tutorial, clicca <a href="http://www.mirabilweb.tk" target="_blank">qui</a></font>

<font face="Verdana" size="1">o visita <a href="http://www.mirabilweb.tk">http://www.mirabilweb.tk</a>

</font></p>

</body>

</html>

 

Ecco il codice della pagina invia.asp, il codice non verrà commentato, poiché molto lungo e difficile da comprendere.

 

<%

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

Response.Redirect "login.asp"

end if


utente=session("utente")

%>

<html>

<head>

<title>Tutorial Computer ASP ==&gt; Creare un sistema di messaggi privati</title>

<body>

<p align="center"><font face="Verdana" size="2"><b>Sistema di Messaggi Privati

per <%=utente%></b></font></p>

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

<div align="center">

      <center><%

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

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

Destinatario = Request.Form("destinatario")

mittente = session("utente") 

sql = "SELECT nickname FROM utenti WHERE nickname = '" & destinatario & "'"

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

rsUser.Open sql, Connect, adOpenStatic, adLockOptimistic 

if rsUser.EOF then

Response.Write "<font face=Verdana size=2 color=#000080><b>Utente Inesistente.</b></forum>"

rsUser.close

set rsUser = nothing

else

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

Addera = "SELECT * FROM messaggi"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic 

RecSet.AddNew 

RecSet("destinatario") = destinatario

RecSet("mittente") = mittente

RecSet("Messaggio") = Replace(Server.HTMLEncode(Request.Form("Messaggio")), chr(13),          "<BR>" , 1)

RecSet("data") = NOW()        

RecSet.Update

Connect.Close

set RecSet = nothing 

%>

<font face="Verdana" size="2" color="#000080"><b>

Messaggio Inviato Correttamente</b></font>   </div> <p align="center">&nbsp;</p>

<% 

end if

%>

</div><ul>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="messaggi.asp">Leggi/Elimina

    Messaggi</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="invia_messaggi.asp">Invia

    Messaggio</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="utenti.asp">Tutti

    gli utenti</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="esci.asp">Esci</a></b></font></li>

</ul>

<p align="right"><font face="Verdana" size="1">by Mirabil Web Computer, per

altri tutorial, clicca <a href="http://www.mirabilweb.tk" target="_blank">qui</a></font>

<font face="Verdana" size="1">o visita <a href="http://www.mirabilweb.tk">http://www.mirabilweb.tk</a>

</font></p>

</body>

</html>

Creiamo adesso il sistema per la ricezione del messaggi. Il tutto si comporrà di una pagina: messaggi.asp. Ecco la pagina messaggi.asp:

<%

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

Response.Redirect "login.asp"

end if

utente=session("utente")

%>

<html>

 <head><title>Tutorial Computer ASP ==&gt; Creare un sistema di messaggi privati</title></head>

<body>

<p align="center"><font face="Verdana" size="2"><b>Sistema di Messaggi Privati

per <%=utente%></b></font></p>

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

<div align="center">    <center>   

<%

‘ APRE LA CONNESSIONE AL DATABASE E PRELEVA I MESSAGGI DELL’UTENTE

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

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

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

Visa = ("SELECT * FROM messaggi where destinatario ='" & utente & "' order by id desc")

RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

%>

<%

‘ SE NON VI SONO MESSAGGI VISUALIZZA LA SEGUENTE FRASE

if RecSet.eof then

Response.Write "<center><b><b><font color=""#000080"" face=Verdana size=2><br>Nessun Messaggio Arrivato.</a></center></font>"

else

%> </center> <ul>

<p align="left"><%

‘ ALTRIMENTI INZIA A RIPETERE I MESSAGGI

  Do Until RecSet.EOF %>

<font face="Verdana" size="1"> Messaggio da <b><% =RecSet("mittente") %><br>

<% =RecSet("messaggio") %></b>     

 <br><a href="elimina.asp?id=<% =RecSet("id") %>">Butta via...</a>  <a href="invia_messaggi.asp?utente=<% =RecSet("mittente") %>">Rispondial messaggio</a></font><center>     

<hr color ="#000080" width="350" align="left" size="1">

 <% 

‘ CHIUDE LA CONNESSIONE AL DATABASE (DB)  E METTE FINE ALLA PRECEDENTE CONDIZIONE

 RecSet.MoveNext

Loop

RecSet.Close        

End IF

        %></ul></div><ul> 

<li><p align="left"><font face="Verdana" size="2"><b><a href="messaggi.asp">Leggi/EliminaMessaggi</a></b></font></li>

<li>p align="left"><font face="Verdana" size="2"><b><a href="invia_messaggi.asp">Invia

    Messaggio</a></b></font></li> <li> <p align="left"><font face="Verdana" size="2"><b><a href="utenti.asp">Tuttigli utenti</a></b></font></li>

  <li>

    <p align="left"><font face="Verdana" size="2"><b><a href="esci.asp">Esci</a></b></font></li>

</ul>

<p align="right"><font face="Verdana" size="1">by Mirabil Web Computer, per

altri tutorial, clicca <a href="http://www.mirabilweb.tk" target="_blank">qui</a></font>

<font face="Verdana" size="1">o visita <a href="http://www.mirabilweb.tk">http://www.mirabilweb.tk</a>

</font></p>

</body>

</html>



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Graziano
Hai qualche domanda da fare?