Ver Mensaje Individual
  #4 (permalink)  
Antiguo 04/11/2003, 13:18
Avatar de Christatos
Christatos
 
Fecha de Ingreso: julio-2003
Ubicación: Badajoz, Extremadura, España
Mensajes: 194
Antigüedad: 21 años, 9 meses
Puntos: 0
Hola, colega!

Yo hice esto, es más sencillo que usar una base de datos e incluso más ligero a la hora de hacerlo, es decir, más rápido:
Se trata de abrir un archivo de texto y escribir o leer en él. En la propia página de desarrolloweb lo encontré y me sirvió de mucho, ahí te va, buena suerte:

<html>
<head>
<title>Contador de visitas en ASP</title>
<%
'creamos el nombre del archivo
archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "cont.txt"

'conectamos con el FSO
set confile = createObject("scripting.filesystemobject")

'abrimos el fichero para leer el primer carácter
set fich = confile.OpenTextFile(archivo)

'leemos el contenido del fichero
visitas = fich.ReadLine()

'creamos el objeto TextStream
set fich = confile.CreateTextFile(archivo)

'escribimos el número de visitantes incrementado en 1
visitas = visitas + 1
fich.write(visitas)

'cerramos el fichero
fich.close()

'volvemos a abrir el fichero para lectura
set fich = confile.OpenTextFile(archivo)

'leemos el contenido del fichero
visitas = fich.ReadLine()

'imprimimos en la página el contenido del fichero
'response.write(visitas)

'cerramos el fichero
fich.close()
%>
</head>
<body bgcolor="#336600">
<table border=0 width="100%" height="100%">
<tr>
<td align="center" valign="middle" style="color:'#ffffff'; font-size:'18'; font-family:'Arial'; font-style:'Italic'; font-weight:'bold';">
Visitas hasta el momento: <%=visitas%><br>
Usuarios activos:
<%
application.lock
response.write application("num_usuarios")
application.unlock
%>
</td>
</tr>
</table>
</body>
</html>

Si hay dudas... pregunta en [email protected]... Suerte!