Salve, il problema è questo: ho recentemente creato una piccola chat. quello che segue è il write.asp, che riceve i dati dal default.asp e con essi aggiorna un file di testo.
Ora, vorrei che, inserendo una form box aggiuntiva, ogni utente possa inserire un proprio nick, che venga mostrato prima del messaggio postato (quindi, incluso nel file di testo). Penso che per farlo sia necessario che la variabile nick vada a scrivere in cache sulla macchina di ogni singolo utente, e che quindi, ogni volta che il messaggio viene inviato, esso venga inserito in capo alla frase appena compilata.
Ringrazio sin da ora chi ha letto fin qui e ci vorrà darmi una mano...
<%
MyFile = Server.MapPath("/public")&"/guest.txt"
Set MyFileObj=Server.CreateObject("Scripting.FileSyste mObject")
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 1, TRUE)
do While not MyOutStream.atendofstream
arrcontenuto=arrcontenuto&","&MyOutStream.readline
loop
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 2, TRUE)
arrcontenuto=split(arrcontenuto,",")
Nrighe=Ubound(arrcontenuto)
if Nrighe > 12 then
for i = Ubound(arrcontenuto)-12 to Ubound(arrcontenuto)
MyOutStream.WriteLine(arrcontenuto(i))
next
else
for each Contenuto in arrcontenuto
MyOutStream.WriteLine(Contenuto)
next
end if
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
Vuota = Server.HTMLEncode(Vuota)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
Vuota= "
"
MyOutStream.WriteLine(New_line)
MyOutStream.WriteLine(Vuota)
MyOutStream.Close
Response.Redirect "http://www.gimeil.com/prove/default.asp"
%>
Rispondi quotando
