Ver Mensaje Individual
  #5 (permalink)  
Antiguo 08/12/2009, 21:01
alexgonzalez
 
Fecha de Ingreso: enero-2009
Mensajes: 112
Antigüedad: 16 años, 3 meses
Puntos: 0
Respuesta: Mi contador se reinicia

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
%>

<!--
Count.asp file is added to this page with Server Side Include and
Session Variable is used to display the current user count.
Include File="Count.asp"

AQUI IMPRIMO EL TOTAL DE VISTAS-->
<%=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"><!--#include file="cont_visit.asp"--></font></div>


<!--<div align="right"><span class="style10">Eres el visitante nº:</span> <span class="style4"><%=application("visitas")%></span> <span class="style10">desde el dia</span> <span class="style4"><%=application("fecha")%></span></div>-->


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