Ver Mensaje Individual
  #1 (permalink)  
Antiguo 06/01/2005, 06:48
Avatar de Prefontaine
Prefontaine
 
Fecha de Ingreso: agosto-2004
Mensajes: 313
Antigüedad: 20 años, 8 meses
Puntos: 0
Restringir acceso a usuarios que no són administradores

Tengo este codigo el problema es que acceden todos los usuarios a la seccion.

<%else
Username=replace(request.form("Username"),"'","")
password=replace(request.form("password"),"'","")
%>
<!-- #INCLUDE FILE="../conexiones/conexion2.asp" -->
<%
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from tblAuthor where Username='"&Username&"' and password= '"&password&"'"
rs.Open sqltxt, conn2
if not rs.eof then

if rs("Username")=Username and rs("password")=password then

session("autorizacion")=1
response.redirect "crear_equipo.asp"
end if
else
session("autorizacion")=-1

end if
rs.close
set rs=nothing
conn2.close
set conn2=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
response.redirect "login.asp?msg=Usuario%20o%20password%20incorrecto s"
end if

end if%>

Y este es el codigo que recoge los datos en otra pagina
<% language="vbscript"%>
<% if session("autorizacion")<>1 then
response.redirect "../../admin/login.asp"
end if%>