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

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
%>


.

Preguntas similares