Hur gör man för att visa enkelt hur många personer som besöker en sajt just nu. Typ som på startsidan på SAND. Måsta man använda Sessions?

MVH
///Joel

Min global.asa fil ser ut som nedan. Det gör att jag kan genom
<%=Application("nuBesok")%> visa antalet besökare som finns just nu när sidan laddas.

Variabeln totBesok visar alla sedan application en kördes första gången. Den nollställs så fort man ändrar i global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("totBesok") = 0
Application("nuBesok") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Session("Start") = Now
Application.lock
Application("totBesok")=Application("totBesok") + 1
Application("nuBesok")=Application("nuBesok") + 1
Application.unlock
Session("BesokID")=Application("totBesok")
Session.Timeout=5
End Sub

Sub Session_OnEnd
Application.lock
Application("nuBesok")=Application("nuBesok") - 1
Application.unlock
End Sub
</SCRIPT>

Tackar, vad gör totBesok?

MVH
///Joel

Totbesök är totaltbesök, men nubesök ökar och minskar vartefter man kommer in och går ut.

/Pelle

Så totbesök är alltså totalt antal besökt sedan??..servern startade eller?

MVH
///Joel

Stämmer, och det kan också vara sedan IIS startades om.

Lägg denna i global.asa unde session_onstart så spar du ner till en textefil också. (kom-i-håg att skapa textefilen)

MinTextFil = "D:\vadduvill\Counter.txt"
Dim objFSO,f
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.OpenTextFile(MinTextFil, 1)
VisitCounter = f.Read(5)
VisitCounter = int(VisitCounter) + 1
Set f = objFSO.CreateTextFile(MinTextFil, True)
f.WriteLine VisitCounter
f.Close
Set f = nothing
Set objFSO = nothing

Application("VisitCounter") = VisitCounter


/Janne

Jag har aldrig testat global.asa så jag undrar om någon kunde skicka mig ett lite färstig ASP exemplar :)

Denna kod lägger du i text fil som du döper till global.asa. Denna fil ska ligga i roten av din site. Hoppas detta hjälper dig, hör av dig annars.


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
'Denna kod körs när servern startas om

END SUB
</SCRIPT>



<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnEnd
'Denna kod kör när servern tas ner kontrollerad


END SUB
</SCRIPT>


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
'Denna kod körs när en ny besökare kommer till din site

MinTextFil = Application("ScriptsPath") & "Counter.txt"
Dim objFSO,f
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.OpenTextFile(MinTextFil, 1)
VisitCounter = f.Read(5)
VisitCounter = int(VisitCounter) + 1
Set f = objFSO.CreateTextFile(MinTextFil, True)
f.WriteLine VisitCounter
f.Close
Set f = nothing
Set objFSO = nothing

Application("VisitCounter") = VisitCounter


End Sub
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnEnd
'Denna kod körs när en besökare har varit inaktiv i 20 minuter(defaultvärde)
'Du kan även trigga denna genom session.abandon

End Sub
</SCRIPT>