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%>Counter
Developed by Universal Enterprises
Copyright 2002 , Mannai Group