Cookies

Owen-Bonilla · #1 (**permalink**) 21/08/2002, 16:44

Este es un código sencillo, pero básico para todos aquellos que aún no comprendan bien el manejo de cookies.

Accesos de usuarios con Fecha, Hora y Número de Accesos

PD: La primer ves que lo ejecuten no aparecera nada, pero al actulizar funciona. Porqué?, porqué la primer ves es su primes acceso.

Código:

 &lt;% IF (Request.Cookies(&quot;Num_Accesos&quot;)=&quot;&quot;) THEN
       Response.Cookies(&quot;Num_Accesos&quot;)=1
       Primera_Vez = True
   ELSE
       Response.Cookies(&quot;Num_Accesos&quot;)=Request.Cookies(&quot;Num_Accesos&quot;)+1
       Fecha_Ant = Request.Cookies(&quot;Fecha&quot;)
       Hora_Ant =  Request.Cookies(&quot;Hora&quot;)
       Primera_Vez = False
  END IF 
   Response.Cookies(&quot;Fecha&quot;)=Date 
   Response.Cookies(&quot;Hora&quot;)=Time %&gt;

&lt;HTML&gt;

&lt;HEAD&gt; 
  &lt;TITLE&gt; Accesos de Usuario&lt;/TITLE&gt; 
&lt;/HEAD&gt;

&lt;BODY&gt;
  &lt;% IF NOT Primera_Vez THEN %&gt;
      Fecha y hora de tu último acceso: 
  &lt;%  =Fecha_Ant %&gt; , &lt;% =Hora_Ant %&gt; &lt;BR&gt;
  Número de accesos que has hecho a esta página Web: 
  &lt;%  =Request.Cookies(&quot;Num_Accesos&quot;) %&gt;&lt;BR&gt;
  &lt;% END IF %&gt; 
  
&lt;/BODY&gt;

&lt;/HTML&gt;

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]

ElAprendiz · #2 (**permalink**) 21/08/2002, 17:03

Gracias Owen ..es uno de mis puntos debiles...pero debiste postearlo en las FAQS..o Tips Mejor

Saludos compadre

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

Owen-Bonilla · #3 (**permalink**) 21/08/2002, 18:02

Si kompadre, esto iba en las FAQ's, pero pues como ahorita ando un poco metido en Cokies pyes quiero poner otros tips aqui en este POST ;)

Hacer caducar una Cookie
Response.Cookies("Tu_Cookie").Expires=&q uot;1/1/1990"

Hacer caducar una Cookie en determinada fecha
<% For Each Galleta in Response.Cookies

Response.Cookies("Tu_Cookie").Expires=&q uot;1/1/1990"

Next %>

Guardar Valores en Cookies
Response.Cookies("tu_Cookie")="Valo r"

Ej:

Response.Cookies("ColorPreferido")=&quot ;Azul"
Response.Cookies("Pais")="Mexico&qu ot;

Usando Claves

Response.Cokkies("NOMBRE")("CLAVE&q uot;)="VALOR"

Response.Cokkies("Color")("Fondo&qu ot;)="Azul"
Response.Cookies("Color")("Texto&qu ot;)="Blanco"

En este ultimo caso al realizarse la comunicacion existira la siguiente linea en el encabezado:

Código:

Set-cookie:COLOR=FONDO=Azul&amp;TEXTO=BLANCO

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]

almaluz · #4 (**permalink**) 21/08/2002, 18:05

¡¡¡Bien owen!!!

Limpio y sencillo.

He intendado acoplar un par de instrucciones para que no me contabilice las veces que el usuario entre a la misma página en el mismo día asi:

Cita:

<% IF (Request.Cookies("Num_Accesos")="&q uot;) THEN
Response.Cookies("Num_Accesos")=1
Primera_Vez = True
ELSE
If Date<>Request.Cookies("Fecha") Then

Response.Cookies("Num_Accesos")=Request. Cookies("Num_Accesos")+1
End If
Fecha_Ant = Request.Cookies("Fecha")
Hora_Ant = Request.Cookies("Hora")
Primera_Vez = False
END IF
Response.Cookies("Fecha")=Date
Response.Cookies("Hora")=Time %>

Pero no rula

Donde he metido la pata?

Saludos Owen

Owen-Bonilla · #5 (**permalink**) 21/08/2002, 18:19

que tal almaluz
porque no intentas ponerlo al principio ;) , aqui lo que le dices es que si la Cookie FECHA es diferente A "X" se ejetute ....

pero pues como veras, la Cookie fecha en esas lineas aún no se GUARDA ;)

Checa eso, si no con gusto entre los dos intentamos

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]

almaluz · #6 (**permalink**) 22/08/2002, 17:22

Hola owen, como va eso?

Tal y como comentas, lo que pretendía al poner ela linea es eso precisamente.
Si la cookie fecha ( almacenada en el cliente) es distinta de la fecha actual (DATE) entonces escribe la cokie en el cliente sumandole 1

En el caso de que la cookie fecha del cliente, sea igual a la fecha actual, no enviamos la cookie actualizada, por que la que hay en el ordenador del cliente la hemos enviado hoy.

.. me sigues...

De todas formas voy a releerme tu mensaje a ver si me entero de lo que me dices. (el verano me tiene

)

Un Saludo amigo.

¡¡¡ Buen verano por tu tierra espero ¡¡¡

taka · #7 (**permalink**) 30/08/2002, 19:07

Hola Almaluz

En general para comparar fechas utilizo la funcion CDATE para asegurarme que lo que estoy comparando sean dos fechas.
Lo mismo hago con numeros pero utilizo la funcion CINT.

CDATE (cadena)
Recibe como argumento una cadena alfanumérica representando una fecha y la convierte en un dato de subtipo DATE.

Me permiti modificar el codigo que mostraste.
Este script en mi PC funciona correctamente.

Código:

  &lt;% 
IF (Request.Cookies(&quot;Num_Accesos&quot;)=&quot;&quot;) THEN

	'si la Cookie Num_Accesos esta vacia es la primera vez que ingresa
	'asi que guardo el valor 1 en Num_Accesos y la fecha y hora del registro

	Response.Cookies(&quot;Num_Accesos&quot;)=1
	Response.Cookies(&quot;Fecha&quot;)=Date 
	Response.Cookies(&quot;Hora&quot;)=Time
	Primera_Vez = True

ELSE
	'caso contrario el usuario ya habia ingresado alguna ves
	'entonces reviso cual habia sido la ultima fecha
	'lo hago ahora porque despues lo voy a modificar

	Fecha_Ant = Request.Cookies(&quot;Fecha&quot;)
	Hora_Ant = Request.Cookies(&quot;Hora&quot;)

	If Date &lt;&gt; CDATE(Request.Cookies(&quot;Fecha&quot;)) Then 
		'si hoy no ingreso entoces sumo uno al Num_Accesos
		'y guardo la fehca y hora del momento
		Response.Cookies(&quot;Num_Accesos&quot;)= Request.Cookies(&quot;Num_Accesos&quot;)+1
		Response.Cookies(&quot;Fecha&quot;)=Date 
		Response.Cookies(&quot;Hora&quot;)=Time
	End If 
	Primera_Vez = False
END IF 
%&gt;

saludos
Gustavo

almaluz · #8 (**permalink**) 31/08/2002, 19:15

Hola Taka.

Lo intentaré tal y como dices; seguro que funciona ;)

Pero eso será ..... despues de la semana sabática de vacaciones que me voy a tomar.
Estaré por Benalmádena.

Saludos y gracias de nuevo :P

Juan.