Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/10/2005, 07:37
Avatar de virla
virla
 
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 9 meses
Puntos: 1
ayuda con sistema de usuarios

he sacado de las faq un par de codigos
Encryptar y Desencryptar Password
http://www.forosdelweb.com/showpost....8&postcount=90

sistema de usuarios
http://www.forosdelweb.com/showpost....5&postcount=92

los cual los uni para que funcionen juntos y tambien he realizado el sistema para agregar nuevos usuarios. hasta ahi todo bien.
Bueno el primer problema que tengo es que para generar el password encriptado funciona muy bien pero al querer logearme sale que no es correcto el loguin

el codigo que puse fue


Sub CheckLogin
Dim Conn, cStr, sql, RS, username, userpwd

username = Request.Form("username")
userpwd = Request.Form("userpwd")
userpwd= DecodeStr(userpwd)

Set Conn = Server.CreateObject("ADODB.Connection")
cStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
cStr = cStr & "DBQ=" & Server.MapPath("xxxx.mdb") ";"
Conn.Open(cStr)
sql = "select username from UserTable where username = '" & LCase(username) & "'"
sql = sql & " and userpwd = '" & LCase(userpwd) & "'"
Set RS = Conn.Execute(sql)
If RS.BOF And RS.EOF Then
Error_Msg = "Login Failed. Try Again."
ShowLogin
Else
Session("UserLoggedIn") = "true"
Response.Redirect "protectedpage2.asp"
End If
End Sub

por un lado eso y por el otro le agregado un campo mas en la base de datos que es la categoria de usuario, como ser: Admin, editor, ayudante, etc.
como hago aqui para identificar cual es el tipo de usuario y dependiendo de cual es, me cargue solo aquellas opciones a las que tiene acceso.
ejemplo
opciones de menu, opciones de editar, etc.

espero que puedan entender lo que estoy necesitando.
gracias por la ayuda que puedan ofrecerme
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla