You don't think that your visitors should com at 00:00 or...
I don't think so...
Then you must have one more variable, application("date"), that contains the date for the last reset of your counter.
When a visitor com to your site you test if the actual date is grater than application("date"). Is it true reset the counter and set application("date") to actual date else add one to your couner
Men hvis du det ene sted skriver count = "0", så kan du ikke skrive + 1, for en streng og et nummer kan ikke lægges sammen. Så hvorfor ikke bare gemme den som application("count") = 0??
Nej jag är svensk, själv förstår jag all (åja!) danska, men min danska i skrift är mycket dålig, så den vill jag inte utsätta er för. ... så varför inte engelska???? :-) ...hmmm! men kanske ska jag försöka på svenska i fortsättningen.
Skriv i din global-asa fil in nedanstående skript. Du kanske inte vet vad global-asa är... Det är en ASP-fil som döps till global.asa och placeras i din webbroot.
<script language=vbscript runat=server> sub application_onstart application("counuter") = 0 application("day") = date() end sub </script>
<script language=vbscript runat=server> sub session_onstart if application("counter") < date() then application("conuter") = 0 application("day") = date() else application("conuter") = application("counter") + 1 end if end sub </script>
Hoppas att det gör det klarare... ...och att du förstår svenska lika bra som jag förstår danska.
<script language=vbscript runat=server> sub application_onstart application("counter") = 0 application("day") = date() end sub </script>
<script language=vbscript runat=server> sub session_onstart if application("counter") < date() then application("counter") = 0 application("day") = date() else application("counter") = application("counter") + 1 end if end sub </script>
Jeg kan alså ikke få det til at virke kna det være fordi jeg har en tæller der viser hvor mange der er online Min global.asa: <script language="VBScript" runat="Server">
Sub Application_OnStart Application("ActiveUsers")=0 End Sub
Sub Session_OnStart Session.Timeout = 20 Session("Start") = Now Application.Lock Application("ActiveUsers") = Application("ActiveUsers") + 1 Application.UnLock End Sub
Sub Session_OnEnd Application.Lock Application("ActiveUsers") = Application("ActiveUsers") - 1 Application.UnLock End Sub </script>
<script language=vbscript runat=server> sub application_onstart application("counter") = 0 application("day") = date() end sub </script>
<script language=vbscript runat=server> sub session_onstart if application("counter") < date() then application("counter") = 0 application("day") = date() else application("counter") = application("counter") + 1 end if end sub </script>
de to stykker kode jeg skal sætte ind i default.asp:
Förmodligen beror det på att du har fler än subrutin med samma namn. Jag har flyttat runt dina rader och tagti bort dubletter av rutinerna.Om jag inte darrade på mushanden allt för mycket borde det kunna se ut så här i stället. Såg att det var ett fel i villkoret för if-satsen, så jag ändrade det.
<script language="VBScript" runat="Server">
<script language=vbscript runat=server> sub application_onstart Application("ActiveUsers")=0 application("counter") = 0 application("day") = date() end sub </script>
Sub Session_OnStart Session.Timeout = 20 Session("Start") = Now Application.Lock Application("ActiveUsers") = Application("ActiveUsers") + 1 Application.UnLock if application("day") < date() then application("counter") = 0 application("day") = date() else application("counter") = application("counter") + 1 end if End Sub
Sub Session_OnEnd Application.Lock Application("ActiveUsers") = Application("ActiveUsers") - 1 Application.UnLock End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
