---
title: "Bra sessionsränkare Med onlinevisning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10386-bra-sessionsränkare-med-onlinevisning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lazerzubb"
published: "2001-07-03T10:54:00.000Z"
updated: "2001-07-03T12:53:00.000Z"
replies: 8
views: 260
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10386-bra-sessionsränkare-med-onlinevisning"
---

# Bra sessionsränkare Med onlinevisning

## #1 — Lazerzubb, 2001-07-03T10:54Z

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.

Permalänk: https://www.webforum.nu/p/10386

## #2 — jonne, 2001-07-03T11:18Z

Helt otestad : <http://www.tilja.net/asp/free_stuff/livestats1_0.asp>

Permalänk: https://www.webforum.nu/p/276481

## #3 — Lazerzubb, 2001-07-03T11:37Z

får fel 
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'UBOUND'
/test/loginfo.asp, line 24

Permalänk: https://www.webforum.nu/p/276482

## #4 — LarsG, 2001-07-03T11:49Z

Du får nog visa mer kod. Jag har ingen lust att ladda hem hela scriptet.

Permalänk: https://www.webforum.nu/p/276483

## #5 — Lazerzubb, 2001-07-03T11:58Z

\<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](http://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
%\>

Permalänk: https://www.webforum.nu/p/276484

## #6 — LarsG, 2001-07-03T12:03Z

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.

Permalänk: https://www.webforum.nu/p/276485

## #7 — Lazerzubb, 2001-07-03T12:19Z

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\>

Permalänk: https://www.webforum.nu/p/276486

## #8 — LarsG, 2001-07-03T12:21Z

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.

Permalänk: https://www.webforum.nu/p/276487

## #9 — Lazerzubb, 2001-07-03T12:53Z

Fungerar nu.
Mvh Lazerzubb

Permalänk: https://www.webforum.nu/p/276488

---

Tråden på webben: https://www.webforum.nu/amne/asp/10386-bra-sessionsränkare-med-onlinevisning