PHP@Sindrem.com - et online opplæringssenter i PHP, ASP, JavaScript og SQL.

'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
%>
</pre>

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

<p>Skrevet av Sindre Mathisen 2001</p>

Spam vil bli anmeldt. Jeg vil se igjennom forslagene før de blir lagt ut.

<< tilbake

Nyttige program