Ver Mensaje Individual
  #7 (permalink)  
Antiguo 30/08/2002, 15:04
GTA2
 
Fecha de Ingreso: julio-2002
Mensajes: 106
Antigüedad: 22 años, 9 meses
Puntos: 0
Re: Password: restricción de accesos

Eh aqui como yo le he hecho con sesiones, sin cookies:

pagina inicio.asp parte 1
**********************
<%@LANGUAGE="VBSCRIPT"%>
<!-- El archivo incluido está en el directorio de Scripts. -->
<!-- #include virtual = "/sapi/scripts/conexion.inc" -->
<!--#INCLUDE FILE="SCRIPTS/VALIDACIONES.ASP"-->


<%if request.form("login_text")="" and request.form("clave_text")="" then
%>


<form name="form1" method="post" action="inicio.asp">
<p>

<input type="text" name="login_text" maxlength="10" size="15">
</p>
<p>
<input type="password" name="clave_text" maxlength="8" size="15">
</p>
<p>

<input type="button" name="Ingresar" value="Ingresar" default="true" >
</p>
</form>

<script language="VBScript">
<!--
form1.login_text.focus()
-->
</script>


<%
else


'evita la introducción de sentencias SQL
login=replace(request.form("login_text") ,"'","")
clave=replace(request.form("clave_text") ,"'","")

set conn=conecta()
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from usuario where pk_usu_login='"&login&"' and usu_clave= '"&clave&"'"
rs.Open sqltxt, conn

if (login<>"") and (clave<>"") and rs.EOF then

desconecta(conn)
'si el recordset esta vacio, entonces no existe ese usuario con esa contraseña
'se niega el acceso
' PONEMOS ID_CLI A CERO NINGUN USUARIO TIENE ESTE IDENTIFICADOR

Session("ID_CLI")=Cstr("0")
%>

<script language="VBScript">
<!--
r=msgbox("Prohibido el acceso: no existe el Usuario, o la contraseña es incorrecta. Por favor reingrese los datos",VbCritical,"SAPI")
location.href="inicio.asp"
-->
</script>

<%
else
if login<>"" and clave<>"" then

'Es un usuario autorizado comprobamos el tipo de usuario
'para redirigir a la pagina correspondiente
'se guarda el ID DE ESTE USUARIO EN LA VARIABLE DE SESION



<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<img src="http://pukem.face.ubiobio.cl/sapi/gta2.jpg">

"And Remember...Respect is everything.