Foros del Web » Programación web » ASP Clásico »

validar login, pass y campo logico

Estas en el tema de validar login, pass y campo logico en el foro de ASP Clásico en Foros del Web. la pagina ya me trabaja el login y password ... lo que pasa esque me estan pidiendo que aparte del login y password cheque si ...
  #1 (permalink)  
Antiguo 27/10/2005, 14:16
 
Fecha de Ingreso: mayo-2005
Mensajes: 14
Antigüedad: 8 años, 10 meses
Puntos: 0
Información validar login, pass y campo logico

la pagina ya me trabaja el login y password ...
lo que pasa esque me estan pidiendo que aparte del login y password cheque si puede accesar ala pagina con un campo logico (si el usuario tiene derechos)...
en la base de datos agregue un campo que se llama bodega es logico y quiero que si esta en verdadero deje entrar y sino pues no tiene acceso...
espero me pudieran ayudar aqui les muestro lo que tengo...



<% Dim Msg,Sql %>
<%
Dim Base,Rs,ConnStr
Set Base=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")

ConnStr="Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF; DBQ=" & Server.Mappath("datos/usuinter.dbf")
Base.Open ConnStr

if request.form("enviar")<>"" then

if request.form("login")<>"" and request.form("password")<>"" then

Sql="Select * from "& Server.Mappath("datos/Usuinter.dbf") &" where Upper(login)=Upper('" & request.form("login") &"') and Upper(password)=Upper('" & request.form("password") &"')"

Rs.Open Sql,Base

if Rs.Bof and Rs.Eof then
Msg="El Login o Password estan Equivocados"
Else

response.cookies("aduana")("gcliente")=Rs(2)
response.cookies("aduana")("cnombre")=Rs(3)
response.cookies("aduana")("contacto")=Rs(4)
response.cookies("aduana")("logoemp")=Rs(5)
response.redirect("indexb.asp")
End if

Else
Msg="Debes de indicar tu Login y Password"
End if

End if


gracias por el apoyo
  #2 (permalink)  
Antiguo 27/10/2005, 14:21
Avatar de AlZuwaga
Moderador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.554
Antigüedad: 13 años, 2 meses
Puntos: 534
Uff.. nunca usé debeefes, pero supongo que los campos lógicos serán 0 y 1.
So, sería así:

Sql="Select * from "& Server.Mappath("datos/Usuinter.dbf") &" where Upper(login)=Upper('" & request.form("login") &"') and Upper(password)=Upper('" & request.form("password") &"' and campo_logico = 1)"

(En negrita los agregados)
__________________
...___...
  #3 (permalink)  
Antiguo 27/10/2005, 16:32
 
Fecha de Ingreso: mayo-2005
Mensajes: 14
Antigüedad: 8 años, 10 meses
Puntos: 0
OK ESQUE NO TENIA LA IDEA MUY CLARA DE COMO TRABAJARLO ,ME SIRVIO DE MUCHO TU AYUDA GRACIAS asi quedo trabajarlo con .T.
Sql="Select * from "& Server.Mappath("datos/Usuinter.dbf") &" where Upper(login)=Upper('" & request.form("login") &"') and Upper(password)=Upper('" & request.form("password") &"') and bodega = .T."
gracias " Al "
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 11:35.
SEO by vBSEO 3.3.2