Foros del Web » Programando para Internet » ASP Clásico »

cookies y contraseñas

Estas en el tema de cookies y contraseñas en el foro de ASP Clásico en Foros del Web. Hola a todos los foreros Queria saber si alguien de aqui sabría la manera de crear unas cookies a partir de unos datos de un ...
  #1 (permalink)  
Antiguo 05/01/2004, 18:21
 
Fecha de Ingreso: diciembre-2002
Ubicación: Sevilla (Spain)
Mensajes: 19
Antigüedad: 22 años, 4 meses
Puntos: 0
Pregunta cookies y contraseñas

Hola a todos los foreros

Queria saber si alguien de aqui sabría la manera de crear unas cookies a partir de unos datos de un formulario y que previamente han de ser contrastados a través de una base de datos. En mi caso, ingreso con un login y password en un sitio y quiero crear una cookie que se active cada vez q entre en ese sitio.



MUCHAS GRACIAS DE ANTEMANO
  #2 (permalink)  
Antiguo 06/01/2004, 07:54
 
Fecha de Ingreso: diciembre-2001
Ubicación: Rosario (SF)
Mensajes: 193
Antigüedad: 23 años, 4 meses
Puntos: 0
primero lo que haces es validar si el usuario que se loguea existe

sql="select * from tabla where ususario='" & request("usuario")& "' and password=''" & request("password") & ""
set rs=conn.execute(sql)

' nos fijamos si existe
if not rs.bof then
response.cookies("nomCookie")= "valorCookie"
else
.....
end if


creo que es eso lo que necesitabas, sino cualquier cosa me avisas
__________________
Saludos

Facu
  #3 (permalink)  
Antiguo 06/01/2004, 12:56
 
Fecha de Ingreso: diciembre-2002
Ubicación: Sevilla (Spain)
Mensajes: 19
Antigüedad: 22 años, 4 meses
Puntos: 0
Pregunta

Hola de nuevo, gracias pr tu ayuda

El código es este, a ver q fallo ves tú




<%
Response.Buffer = True

Dim usuario, contrasena

usuario = CStr(Request.form("usuario"))
contrasena = CStr(Request.form("contrasena"))


' miro a ver si la autentificacione es correcta
'creo una sentencia SQL con los datos recibidos
ssql = "select * from usuarios_autentificacion where nombre_usuario='" & request.form("usuario") & "' and clave_usuario='" & request.form("contrasena") & "'"
'conecto y extraigo de la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/user_er/base_autentificacion.mdb")
set RS = Conn.Execute(sSQL)


if not RS.bof then


response.cookies("usuario")= usuario
response.cookies("contrasena")= contrasena


'Como se ha localizado un registro es que ese usuario existe y su contraseña es correcta
'coloco las variables de sesion una vez identificado
session("autentificado") = "si"


'redirecciono a la página de la aplicación
response.redirect "aplicacion.asp"

else
response.redirect "priv_zone.asp"
end if


'cierro la conexion con base de datos
Conn.Close
%>




GRACIAS DE NUEVO
  #4 (permalink)  
Antiguo 06/01/2004, 13:59
 
Fecha de Ingreso: diciembre-2001
Ubicación: Rosario (SF)
Mensajes: 193
Antigüedad: 23 años, 4 meses
Puntos: 0
no se cual es tu pregunta, pero me parece que este link te va a ayudar problema con session

me parece que lo mejor es en lugar de guardar el cookie de usuario y contrasena tendrias que hacer esto

if not rs.bof then
response.cookies("autentificacion")="si"
response.redirect "aplicacion.asp"
else
response.redirect "priv_zone.asp"
end if

y en la pagina aplicacion.asp en el inicio preguntas:
<%if request.cookies("autentificacion")<>"si" then
response.redirect "priv_zone.asp"
else%>
<html>
aca va toda la pagina aplicacion
</html>
<%end if%>

suerte
__________________
Saludos

Facu
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 10:23.