Restringir paginas a usuarios

14/07/2004 - 18:28 por alfredoa4 | Informe spam
Que tal grupo, soy un novato en esto del ASP pero esto intentando hacer mi
primera pagina web, y quiero ver si me puedan ayudar, ya que he estado
buscando manuales y ejemplos que me puedan ayudar pero ninguno me resuelve
mi duda, me he bajado este ejemplillo para iniciar session checando el
usuario y el password el cual funciona perfectamente, pero ahora mi problema
es el siguiente,
en mi sitio tengo inicio, pagina1, pagina2, pagina3, pagina4 y he
creado la tabla de access para checar los usuarios, en esta tabla tengo
usuario, password y nivel de usuario
lo que quiero es que cuando se registre el usuario tenga acceso a ciertas
paginas dependiendo su nivel de usuario, es decir,
nivel 1 tendra acceso a pagina 1
nivel 2 tendra acceso a pagina 1 y pagina 3
nivel 3 tendra acceso a pagina 2 y pagina 3
nivel 4 tendra acceso a todas las paginas
alguien me podria decir como se hace esto de antemano muchas gracias!!!!!

<%
Dim usuario, password, oConn, RS
if request.form("usuario")="" or request.form("password")="" then
response.redirect "pagina1.asp"
else
usuario= Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","'")
password = Replace(password,"'","'")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="&Server.MapPath("./BD/uss.mdb")
sql="SELECT * FROM usuarios WHERE usuario = '"&usuario&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql,oConn
if (RS.EOF = true) then
Response.Write "Ese usuario no existe"
elseif RS.Fields("password") = password then
Response.Write "Te logueaste con exito...Bienvenido <b>"&usuario&"</b>"
else
Response.Write "Esta contraseña no concuerda con el usuario ingresado"
end if
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End if
%>
 

Leer las respuestas

#1 eperez76
19/07/2004 - 21:01 | Informe spam
Te recomiendo usar el objeto session que pertenece a ASP
es comodo y sencillo de usar...
en esta variable puedes coloca la informacion necesaria
para identificar a que paginas tiene acceso...
saludos
eperez76

Mostrar la cita
intentando hacer mi
Mostrar la cita
que he estado
Mostrar la cita
ninguno me resuelve
Mostrar la cita
session checando el
Mostrar la cita
pero ahora mi problema
Mostrar la cita
pagina4 y he
Mostrar la cita
esta tabla tengo
Mostrar la cita
acceso a ciertas
Mostrar la cita
muchas gracias!!!!!
Mostrar la cita
="" then
Mostrar la cita
= '"&usuario&"'"
Mostrar la cita
<b>"&usuario&"</b>"
Mostrar la cita
usuario ingresado"
Mostrar la cita

Preguntas similares