10. juni 2000 - 22:57Der er
27 kommentarer og 1 løsning
Nemme 60 point...tror jeg da
Jeg har ledt rimligt godt skulle jeg mene, men fandme nej, jeg har ikke kunne finde en counter der tæller hvor mange som er online på siden lige nu, i ASP, hvis du har en lille ASP counter code til mig er de 60 hjemme
sti = "count.dat" set fil = createobject("scripting.filesystemobject") set count = fil.opentextfile(sti) bruger_count = cint(count.readline) count.close if session("bruger_count") = "" then session("bruger_count") = bruger_count bruger_count = bruger_count + 1 set count = fil.createtextfile(sti,true) count.writeline(bruger_count) count.close end if set fil = nothing set count = nothing response.write bruger_count response.write server.mappath(".") %>
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
Det var godt nok, selvom jeg ikke fik den til at virke det rigtige sted. jeg tror jeg har brug for en i javascript. Det spørgsmål bliver lavet i javascript afdeling, hvis i har et svar....KIG ind
Det jeg mente var at det var et almindeligt htm dokument koden skulle ind. Og asp ville ikke virke i et almindeligt htm dokument hvilket er logisk nok. Sorry, men du fik dine point alligevel.
Jo jeg har adgang til asp. Prøv at se selv her www.whitehat.dk/kongstad/index2.htm om 1 minut har jeg lavet en tekst der hvor jeg ville lave din counter tjek , så kan du selv prøve...
phylox2---> du burde i samme omgang lave lidt bedre sikkerhed på dit site.......jeg har fx. fundet følgende kildekode, som måske kunne bruges til at lure adgangen til admin på dit site:
<% foundUser = FALSE Application.Lock localStats = Application( "Stats" ) FOR k = 0 TO UBOUND( localStats, 2 ) IF localStats( 0, k ) = Session.SessionID THEN foundUser = TRUE EXIT FOR END IF NEXT IF foundUser = FALSE THEN FOR k = 0 TO UBOUND( localStats, 2 ) IF localStats( 0, k ) = "" THEN localStats( 0, k ) = Session.SessionID localStats( 1, k ) = Request.ServerVariables( "REMOTE_ADDR" ) localStats( 2, k ) = NOW() localStats( 3, k ) = Request.ServerVariables( "HTTP_USER_AGENT" ) EXIT FOR END IF NEXT END IF Application("Stats") = localStats Application.UnLock %>
nåååhh, det siger jo lidt om dit site, der er en del steder hvor den giver fejl, og disse kan af en dygtig person blive til "åbne døre" og derved give mulighed for komme ind nogen steder som du måske ikke lige ønsker.......
Jeg siger det bare for at være flink..........når jeg koder laver jeg også altid en sikkerhed i koden som gør at brugeren aldrig vil se fejl, du har du ikke gjort der.......
okay .... det vil jeg tage til eftertragtning, når jeg skal lave v2.0
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
