numero di utenti connessi

[eng]

ance se e' una domanda piu' da ASP o PHP...
ecco il codice ASP che uso io per aver gli IP degli utenti connessi ei quindi , contandoli, il numero dei visitatori connessi

<%
Dim scadenza, ScadenzaSecondi, ip, ip_temp, data, differenzaData
Dim IPConnessi, x, tempIPConnessi, temp, listaIP
scadenza = 10
scadenzaSecondi = 60 * scadenza

ip = Request.ServerVariables("REMOTE_ADDR")
    
Application.Lock()
'reset application()
'Application("IPConnessi")=""
IPConnessi = Application("IPConnessi")

trovato_io = false
If len(IPConnessi)>0 Then
'se la lista non e' vuota
    IPConnessi = Split(IPConnessi,"+")
    For x = 0 To UBound(IPConnessi)
        temp = Split(IPConnessi(x),"|")
        ip_temp = temp(0)
        data = CDate(temp(1))
        differenzaData = DateDiff("s",data,Now())
        If ip_temp = Request.ServerVariables("REMOTE_ADDR") Then
        'se trovo il mio IP aggiorno la data con quella attuale
            tempIPConnessi = tempIPConnessi & ip_temp & "|" & Now() & "+"
            trovato_io = true
        Else    If differenzaData < scadenzaSecondi Then
            'per tutti gli altri non scaduti ritrascrivo inalterati
                tempIPConnessi = tempIPConnessi & ip_temp & "|" & data & "+"
            End If 
        End If
    Next
    If Not trovato_io Then    
    ' se non ho trovato il mio IP lo inserisco in lista
            tempIPConnessi = tempIPConnessi & Request.ServerVariables("REMOTE_ADDR") & "|" & Now() 
            trovato_io = false
            ' se non ho trovato il mio IP scrivo l'accesso su file
            Write_Date_IP_Language_Browser_on_File
    End If        
    If Right(tempIPConnessi,1) = "+" Then 
    ' se e' rimasto un + in fondo lo taglio
        IPConnessi = Left(tempIPConnessi,(len(tempIPConnessi)-1))
    Else
    'altrimenti va già bene così
        IPConnessi = tempIPConnessi 
    End If
    Application("IPConnessi") = IPConnessi
Else'lista vuota
    IPConnessi = Request.ServerVariables("REMOTE_ADDR") & "|" & Now() 
    Application("IPConnessi") = IPConnessi    
    ' scrivo l'accesso su file
    Write_Date_IP_Language_Browser_on_File
End If
Application.UnLock()%>

<% 
'Visitor counter
Application.Lock()
IPConnessi = Application("IPConnessi")
If len(IPConnessi) > 0 Then
    IPConnessi = Split(IPConnessi,"+")
    i= 1 + UBound(IPConnessi)
Else
    listaIP = "nessuno"
End If
Application.UnLock()
%>