Una semplice chat con ASP e le variabili 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
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
