|
<%
dim strlen
dim filestr
Dim myval ' hit counter as appears on page
dim i
dim ScriptObject 'for rewriting csv file
dim myfile 'for rewriting csv file
dim fileloc
fileloc = server.mappath("count.txt")
myval = 0
set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.OpenTextFile(fileloc,1)
filestr = myfile.readline
myfile.Close
set myfile=Nothing
Set myfile= ScriptObject.CreateTextFile(fileloc)
if (isnumeric(filestr)) Then myval =Clng(filestr) +1
myfile.WriteLine(CStr(myval))
myfile.Close
Set myfile= Nothing
Set ScriptObject = Nothing
response.write "~ " & myval
%> |
