Teller med tekstfil

<%@Language="VBScript"%>

<%Session.LCID=1033

'En fancy funksjon som leser et tall fra en fil, øker det og
'skriver over det gamle'
'viktig å huske skriverrettigheter'
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits

Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

 CounterFile = Server.MapPath ("counter.txt")
 Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1,True)

 If Not ReadCounterFile.AtEndOfStream Then
 CounterHits = Trim(ReadCounterFile.ReadLine)
 If CounterHits = "" Then CounterHits = 0
 Else
 CounterHits = 0
 End If

 ReadCounterFile.Close
 Set ReadCounterFile = Nothing

 CounterHits = CounterHits + 1

 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile,True)
 WriteCounterFile.WriteLine(CounterHits)
 WriteCounterFile.Close
 Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing
%>

Her det viktig å lage et txt-dokument som heter counter.txt og som har skriverettigheter til alle.

Skrevet av Sindre Mathisen 2001