|
© Copyright Hugo M�ndez – 25/07/2000
|
||||
      |
Contador
<%
Set FileObject = Server.CreateObject(“Scripting.FileSystemObject”)
strFichero = Server.MapPath(“numtot.txt”)
Set InStream = FileObject.OpenTextFile (strFichero, 1, false )
Cuenta = Trim(InStream.ReadLine)
Cuenta = Cuenta + 1
Set OutStream = FileObject.CreateTextFile (strFichero, True)
OutStream.WriteLine(Cuenta)
InStream.close
Set InStream = Nothing
OutStream.Close
Set OutStream = Nothing
Set FileObject = Nothing
%>
| Total de visitas: |
| <% = Cuenta %> Visitas |