En liten enkel räknare (hade tråkigt, så jag gjorde en klass):
Class Counter
Private objFSO
Private objTS
Private intHits
Function GetHits()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If NOT objFSO.FileExists(Server.MapPath("counter.txt")) Then
GetHits = 0
Else
Set objTS = objFSO.OpenTextFile(Server.MapPath("counter.txt"))
intHits = CInt(objTS.ReadLine)
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
GetHits = intHits
End If
Set objFSO = Nothing
End Function
Function UpdateHits(intHits)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If NOT objFSO.FileExists(Server.MapPath("counter.txt")) Then
Set objTS = objFSO.CreateTextFile(Server.MapPath("counter.txt"))
Else
Set objTS = objFSO.OpenTextFile(Server.MapPath("counter.txt"), 2)
End If
objTS.Write(intHits)
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
End Function
End Class
Set objCounter = New Counter
objCounter.UpdateHits(objCounter.GetHits() + 1)
Response.Write("Hits: " & objCounter.GetHits())
Set objCounter = Nothing
Ojdå... Nu när jag gjorde en klass kanske den inte blev så "enkel", men men. ;)
Hur som helst, den skapar en textfil som heter counter.txt och uppdaterar antalet besökare i den filen. :)
