05. december 2000 - 22:29Der er
57 kommentarer og 1 løsning
Et \"Antal Brugere på siden\" system
Jeg står faktisk og mangler sådan et system. Jeg er rent faktisk ligeglad med om det er CGI-Bin, ASP eller Java eller hvad man ellers kan lave det I, Men jeg mangler det. 250 Point på højkant =)
SUB Application_OnStart if Application(\"Howmany\") = \"\" then Application(\"HowMany\") = 1 else Application(\"HowMany\") = Application(\"HowMany\") + 1 end if END SUB
SUB Application_OnEnd if Application(\"HowMany\") = \"\" then Application(\"Howmany\") = 0 else Application(\"Howmany\") = Application(\"HowMany\") - 1 End If END SUB
På din side :
Der er nu <%= Application(\"HowMany\") %> brugere på siden.....
Er der ingen som vil være så flink at lave en side til mig? Fordi jeg er kun lige begyndt at lave ASp så jeg fatter rent faktisk ikke et ord af der ovenfor. Så den som gør det først og bedst får pointene
ok du laver ne fil med kun dette indhold og gemmer den som \"global.asa\"
<SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\"> Sub Application_OnStart \' Nulstiller antallet af brugere når applikationen (serveren) startes Application(\"ActiveUsers\") = 0 End Sub Sub Application_OnEnd \' Skriv kode som skal køres når applikationen (serveren) stoppes End Sub
Sub Session_OnStart \' Forøger antallet af brugere med 1, når en session startes Application.Lock Application(\"ActiveUsers\") = Application(\"ActiveUsers\") + 1 Application.UnLock End Sub
Sub Session_OnEnd \' Reducer antallet af brugere med 1, når en session afsluttes Application.Lock Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1 Application.UnLock End Sub </SCRIPT>
- - - - - - - - - - - - - - - - - - - - - -
så kan du bruge følgende html side til at se hvor mange der er online:
<html> <body>
onlinebruger: <%=Application(\"ActiveUsers\")%>
</body>
</html>
- - - - - - - - - - - - - - - - - - -
altyså sæt \"<%=Application(\"ActiveUsers\")%>\" ind alle de steder hvor der skal stå hor mange der er online!
SUB Application_OnStart if Application(\"Howmany\") = \"\" then Application(\"HowMany\") = 1 else Application(\"HowMany\") = Application(\"HowMany\") + 1 end if END SUB
SUB Application_OnEnd if Application(\"HowMany\") = \"\" then Application(\"Howmany\") = 0 else Application(\"Howmany\") = Application(\"HowMany\") - 1 End If END SUB
og kalder den for global.asa Den skal ligge i samme bibl. som alle de andre filer. Du laver en fil der hedder test.asp som skal indeholde flg.
<html> <head> <title>Min Test</title> </head> <body> Der er nu <%= Application(\"HowMany\") %> brugere på siden..... </body> </html>
Så kan du bare genbruge linien : \'Der er nu <%= Application(\"HowMany\") %> brugere på siden..... \' På de sider du vil have vist hvor mange brugere der er på siden.!
det virker ikke =( Den viser ingenting Se selv på siden Http://www14.brinkster.com/La2k nederst på siden. Der står der ingenting i mellem der er nu [] online på siden. der mangler et tal hvor der står []
Det er altså ikke rigtigt stigc....Jeg har pt. et problem hos WOL, se f.eks. www.gamex.dk og under et af menupunkterne.......!Ingen kode, men masser af den i filerne, og det er fordi de ikke kan få slået deres \'lort\' til.
Laver en fil med kun dette indhold og gemmer den som \"global.asa\"
<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 3 minutes (if you need to) Session.Timeout = 3 \' 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>
Og det her script indsætter du i din hjemmeside:
<% Response.Write \"<CENTER>Du er 1 af \" & Application(\"ActiveUsers\") & \" brugere online!</CENTER>\" %>
NEEEEJJJJ okay, din tyv, det var sq da lidt billigt......Prøv at oversæt dine engelske kommentare til dansk og sammenlign med stigc\'s kode ovenfor...hmmmm
Jeg synes at pointene skal gå til Kasseper fordi han trods alt var den første som sendte mig scriptene, hvor I andre jo bare har lavet noget som ligner det meget! Men tak for hjælpen alle .. =)
Men Stig hvis du vil hjælpe mig så send en e-mail til SyfiliSyko@hotmail.com Så er der nok nogle flere point på højkant hvis du får det til at virke. jeg svarer imorgen tidlig Godnat
Min helt private database, nemlig min virtuelle global.asa, nemlig min egen kæmpe inklude fil, nemlig min helt....egen....tadadadaaaaaaa......HJERNE ;-)
ok du laver ne fil med kun dette indhold og gemmer den som \"global.asa\"
<SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\"> Sub Application_OnStart \' Nulstiller antallet af brugere når applikationen (serveren) startes Application(\"ActiveUsers\") = 0 End Sub Sub Application_OnEnd \' Skriv kode som skal køres når applikationen (serveren) stoppes End Sub
Sub Session_OnStart \' Forøger antallet af brugere med 1, når en session startes Application.Lock Application(\"ActiveUsers\") = Application(\"ActiveUsers\") + 1 Application.UnLock End Sub
Sub Session_OnEnd \' Reducer antallet af brugere med 1, når en session afsluttes Application.Lock Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1 Application.UnLock End Sub </SCRIPT>
- - - - - - - - - - - - - - - - - - - - - -
så kan du bruge følgende html side til at se hvor mange der er online:
<html> <body>
onlinebruger: <%=Application(\"ActiveUsers\")%>
</body>
</html>
- - - - - - - - - - - - - - - - - - -
altyså sæt \"<%=Application(\"ActiveUsers\")%>\" ind alle de steder hvor der skal stå hor mange der er online!
Men mailen er sendt afsted og du får alle mine resterende point hvis du fixer det. Dvs 205 point, mere har ejg altså ikke desværre, men please hjælp mig....
hvis de to filer ligger hos dig og ligger i samme skuffe så skulle det virker. Kan desværre ikke hjælpe dig mere! Global.asa skal måske ligge i roden af din side!
Det er sku\' det den skal ligge i roden af din skuffe. Har lige testet det!!!!!!!!!!!!!!!!!!!!
Synes godt om
Ny brugerNybegynder
Din løsning...
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
