---
title: "Aktiva besökare med Max Online funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38216-aktiva-besökare-med-max-online-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pagenkopf"
published: "2001-08-08T15:16:00.000Z"
updated: "2001-08-08T15:16:00.000Z"
replies: 0
views: 1205
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/38216-aktiva-besökare-med-max-online-funktion"
---

# Aktiva besökare med Max Online funktion

## #1 — Pagenkopf, 2001-08-08T15:16Z

Det här skriptet visar antalet aktiva besökare samt hur många som varit inne på sidan som mest. Värdet för max online lagras i en textfil som skriptet skapar.

Lägg till följande i Global.Asa:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>\<SCRIPT Language="VBScript" Runat="Server"\>

' Skriptet är utvecklat av Olof Lennartsson
' Kontakt: olof@bengt.lennartsson.org

Sub Application_OnStart
Application("online") = 0
End Sub

Sub Session_OnStart

Dim oFe, oFso, oCtf
Dim iMaxOnline

Application.Lock
Application("online") = Application("online") + 1
Application.Unlock

Set oFe = Server.CreateObject("MSWC.Tools")
If oFe.FileExists("maxonline.txt") Then
iMaxOnline = Server.Execute("maxonline.txt")
Else
iMaxOnline = 0
End If
Set oFe=nothing

If Application("online") \> iMaxOnline Then
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
Set oCtf = oFso.CreateTextFile(Server.Mappath("maxonline.txt"), True)
oCtf.WriteLine(Application("online") & ". Rekordet sattes " & date)
oCtf.Close
Set oCtf=nothing
Set oFso=nothing
iMaxOnline = Application("online")
End If

Application.Lock
Application("stats") = "Aktiva besökare: " & Application("online") & "\<br\>Max Online: " & iMaxOnline
Application.Unlock

End Sub

Sub Session_OnEnd
Application.Lock
Application("online") = Application("online") - 1
Application.Unlock
End Sub

\</SCRIPT\>

På alla ställen där du vill skriva ut resultatet skriver du bara:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>\<%=Application("stats")%\>

Skriptet är skrivit i ASP 3.0 och använder komponenterna Tools samt FileSystemObject.

Lycka till!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38216-aktiva-besökare-med-max-online-funktion