online brugere

prøv at kigge på www.activeserverpages.dk her kan du finde en masse eksempler

hrrmmm... ja men ik på det jeg skal bruge

hmm fandt vist en ,,, sider lige og læser den men i er da velkomne til at skrive nogen eksempler selv :P

Koden til LogActiveUser


--

Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate

strActiveUserList = Application("ActiveUserList")

If Instr(1, strActiveUserList, Session.SessionID) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.SessionID)
intUserEnd = Instr(intUserStart, strActiveUserList, "|")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now())
Application("ActiveUserList") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1
Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|"
Application.UnLock
End If

End Sub
--
Koden til ActiveUserCleanup
--
>Sub ActiveUserCleanup
Dim ix
Dim intUsers
Dim strActiveUserList
Dim aActiveUsers
Dim intActiveUserCleanupTime
Dim intActiveUserTimeout

intActiveUserCleanupTime = 1
intActiveUserTimeout = 20

If Application("ActiveUserList") = "" Then Exit Sub

If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then

    Application.Lock
    Application("ActiveUsersLastCleanup") = Now()
    Application.Unlock

    intUsers = 0
    strActiveUserList = Application("ActiveUserList")
    strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1)

    aActiveUsers = Split(strActiveUserList, "|")

For ix = 0 To UBound(aActiveUsers)
    If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then
        aActiveUsers(ix) = "XXXX"
    Else
        intUsers = intUsers + 1
    End If
Next

strActiveUserList = Join(aActiveUsers, "|") & "|"
strActiveUserList = Replace(strActiveUserList, "XXXX|", "")

    Application.Lock
    Application("ActiveUserList") = strActiveUserList
    Application("ActiveUsers") = intUsers
    Application.UnLock

End If

End Sub

---

Læg følgende kode ind der hvor du skal bruge dit LogActiveUsers system

---
<%

Call LogActiveUser()
Call ActiveUserCleanup()

Response.Write "Der er " & Application("ActiveUsers") & " active brugere online."

%>

jamen hvor skal de 2 øverste så hen?... sorry men fatter det ik

ohhh ska nok lige siges det er den her jeg kigger på..
http://activedeveloper.dk/aspdigital/2001060701.asp

lukker