% Dim Visitantes, Fs, Visit Visitantes = Server.MapPath ("contador") + "/gtbook.txt" Set fs = Server.CreateObject("Scripting.FileSystemObject") Set Visit = fs.OpenTextFile(Visitantes, 1, FALSE, FALSE) Visit.SkipLine N = Visit.ReadLine + 1 Session("Cont") = N Visit.Close Set Visit = fs.OpenTextFile(Visitantes, 2, FALSE, FALSE) Visit.WriteLine("Visitantes - Página Inicial:") Visit.Write(N) Visit.Close Set Visit = Nothing Set fs = Nothing %>
|
Seja Bem Vindo |
|||||||||||
|
|||||||||||