Ver Mensaje Individual
  #2 (permalink)  
Antiguo 02/09/2004, 09:49
Melonaxo
 
Fecha de Ingreso: junio-2004
Mensajes: 29
Antigüedad: 20 años, 10 meses
Puntos: 0
hola

usa cookies....

1º haces la pagina de entrada

1-introduce pass
2-introduce user

el action lo diriges a la pagina principal del site ejemplo aplicancion.asp

2º en aplicancion.asp
grabamos el usuario en una cookie para usarlo mas adelante
<%
usuario = request.form("usuario")
contrasena = request.form("contrasena")

response.cookies("usuario")=usuario
response.cookies("usuario").Expires= Date+1
response.Cookies("usuario").Domain = ".aaaaa.com"

%>

<%

set rs=Server.CreateObject("adodb.Recordset")
connectme="DSN=tuDB"
sqlstmt = "SELECT * from Claves WHERE usuario='" & usuario & "' and contrasena='" & contrasena & "'"
rs.open sqlstmt, connectme
If rs.eof then
response.redirect "default.asp?errorusuario=si"
else
end if
%>
comprobamos que el user y la pass coinciden y si no es asi lo devolvemos al formulario.

Para el resto de paginas le metes un inlude
<!--#include file="nivel1.asp"-->
-estoy significa que solo podran entrar los ususarios de nivel1


pagina nivel1.asp
<% usuario = request.cookies("usuario") %>
<%

set rs=Server.CreateObject("adodb.Recordset")
connectme="DSN=tuDB"
sqlstmt = "SELECT * from Claves WHERE usuario='" & usuario & "'"
rs.open sqlstmt, connectme
If rs.eof then
response.redirect "default.asp?errorusuario=si"
response.end
Else
end if
nivel=rs("nivel")
if nivel <> "1" then
response.redirect "default.asp?errorusuario=si"
else
end if
%>


Ejemplo de usuarios nivel2 y nivel1 para tener acceso a la pagina
nivel12.asp

<% usuario = request.cookies("usuario") %>
<%

set rs=Server.CreateObject("adodb.Recordset")
connectme="DSN=pimeinmobiliaria.com.inmobi2"
sqlstmt = "SELECT * from Claves WHERE usuario='" & usuario & "'"
rs.open sqlstmt, connectme
If rs.eof then
response.redirect "default.asp?errorusuario=si"
response.end
Else
end if
nivel=rs("nivel")
if nivel = "1" or nivel = "2" then
else
response.redirect "default.asp?errorusuario=si"
end if
%>


es muy sencillo de usar.. si tienes dificultades pregunta.