<%
filename = Server.MapPath("count/counter.dat")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream= FileObject.OpenTextFile (filename, 1, False, False)
count = Instream.Readline
Set Instream = Nothing
count = count + 1
counts = Cstr(count)
for i=1 to Len(counts)
counts1 = mid(counts,i,1)
//if counts1 <> "" then
%>
<%
//End If
next
//Response.Write count
Set OutStream = FileObject.CreateTextFile (filename, True, False)
OutStream.WriteLine count
Set OutStream = Nothing
%>
|