Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  NUOVI SVILUPPI
      IN PROGRESS
         Visitatori con nick dei connessi

Visitatori con nick dei connessi

Autore Messaggio
J|M|

Principiante
Principiante
7 Discussioni


Profilo - J|M| 		23 ottobre 2002 alle 02:57:56 Profilo - J|M|Invia un messaggio privato 64603510 Rispondi quotando
Modificato il 17 maggio 2003 alle 10:50:03
Ciao a tutti.
Vi avevo promesso la mia collaborazione e, anche se ho pochissimo tempo da dedicare e scarse conoscenze di programmazione, ecco il mio primo piccolissimo contributo.
A dire il vero non so se è degno di nota, per questo lo posto qui in modo da farvelo valutare.
Volevo far visualizzare nel box dei visitatori (a cui ho cambiato nome da LANG_VISITORS a LANG_WHO_ONLINE) anche i singoli nick degli utenti registrati e che sono connessi in quel momento.
Il risultato dei miei tentativi è il codice postato qui sotto, da inserire al posto della Sub DisplayDynamicCounter originale presente nel file display-inc.asp, e il cui effetto è visibile nello screenshot che riporto qui:
http://www.jimi.it/screenshots/who_online.GIF
(ahi ahi questo forum senza upload!!! eheheheh)
Fatemi sapere cosa ve ne pare e, soprattutto, se ci sono errori da correggere.
Byez.


' Display number of visitors connected to the site
' Modificato da J|M| il 23102002 per visualizzare anche i nick
' IN : -
' OUT : -
Sub DisplayDynamicCounter()
If bDisplayDynamicCount Then
Dim iAuthent, iAnonymous, oCn, oRs, rSQL, iLine

iAnonymous = AnonymousVisitors
iAuthent = AuthentVisitors
CreateTopTable "NbVisitors", GetTranslation("LANG_WHO_ONLINE")
Response.Write "<span class=""small"">"
Response.Write Replace(Replace(GetTranslation("LANG_CURRENT_VISITORS"), "%1%", iAnonymous), "%2%", iAuthent) & vbCRLF

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT * FROM sessions WHERE sLogin <> '' ORDER BY sLogin"
Set oRs = DBRecordSet(oCn, rSQL)

While Not oRs.EOF
Response.Write "<br><br><span class=""small"" align=""center"">"
Response.Write "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(oRs("sLogin")) & """>" & Server.HTMLEncode(oRs("sLogin")) & "</a>"

oRs.MoveNext
WEnd

oCn.Close
Set oCn = Nothing
Set oRs = Nothing

Response.Write "<br><br><span class=""small"">"
Response.Write "<span align=""right"">" & GetDateDDMMYYHHMMSS(Now())

Response.Write "<br><a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_WHO_ONLINE_PAGE & """>" & GetTranslation("LANG_MORE_INFORMATION") & "</a>" & vbCRLF
Response.Write "</span>" & vbCRLF
CreateBottomTable ""
End If

End Sub

---------------
...::: J|M| is online :::...

> il lavoro debilita l'uomo
Anna

Responsabile Forum

Esperto
Esperto
1146 Discussioni


Profilo - Anna 		23 ottobre 2002 alle 20:43:18 Profilo - AnnaInvia un messaggio privato Rispondi quotando
lo provo tra qualke giorno e se ok lo pubblico ;)
---------------
L’opera umana più bella è di essere utile al prossimo, senza che gli altri abbiano delle pretese (Sofocle)
criterio

Eliminato
Eliminato
0 Discussione


Profilo - criterio 		04 novembre 2002 alle 16:34:45 Profilo - criterioInvia un messaggio privato ilario.71@libero.it 47032229 Rispondi quotando
Modificato il 04 novembre 2002 alle 16:36:16
Provato... funziona!! (o)

solo una cosa però, in questo modo dopo ogni nome viene insrito uno spazio, allungando a dismisura la tabella in caso vi siano una decina di utenti collegati.
Non è possibili fare diversamente? non so, aggiungere una virgola e poi il nome successivo, oppure andare subito a capo senza lo spazio?
Spero di esermi spiegato
Grazie
---------------
www.newmaxwebportal.it www.soopitalia.it
redbaron76

Avanzato
Avanzato
163 Discussioni


Profilo - redbaron76 		04 novembre 2002 alle 16:44:57 Profilo - redbaron76Invia un messaggio privato bustio@hotmail.com 5034560 Rispondi quotando
Io avrei trovato una soluzione alternativa al problema, cioè l'utilizzo di un iframe con autorefresh...

Per chiunque fosse interessato, sono disposto a fornire ulteriori dettagli...

Saluti
---------------
Saluti e baci...

Red il bisiaco
http://www.bisiacaria.com
J|M|

Principiante
Principiante
7 Discussioni


Profilo - J|M| 		18 novembre 2002 alle 02:24:31 Profilo - J|M|Invia un messaggio privato 64603510 Rispondi quotando
Scusate, ma avevo sempre dimenticato di rispondere al giusto problema sollevato da Criterio. La soluzione è semplicissima, è sufficiente togliere un <br>. Ecco qui sotto il codice con la giusta modifica.

' Display number of visitors connected to the site
' Modificato da J|M| il 23102002 per visualizzare anche i nick
' IN : -
' OUT : -
Sub DisplayDynamicCounter()
If bDisplayDynamicCount Then
Dim iAuthent, iAnonymous, oCn, oRs, rSQL, iLine

iAnonymous = AnonymousVisitors
iAuthent = AuthentVisitors
CreateTopTable "NbVisitors", GetTranslation("LANG_WHO_ONLINE")
Response.Write "<span class=""small"">"
Response.Write Replace(Replace(GetTranslation("LANG_CURRENT_VISITORS"), "%1%", iAnonymous), "%2%", iAuthent) & vbCRLF

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT * FROM sessions WHERE sLogin <> '' ORDER BY sLogin"
Set oRs = DBRecordSet(oCn, rSQL)

While Not oRs.EOF
Response.Write "<br><span class=""small"" align=""center"">"
Response.Write "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(oRs("sLogin")) & """>" & Server.HTMLEncode(oRs("sLogin")) & "</a>"

oRs.MoveNext
WEnd

oCn.Close
Set oCn = Nothing
Set oRs = Nothing

Response.Write "<br><br><span class=""small"">"
Response.Write "<span align=""right"">" & GetDateDDMMYYHHMMSS(Now())

Response.Write "<br><a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_WHO_ONLINE_PAGE & """>" & GetTranslation("LANG_MORE_INFORMATION") & "</a>" & vbCRLF
Response.Write "</span>" & vbCRLF
CreateBottomTable ""
End If

End Sub

---------------
...::: J|M| is online :::...

> il lavoro debilita l'uomo

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 114
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684666 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi