Realtid counter

[Patrik Andersson]

Hej! Jag har trälat med en räknare som ska finnas på min hemsida. Den ska tala om hur många besökare det finns på sidan just nu.

 

Är det någon som vet om det finns något färdigt skript att tanka hem eller vet du hur jag ska skriva detta skript.

 

Jag har tänkt att den ska funka så här.

 

När någon besöker min sida så ökar ett värde med 1 i en post i min databas.

När denna besökare lämnar sidan så minskar värdet med 1 i samma databas.

 

Vore tacksam för svar... Gott nytt år!!!

[Clas Ericson]

Hej!

Om du kollar på http://www.idg.se/mikrodatorn/webbmastern/md9905/ så har de gjort ett dynamiskt statistiksystem. Det förutsätter dock att du kör IIS/PWS och ASP. Dessutom använder det sig inte av någon databas, vilket är att föredra i det här fallet.

 

//Clas Ericson

[Patrik Andersson]

Jo! Jag har kollat där förut, men jag fattar det som om det är bara jag som kommer att se räknaren.

Jag menar att man är tvungen att använda en active X i sin dator för få det att fungera.

 

mvh Patrik

 

[Clas Ericson]

Nej, i och med att objektet Dictionary har applikationsstatus så är informationen tillgänglig för alla användare. Det betyder ju att du kan lägga till besöksstatistiken på vilka asp-sidor du vill.

Active X-objektet Dictionary som används körs enbart på servern och har inget med klientens dator att göra.

Ladda hem filerna från MD så förstår du bättre vad de menar.

 

//Clas Ericson

[Clas Ericson]

En notis bara. Webstudio lade nyss ut ett liknande exempel där de istället använder sig av en textfil som räknare.

http://www.idg.se/webstudio/asp/asp231.asp

 

//Clas Ericson

[Patrik Andersson]

Fixat... så här blev min kod...

 

 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

 

Sub Application_OnStart

Application("Antal") = 0

 

End Sub

</SCRIPT>

 

 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnEnd

End Sub

 

</SCRIPT>

 

 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

 

Sub Session_OnStart

 

Application("Antal") = Application("Antal") + 1

End Sub

</SCRIPT>

 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnEnd

 

Application("Antal") = Application("Antal") - 1

 

End Sub

</SCRIPT>

 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

 

End Sub

</SCRIPT>

 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnEnd

 

End Sub

</SCRIPT>

 

 

Sedan hämtar jag antalet i en asp fil så här..

<%=Application("Antal")%>