% dim fso, f, visitors Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set fso = CreateObject("Scripting.FileSystemObject") Set theFile = fso.OpenTextFile(Server.MapPath("demo/o/" & "visitor.txt"), ForReading, False) Do While theFile.AtEndOfStream <> True visitors = thefile.readline loop visitors = visitors + 1 thefile.close %>
|
||||
|