Ver Mensaje Individual
  #2 (permalink)  
Antiguo 26/06/2003, 06:30
Avatar de Fr@Nc3$c0
Fr@Nc3$c0
 
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 23 años
Puntos: 1
He buscado esto...

Hola, encontré esto, mira si te sirve y te lo configuras:

Para crear el Contador se tiene que crear un fichero numtot.txt o como lo quieras llamar y dentro del fichero poner un número 1 o 0 o donde quieras empezar el contador



<HTML>

<HEAD>
<TITLE>Contador</TITLE>
</HEAD>



<BODY LINK=#000000 VLINK=#000000 TOPMARGIN=5 LEFTMARGIN=5>


<p>&nbsp;</p>
<p align="center"><font face="Comic Sans MS, Arial"><i>Contador</i></font></p>

<p>&nbsp;</p>
<p><BR>
<%
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
%>

<p>&nbsp;</p>
<p>&nbsp;</p>
<TABLE WIDTH=760px BORDER=0 CELLPADDING=0 CELLSPACING=0 HEIGHT=17px BGCOLOR=#DFDFDF>
<TR>
<TD> <FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Total de visites:</B></FONT></TD>
</TR>
</TABLE>


<TABLE WIDTH=760px BORDER=0 CELLPADDING=0 CELLSPACING=0 HEIGHT=17px>

<TR>

<TD WIDTH=20px BGCOLOR=#FFFFCF></TD>
<TD WIDTH=40px BGCOLOR=#FFFFEF></TD>
<TD WIDTH=300px BGCOLOR=#FFFFEF><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><%
= Cuenta %> Visitas</B></FONT></TD>
<TD WIDTH=400px BGCOLOR=#FFFFCF></TD>
</TR>
</TABLE>


</body>
</html>


Saludos!
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...