 |
You are
visitor no<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
TestFile = Server.MapPath("../logs/counter.txt")
Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False)
iCount = Instream.Readline
iCount = Clng(iCount) + 1
Instream.Close
Set Instream=Nothing
Set OutStream= FileObject.CreateTextFile (TestFile, True, False)
OutputString = iCount
OutStream.WriteLine OutputString
Set OutputString=Nothing
%> <%=icount%>
Developed by
Universal Enterprises
Copyright © 2002 , Mannai Group
|