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

Determinar tipo de usuario al conectarse

Estas en el tema de Determinar tipo de usuario al conectarse en el foro de ASP Clásico en Foros del Web. Hola: Tengo en una base de datos en SQL una tabla con tres campos: Login, Password y Autorizado, este ultimo campo es Boolen. Necesito que ...
  #1 (permalink)  
Antiguo 13/12/2002, 15:23
zng
 
Fecha de Ingreso: diciembre-2002
Ubicación: Holguin
Mensajes: 109
Antigüedad: 21 años, 6 meses
Puntos: 0
Pregunta Determinar tipo de usuario al conectarse

Hola:

Tengo en una base de datos en SQL una tabla con tres campos:

Login, Password y Autorizado, este ultimo campo es Boolen.

Necesito que un usuario se conecte a una pagina donde se introduzca login y passw y si ese Login y pass son correctos y el campo Autorizado es "True" el sistema lo mande a una pagina y si es "False" lo mande a otra.

Ya tengo implementado como hacer login y passw lo que no se es como:

1. Determinar el estado del valor del campo (true o false) al usuario logearse.

Trabajo con Macromedia dreamweaver Ultradev 4.0 y BD en SQL

Saludos

zng
__________________
Zng
  #2 (permalink)  
Antiguo 13/12/2002, 15:33
Avatar de bakanzipp  
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 22 años, 7 meses
Puntos: 0
if rs("autorizacion")=true then
response.redirect "pagina bienvenida"
else
response.write "acceso denegado"
end if
  #3 (permalink)  
Antiguo 14/12/2002, 18:42
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Ni siquiera necesitas un campo en la base de datos y estar escribiendo en el , te vale con crear una variable de sesion o una cookie.

Esto iria en cada una de las paginas a proteger:

<%
Response.Buffer=True
if Session("nombre")="" then Session("nombre")="Sin Identificar"
if Session("ID")=0 then
Response.redirect("noaccess.asp")
end if
%>


Y esto seria el codigo de autentificacion:


<%
Dim oConn, rs, SQL, nombre, password

'Recogemos el formulario
nombre=Trim(Request.Form("Nombre"))
password=Trim(Request.Form("Password"))

'Response.write(nombre)
'Response.write(password)

'Si no lo ha enviado, es decir no hay nada en estas variables
'le presentamos el formulario

if nombre="" then
response.redirect("default.asp")
else

'Validamos su identidad
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb")
SQL="SELECT * FROM Usuarios WHERE nombre='"&nombre&"' AND Password='"&password&"'"

'Ejecutamos consulta
rs.open SQL,oconn,1,2

if rs.EOF then

'No existe ese usuario con esa contraseña
'Así que le negamos el acceso
' PONEMOS ID A CERO --&gt; NINGUN USUARIO TIENE ESTE IDENTIFICADOR
Session("ID")=Cint(0)
Response.Write("Lo siento, no existe ese usuario/contraseña.")
else

'Le mandamos a la pagina de bienvenida
' SALVAMOS EL ID DE ESTE USUARIO EN LA VARIABLE DE SESION
Session("ID")=CInt(rs.Fields("ID_Usuario"))
Session("nombre")=rs.Fields("nombre")
Response.Redirect("default.asp")
end if

end if
%>
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
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




La zona horaria es GMT -6. Ahora son las 13:12.