|
|
|
Contacto: cjvera@educ.ar |
|
|
|
*<% SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject") 'Editar la ubicación del archivo segun corresponda SET MyCouNtFile = MyFileObject.OpenTextFile(Server.MapPath("contador.txt")) IF NOT MyCountFile.AtEndOfStream THEN 'Lee la catidad de visitas. Visitas = MyCountFile.Readline Response.Write"Esta pagina ha sido visitada " Response.Write(Visitas) Response.Write" veces" End IF 'cierra el objeto MyCountFile.close SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject") SET MyCouNtFile = MyFileObject.CreateTextFile(Server.MapPath("contador.txt")) MyCountFile.WriteLine Visitas+1 MyCountFile.Close %>* |
|
|
|
|