Jag vill bara räkna antal besökare online och så här ser min global.asa ut:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
Application("visitors") = Application("visitors") + 1
End Sub
Sub Session_OnEnd
Application("visitors") = Application("visitors") - 1
End Sub
Sub Application_OnStart
Application("visitors") = 0
End Sub
</SCRIPT>
När jag skriver ut application så känns det som det är alltför många på siten. Stämmer koden?
Orkar inte kolla igenom din kod så här kommer en som funkar.
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Application("visitors") = 0
END SUB
SUB Session_OnStart
Application("visitors") = Application("visitors") + 1
END SUB
Sub Session_OnEnd
Application("visitors") = Application("visitors") - 1
End Sub
Sub Application_OnEnd
End Sub
</SCRIPT>
[r] Efter att ha kollat på din kod så upptäckte jag en viss likhet med min...
Det såg väldigt likt ut. Men du har en sub som jag inte har men den borde inte behövas för det finns inget i den.
Jag testade den här koden istället. Sökte lite på forumet. Men hur får jag bort en från active user om personen loggar ut självmant?
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Set our user count to 0 when we start the server
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' Change Session Timeout to 20 minutes (if you need to)
Session.Timeout = 20
' Set a Session Start Time
' This is only important to assure we start a session
Session("Start") = Now
' Increase the active visitors count when we start the session
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
253 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a