ciao a tutti
vorrei vedere i nickname che sono collegati nel mio sito ,
esemio :
Utenti che stanno navigando in questo forum: siki, fly82, Pandolfo2, giuseppe1986
come posso fare ?
ciao a tutti
ciao a tutti
vorrei vedere i nickname che sono collegati nel mio sito ,
esemio :
Utenti che stanno navigando in questo forum: siki, fly82, Pandolfo2, giuseppe1986
come posso fare ?
ciao a tutti
Puoi usare una variabile application a cui tutti gli utenti accedono aggiornandola con il proprio nickname preso dalla propria session.Originariamente inviato da giuseppe1986
ciao a tutti
vorrei vedere i nickname che sono collegati nel mio sito ,
esemio :
Utenti che stanno navigando in questo forum: siki, fly82, Pandolfo2, giuseppe1986
come posso fare ?
ciao a tutti
Se cerchi nel forum trovi parecchi esempi.
beh, una volta che un utente si logga lo aggiungi alla lista, mentre ogni volta che un utente accede semplicemente al sito (quindi si avvia la sessione) incrementerai di 1 il contatore degli ospiti. All'uscita invece di ricorderai di decrementarlo.
Gli utenti invece andrebbero gestiti con un db per tenere traccia dell'ultimo accesso. Dopo tot minuti passati senza un update li cancelli.
Comunque se fai una ricerca scoprirai che è un argomento che è stato trattato centinaia di volte ...
ho trovato questo script per vedere quandi utenti sono connessi sul sito ....funziona
------------------------------------------------------------
pagin.asp
Utenti connessi nel sito: <%= Application("ActiveUsers") %>
-------------------------------------------------------------
global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' setta il timeout di default 10
Session.Timeout = 10
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' quando il visitatore esce (-1)
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
--------------------------------------------------------
per vedere i nickname come devo fare?
Scrivere il codice ASP opportunoOriginariamente inviato da giuseppe1986
per vedere i nickname come devo fare?
questo?
<%
Dim Lista__MMColParam
Lista__MMColParam = "1"
If (Application("nickname") <> "") Then
Lista__MMColParam = Application("nickname")
End If
%>
<%
Dim Lista
Dim Lista_numRows
Set Lista = Server.CreateObject("ADODB.Recordset")
Lista.ActiveConnection = MM_database_STRING
Lista.Source = "SELECT * FROM Utente WHERE nickname = '" + Replace(Lista__MMColParam, "'", "''") + "'"
Lista.CursorType = 0
Lista.CursorLocation = 2
Lista.LockType = 1
Lista.Open()
Lista_numRows = 0
%>
allora?
nessuno non mi aiuta?
e urgente , non posso andare avanti se non faccio questa cosa.
ciao
vorrei vedere i nickname che sono connessi
per piacere e urgente
scrivo bene il codice
pagina.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Lista
Dim Lista_numRows
Set Lista = Server.CreateObject("ADODB.Recordset")
Lista.ActiveConnection = MM_database_STRING
Lista.Source = "SELECT nickname FROM Utente"
Lista.CursorType = 0
Lista.CursorLocation = 2
Lista.LockType = 1
Lista.Open()
Lista_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<body>
Utenti connessi nel sito: <%= Application("ActiveUsers") %>
</body>
</html>
<%
Lista.Close()
Set Lista = Nothing
%>
global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' setta il timeout di default 10
Session.Timeout = 10
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' quando il visitatore esce (-1)
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
Permessi di invio
Rispondi quotando