Una semplice chat con ASP e le variabili Application

di Roberto Valentini, in Classic ASP, UserScript, Application,

Il codice che segue permette di creare una semplice chat utilizzando l'oggetto Application di ASP.
Possono essere visualizzati e letti un massimo di 9 msg.
Se il campo nickname rimarrà vuoto, al messaggio verrà assegnato il nickname "anonimo".
Il carattere "|" serve per spezzare i vari messaggi che poi verranno inseriti in un arrai con la funzione redim preserve vmsg(8) salvando nell'application gli ultimi 9 più recenti.
Quindi inserendo il carattere "|" nel testo causerà una visualizzazione parziale e non corretta del medesimo.
Infine il refresh dei messaggi avviene manualmente con il pulsante invia/aggiorna.

<%

' Messaggio inserito nella lista
if request.form("messaggio") <>"" then
  if request.form("nickname")="" then
    nick = "Anonimo"
  else
    nick=request.form("nickname")
  end if

  application.lock
  application("messaggi")="<b>* "& nick &" -</b> "& request.form("messaggio")&"|"&"<br>" & application("messaggi")

end if

' lista messaggi
vmsg = split(application("messaggi"), "|")
redim preserve vmsg(8)
application.unlock

for i=0 to 8
  response.write vmsg(i)
next

%>
<form name="f" method="post">
Nickname: <input type="text" name="nickname" size="10" value="<%= request.form("nickname") %>"><br>
Messaggio: <input type="text" name="messaggio" size="30">
<input type="submit" value="Invia/aggiorna">
</form>

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi