Sistema de LOGIN con usuario y password único
Un sistema de LOGIN con usuario y constraseña. Especial para hacer accesos privados, donde el usuario es uno solo o varios, pero con la misma clave. Es por ese motivo que no usamos una base de datos, sino que el usuario y la clave están dentro del código ASP.
El ejemplo consta de 2 páginas.
La primera es la página con el FORM de login y de validacion de datos.
La segunda es la página restrigida, en la cual se verifica que el usuario halla pasado por el formulario de login evitando de ese modo que se escriba la URL entera en la barra de direccion del navegador.
Archivo: index.asp
<%
if request.form("usuario") <> "" and request.form("clave") <> "" then
user = "soloasp.com.ar"
pass = "corsa"
if (Lcase(request.form("usuario")) = LCase(user)) AND (LCase(request.form("clave")) = Lcase(pass)) then
session("autorizado") = user
response.redirect "privado.asp"
else
mensaje = "Error de logueo"
end if
else
mensaje = "Ingrese usuario y password"
end if
%>
<HTML>
<BODY BGCOLOR="#AAECE6">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;"><B>Ingreso privado para usuarios</B></P>
<HR WIDTH="300"><BR>
<TABLE WIDTH="300" ALIGN="center" BORDER="0" CELLPADDING="2" CELLSPACING="2">
<FORM METHOD="post" ACTION="<%= Request.ServerVariables("SCRIPT_NAME")%>">
<TR><TD ALIGN="right">Usuario:</TD><TD><INPUT TYPE="Text" NAME="usuario"></TD></TR>
<TR><TD ALIGN="right">Clave:</TD><TD><INPUT TYPE="Password" NAME="clave"></TD></TR>
<TR><TD ALIGN="center" COLSPAN="2"><INPUT STYLE="font-family:Verdana; font-size:11px" TYPE="Submit" VALUE="Ingresar"></TD></TR>
</FORM>
</TABLE>
<HR WIDTH="300">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Status: <%=mensaje%></P>
</BODY>
</HTML>
Archivo: privado.asp
<%
if session("autorizado") = "" then response.redirect "index.asp"
%>
<HTML>
<BODY BGCOLOR="#AAECE6">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Bienvenido <B><%= session("autorizado")%></B> </P>
<HR WIDTH="300"><BR>
</BODY>
</HTML>
Miren con detalle el primer archivo (index.asp), que en la parte del código ASP existen dos variables: user y pass que son las que contienen el nombre de usuario y password.
Cambiando el contenido de esas variables, cambiarán el nombre de usuario y password que será validado por el script.
Att. losinformaticos.tk
El ejemplo consta de 2 páginas.
La primera es la página con el FORM de login y de validacion de datos.
La segunda es la página restrigida, en la cual se verifica que el usuario halla pasado por el formulario de login evitando de ese modo que se escriba la URL entera en la barra de direccion del navegador.
Archivo: index.asp
<%
if request.form("usuario") <> "" and request.form("clave") <> "" then
user = "soloasp.com.ar"
pass = "corsa"
if (Lcase(request.form("usuario")) = LCase(user)) AND (LCase(request.form("clave")) = Lcase(pass)) then
session("autorizado") = user
response.redirect "privado.asp"
else
mensaje = "Error de logueo"
end if
else
mensaje = "Ingrese usuario y password"
end if
%>
<HTML>
<BODY BGCOLOR="#AAECE6">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;"><B>Ingreso privado para usuarios</B></P>
<HR WIDTH="300"><BR>
<TABLE WIDTH="300" ALIGN="center" BORDER="0" CELLPADDING="2" CELLSPACING="2">
<FORM METHOD="post" ACTION="<%= Request.ServerVariables("SCRIPT_NAME")%>">
<TR><TD ALIGN="right">Usuario:</TD><TD><INPUT TYPE="Text" NAME="usuario"></TD></TR>
<TR><TD ALIGN="right">Clave:</TD><TD><INPUT TYPE="Password" NAME="clave"></TD></TR>
<TR><TD ALIGN="center" COLSPAN="2"><INPUT STYLE="font-family:Verdana; font-size:11px" TYPE="Submit" VALUE="Ingresar"></TD></TR>
</FORM>
</TABLE>
<HR WIDTH="300">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Status: <%=mensaje%></P>
</BODY>
</HTML>
Archivo: privado.asp
<%
if session("autorizado") = "" then response.redirect "index.asp"
%>
<HTML>
<BODY BGCOLOR="#AAECE6">
<P ALIGN="center" STYLE="font-family:Verdana;font-size:12;color:#336699;">Bienvenido <B><%= session("autorizado")%></B> </P>
<HR WIDTH="300"><BR>
</BODY>
</HTML>
Miren con detalle el primer archivo (index.asp), que en la parte del código ASP existen dos variables: user y pass que son las que contienen el nombre de usuario y password.
Cambiando el contenido de esas variables, cambiarán el nombre de usuario y password que será validado por el script.
Att. losinformaticos.tk
No hay comentarios.