Nessun risultato. Prova con un altro termine.
Guide
Notizie
Software
Tutorial

Conclusioni

Conclusioni e rifiniture al progetto.
Conclusioni e rifiniture al progetto.
Link copiato negli appunti

Per le pagine utenti e finestra il codice è abbastanza semplice ed intuitivo. Analizziamo l'interno della sub Page_Load, in questo caso di finestra.aspx:

if (Application("NumeroAncorato")).Tostring <> "" then
downa = "a" & Application("NumeroAncorato")
stampa = "<s" & "cript LANGUAGE=JavaScript>"
stampa = stampa & "function vaialpunto() {"
stampa = stampa & "prov.style.display=" & """""" & "; "
stampa = stampa & downa & ".scrollIntoView(true);"
stampa = stampa & "}"
stampa = stampa & "<" & "/script>"
carica = "onLoad=vaialpunto()"
end if
dim nRighe as Integer
nRighe = Application("Righe")
dim scrivi as String
if isArray(Application("Testo")) then
For conta = CInt(Session("Righe")) to (nRighe)
finTxt = finTxt & "<BR>" & Application("Testo")(conta)
if ViewState("benvenuto") = "" then
finTxt = finTxt & "<BR>" & "Benvenuto nella Chat"
end if
ViewState("benvenuto") = "Pieno"
Next
lblMessaggio.Text = finTxt
end if

Viene stampato un codice java che permette di visualizzare il contenuto della pagina a partire da una posizione specificata dal valore ancora dell' ultima stringa di Application("Testo"), poi tutto il contenuto della variabile viene stampata nel label. Per l'aggiornamento della pagina si utilizza un refresh ogni 3 secondi. Per la pagina utenti invece questo è il codice su cui ruota il motore del controllo dello stato degli utenti:

if IsArray(Application("Nick")) then
if IsArray(Application("Now")) then
Application.Lock()
Application("Now")(Session("ID")) = Now()
For i = LBound(Application("Now")) to UBound(Application("Now"))
if (DatePart("s", ora) - DatePart("s", Application("Now")(i))) > 8 then
Application("Nick")(i) = ""
end if
if (StrComp(Application("Nick")(i), Session("Nick"), vbTextCompare) = 0) then
nome = "<b>" & Application("Nick")(i) & "</b>"
else
nome = Application("Nick")(i)
end if
if nome <> "" then
NkUten = NkUten & nome & "<br>"
end if
Next
NkUtenti.Text = NkUten
Application.UnLock()
end if
end if
Session.Timeout = 1

Con questo si conclude la nostra chat in ASP.NET, lascio a voi per esercizio la possibilità di migliorarla aggiungendo le stanze o le icone vicino ai Nick o elencare la lista degli utenti in ordine alfabetico.


Ti consigliamo anche