8 svar · 243 visningar · startad av Lazerzubb
Nån som vet någon kod eller något ställe på webben där man kan skaffa sig en sådan typ hur många som besöker websidan just nu och vilken sida de besöker.
------------------
"I like my martini shaken not steard"
Helt otestad : http://www.tilja.net/asp/free_stuff/livestats1_0.asp
------------------
Varför får inte jag köra småsten när Tommy Körberg?
får fel
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'UBOUND'
/test/loginfo.asp, line 24
------------------
Helvetet är den plats där engelsmännen lagar maten, Italienarna dirigerar trfiken och tyskarna står för underhållningen.
Du får nog visa mer kod. Jag har ingen lust att ladda hem hela scriptet.
------------------
essentitia preter non sans multiplicandum
<HTML>
<!-- #INCLUDE VIRTUAL="/test/loginfo.asp" -->
</HTML>
//
<%
' #################################################
' # #
' # LiveStats v 1.0 #
' # Copyright (c) 2001. Tilja, tilja.net #
' # #
' # This application is freeware for #
' # non commecial sites as long as #
' # this copyright notice remains #
' # intact. #
' # #
' # For more information please visit #
' # www.tilja.net or contact me on #
' # info@tilja.net #
' # #
' #################################################
foundUser = FALSE
Application.Lock
statistik = Application( "Stats" )
FOR k = 0 TO UBOUND( statistik, 2 )
' ### OM ANVÄNDAREN FINNS ###
IF statistik( 0, k ) = Session.SessionID THEN
IF TITLE \<\> "" THEN
statistik( 1, k ) = TITLE
ELSE
statistik( 1, k ) = Request.ServerVariables( "SCRIPT_NAME" )
END IF
statistik( 4, k ) = Request.ServerVariables( "HTTP_USER_AGENT" )
foundUser = TRUE
EXIT FOR
END IF
NEXT
IF foundUser = FALSE THEN
FOR k = 0 TO UBOUND( statistik, 2 )
' ### OM ANVÄNDAREN EJ FINNS ###
IF statistik( 0, k ) = "" THEN
statistik( 0, k ) = Session.SessionID
IF TITLE \<\> "" THEN
statistik( 1, k ) = TITLE
ELSE
statistik( 1, k ) = Request.ServerVariables( "SCRIPT_NAME" )
END IF
statistik( 2, k ) = Request.ServerVariables( "REMOTE_ADDR" )
statistik( 3, k ) = TIME()
statistik( 4, k ) = Request.ServerVariables( "HTTP_USER_AGENT" )
EXIT FOR
END IF
NEXT
END IF
Application("Stats") = statistik
Application.UnLock
%>
------------------
Helvetet är den plats där engelsmännen lagar maten, Italienarna dirigerar trfiken och tyskarna står för underhållningen.
Man kanske gör någon initiering av arrayen statistik i Application_Onstart så att du behöver starta om webservern?
Du kan ju kolla om det finns någon speciell global.asa medskickad.
------------------
essentitia preter non sans multiplicandum
Det finns det.
Måste den liggai wwwroot?
//
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
DIM Stats( 4, 100 )
Application( "Stats" ) = Stats
END SUB
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
Application.Lock
statistik = Application( "Stats" )
For i = 0 to UBOUND( statistik, 2 )
IF statistik( 0, i ) = Session.SessionID THEN
statistik( 0, i ) = ""
EXIT FOR
END IF
NEXT
Application( "Stats" ) = statistik
Application.UnLock
END SUB
</SCRIPT>
------------------
Helvetet är den plats där engelsmännen lagar maten, Italienarna dirigerar trfiken och tyskarna står för underhållningen.
Jo, det är enklast om den ligger där.
Det går att sätta upp så att den kan ligga på någon annan plats, men det kommer jag inte ihåg hur man gör.
------------------
essentitia preter non sans multiplicandum
Fungerar nu.
Mvh Lazerzubb
------------------
Helvetet är den plats där engelsmännen lagar maten, Italienarna dirigerar trfiken och tyskarna står för underhållningen.