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!
------------------
Ordning är bara för idioter, - Genier hanterar även kaos
[Redigerat av Pagenkopf den 08 aug 2001]
[Redigerat av Pagenkopf den 08 aug 2001]