% FilePath = Server.MapPath("/asp/visitors.txt") Set ObjFile = CreateObject("Scripting.FileSystemObject") Set ObjStream = ObjFile.OpenTextFile (FilePath, 1) temp = ObjStream.ReadLine+1 ObjStream.Close Set ObjStream = ObjFile.OpenTextFile (FilePath, 2) ObjStream.WriteLine(temp) ObjStream.Close %>
|
|
|||||||||||||||||||||
|
|||||||||||||||||||||