 |
 |
|
 |
|
 |
||||
 |
||||
 |
||||
|
<%
Dim fsoObject
Dim tsObject
Dim readObject
Dim readTextFile
Dim count
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set readObject = fsoObject.GetFile(Server.MapPath("counter.txt"))
Set readTextFile = readObject.OpenAsTextStream(1)
Do While not readTextFile.AtEndOfStream
count = readTextFile.ReadLine
Loop
Set readObject = Nothing
Set readTextFile = Nothing
count = count + 1
Response.write(count)
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("counter.txt"))
tsObject.Write CStr(count)
Set tsObject = Nothing
Set fsoObject = Nothing
%>
|
