ChatRoom in ASP

Prima di iniziare la costruzione analizziamo le pagine da realizzare:

default.asp - login e controllo accesso
database.asp - collegamento al database
chat.asp - pagina divisa in frames
messaggi.asp - sezione aggiornata regolarmente che mostra i messaggi postati
scrivi.asp - modulo per l'invio di messaggi
funzioni.asp - si occupa delle operazioni di controllo e di scrittura sul database.

mentre il database è chat.mdb con:

Tabella utenti
id contatore Chiave primaria
nick Testo 12 caratteri
pass Testo 12 caratteri

Tabella messaggi
id contatore Chiave primaria
messaggio Testo 100 caratteri
nick Testo 12 caratteri
data data 29/09/2004

dopo aver realizzato il database con le caratteristiche descritte, si procede alla realizzazione delle pagine necessarie.

default.asp
Questa pagina visualizza il modulo per l'inserimento del nome utente (nick) e della password.
Una volta inseriti i dati viene chiamato il file funzioni.asp

<form method="post" action="funzioni.asp">
<input type="hidden" name="tipo" value="login">
 nickname <input type="text" name="utente">
 password <input type="password" name="password">
 <input type="submit" value="invia">
</form>

database.asp
è un file che contiene il collegamento al database "chat.mdb" viene incluso in tutti i file che debbono interagire con questo (lettura e scrittura)

DBase=server.mapPath("db/chat.mdb")
Set Conn=Server.Createobject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBase
Conn.Open DSNtemp

All'inizio dei file messaggi.asp e funzioni.asp, per collegare il file database.asp, occorre mettere il seguente comando HTML:
<!--#include file="inc/database.asp"-->

funzioni.asp
Ha la duplice funzione di controllare:
1. se l'utente si è già? iscritto;
2. se i dati sono corretti.
Questo controllo viene fatto nel database "chat.mdb" nella tabella utenti.

Come prima cosa si controlla se l'utente esiste o meno attraverso un filtro di ricerca con il nome utente.

case "login"
   Stringa_SQL = "SELECT * FROM utenti WHERE nick='" & request("utente") & "'"
   Set rs=conn.execute(stringa_SQL)

   Do while (not rs.eof)
      password=rs("password")
      rs.movenext
   Loop
   Rs.close

Se la ricerca nel database non ha dato nessun risultato significa che non esiste nessun utente con quel nick.
Si tratta quindi di un nuovo utente che quindi va registrato nel database.

If (password="") then
 Stringa_SQL ="INSERT into utenti (nick,pass) VALUES ('"&request("utente")&"','"& request("password")&"')"
 Set rs=conn.execute(stringa_SQL)
 response.cookies("chat")= request("utente")
 response.cookies("chat").Expires=DateAdd("h",1,now())
 response.redirect "chat.asp"
elseif (password<>request("password")) then %>
 Controlla la tua password, non è corretta.<br>
 Se ti iscrivi per la prima volta, ci dispiace ma il nome utente esiste già?. Scegli un nuovo nick.<br>
 <a href="default.asp">Torna indietro</a>
else
 ' il controllo è positivo l'utente può accedere
 response.cookies("yappy_chat")= request("utente")
 response.cookies("yappy_chat").Expires=DateAdd("h",1,now())
 response.redirect "chat.asp"
end if

Per verificare l'avvenuto controllo viene creato un cookie (il cookie dura un'ora) che memorizza il nome dell'utente.

chat.asp
questo file verifica l'esistenza del cookie. In caso contrario riporta l'utente alla fase di inserimento dei dati.

If (request.cookies("yappy_chat")="") then
 response.redirect "default.asp"
end if

la pagina in questione è divisa in due frame.

<FRAMESET ROWS="*,50">
 <FRAME name="centro" SRC="messaggi.asp">
 <FRAME name="basso" SRC="scrivi.asp">
</FRAMESET>

messaggi.asp
Il compito principale di questo file è di visualizzare i messaggi memorizzati nella tabella messaggi.
Il controllo dei messaggi viene fatto a scadenza regolare con un sistema automatico di refresh dopo 5 secondi.

<META HTTP-EQUIV="refresh" content="5;url=messaggi.asp#fine">

Stringa_SQL = "SELECT * FROM messaggi WHERE data='" & Date() & "'"
Set rs=conn.execute(stringa_SQL)

Do while (not rs.eof)
 response.write "<b>"&rs("nick") &"</b>: "& rs("messaggio")
 rs.movenext
Loop
Rs.close

' segnalibro impostato dopo l'ultimo messaggio
Response.write "<A NAME=fine></A>"

Il segnalibro identifica la fine dei messaggi.

scrivi.asp

<form method="post" action="funzioni.asp">
<input type="hidden" name="tipo" value="add_msg">
 <input type="hidden" name="nick" value="<%=request.cookie("yappy_chat")%>">
 <input type="text" name="messaggio" size="50">
 <input type="submit" value="invia">
</form>

funzioni.asp
case "add_msg"
Stringa_SQL ="INSERT into messaggi (nick,messaggio,data) VALUES ('"&request("nick")&"','"& request("messaggio")& "','" & Date() & ")"
 Set rs=conn.execute(stringa_SQL)
response.redirect "scrivi.asp"

Presto online la versione PHP e una dimostrazione del suo funzionamento.