Mi contador se reinicia

alexgonzalez · #1 (**permalink**) 06/12/2009, 17:43

Buenas tardes, un saludo a toda la comunidad.
Actualmente tego una web que me refleja en pantalla la cantidad de usuarios que la visitan, pero cuando se reinicia el servidor estos datos se ponen en cero, lo que quiero saber es si hay alguna forma de que esto no ocurra, como puedoo hacer para que mantenga los datos aun cuando se reinici el serv. estoy trabajando con asp.
Muchas gracias a quienes me puedan ayudar.

AlZuwaga · #2 (**permalink**) 06/12/2009, 21:23

Seguramente estás usando variables aplicattion. Sería lo mismo que hacés actualmente pero, en vez de almacenar los datos allí, volátilmente, lo harías en una base de datos o un archivo de texto.

Valery-Net · #3 (**permalink**) 07/12/2009, 05:20

Correcto lo que te menciona el compañero AlZuwaga, al almacenar las el valor de las visitas en variables de aplicación esta se reiniciarán cuando el servidor también sea reiniciado o cuando se reinicie el pool de aplicaciones asignado a tu web

alexgonzalez · #4 (**permalink**) 07/12/2009, 08:44

gracias compañeros me voy a poner en ello, cualquier cosa les escribo nuevamente, gracias de nuevo.

alexgonzalez · #5 (**permalink**) 08/12/2009, 21:01

compañeros les indico el codigo que estoy empleando, porfa verifiquenlo a ver porque no me funciona. Gracias y disculpen la molestia...
esta es la pagina de contador----

<html>

<head>
<title>visitas</title>
</head>

<body>
<%

' Every time we count a user we will put the
' latest count value in the session variable "TotalCount"
' If Session Variable TotalCount is empty
' that mean this user is new and session variable
' But if Session Variable already has the value
' Then we will not count this user again.

If IsEmpty(Session("TotalCount")) Then
Call CountThisUser
End If

' It is good practice to use Functions and Sub procedure
' Because all the variables being used in sub or function
' are automatically destroyed when Sub or Function finish
' processing the code.
' So you can use these Variables again in other functions
Sub CountThisUser()

Dim objFSO ' FileSystemObject
Dim objTS ' TextStreamObject

Dim strFileName ' Counter text File Name
Dim intOldCount
Dim intNewCount

' Specify the Text file to store count value
' Because We Set Create = True
' File will be Created if it does not exist

strFileName = Server.MapPath("Contador.txt")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strFileName) Then
Set objTS = objFSO.OpenTextFile(strFileName, 1)
Else
Set objTS = objFSO.CreateTextFile(strFileName, True)
End If

If Not objTS.AtEndOfStream Then
intoldCount = objTS.ReadAll
Else
intoldCount = 0
End If

objTS.Close

intNewCount = intOldCount + 1

' Store the value of intNewCount in Session Variable
' So you can use it on different pages
Session("TotalCount")= intNewCount

' Write intNewCount value back to text file

Set objTS = objFSO.CreateTextFile(strFileName, True)
objTS.Write intNewCount

objTS.Close

Set objFSO = Nothing
Set objTS = Nothing
End Sub
%>


<%=Session("TotalCount")%>

</BODY></HTML>

***************y este es el codigo que se carga en mi home**************

<div align="CENTER"><span class="style13">TOTAL VISITAS:</span><font face="Geneva, Arial, Helvetica, sans-serif" color="#FFFFFF" size="2"></font></div>



********************GRACIAS ESPERO ME PUEDAN AYUDAR**********

alexgonzalez · #6 (**permalink**) 14/12/2009, 17:49

gracias colegas ya esta listo lo hice con una base de datos y me funciona al pelo