Ver Mensaje Individual
  #2 (permalink)  
Antiguo 05/03/2007, 00:16
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 1 mes
Puntos: 88
Re: Duda sobre cookies

la forma en que lo realizo, es mandando los datos del formulario, a la pagina y al validar el loggeo, antes de cargar la pagina pongo la validacion, dentro de ella, creo la cookie, y solo mando llamar lo que ocupo en su momento

Código:
Dim usuario, password, RS
'Guardamos los datos del Form en variables y evitamos la comilla simple
			
usuario = Request.Form("usuario")
password = Request.Form("password")
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM users WHERE id_user = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, cxn
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
	Response.Write "Error en el nombre de usuario. Usuario no existe"
	response.Write("<meta http-equiv=refresh content=3;URL=index.asp />")
Else
	If RS.Fields("pass") = password then 
        ':aplauso: Si el campo de la tabla es igual a nuestra variable, estas logueado.				response.Cookies("private").Domain="aki pones tu dominio"				response.Cookies("private")("nombre")=request.Form("usuario")
		response.Cookies("private")("Usuario")=RS("nombre").value
		response.Cookies("private")("ID")=RS("id_user").value
		response.Cookies("private")("acesso")=1
		response.Cookies("private")("linea")=0
	else
		:policia: Response.Write "Contraseña Incorrecta"
		response.Write("<meta http-equiv=refresh content=2;URL=index.asp />")
	End If
end if
'Limpiamos y cerramos.
RS.Close
Set RS = Nothing
ahora si, ya creada dentro de cualquier parte de la pagina....
Código:
<html>
<body>
<%request.Cookies("private")("nombre")%>
<body>
<html>
y listo, no se si te paresca bien, a mi me funciona.... espero que te sirva