|
<%
dim filename
dim fso2
dim ts
dim objfile
dim hitcount
filename="d:\HitCount7.DAT"
set sfo = CreateObject("Scripting.FileSystemObject")
set fso2 = CreateObject("Scripting.FileSystemObject")
if not fso2.FileExists(filename) then
fso2.CreateTextFile(filename)
end if
set objfile=fso2.GetFile(filename)
set ts=objfile.OpenAsTextStream(1,-2)
if (ts.AtEndOfStream) then
hitcount=1
else
hitcount=ts.ReadLine
hitcount=hitcount+1
end if
ts.Close
set ts=objfile.OpenAsTextStream(2,-2)
ts.WriteLine(hitcount)
ts.Close
response.Write hitcount
%>
|
