|
Este programa permite validar un usuario que entre en nuestra web. La validación se hace mediante una sesion, si el usuario es correcto se le habre una sesion y en cada página que queremos que sea privada se mirará si la sesión esta abierta para permitir el acceso.
LOGIN.ASP
Primero comprobar si el FORM esta vacio
<%
IF Request.Form("user")="" AND request.form("pass")="" THEN
%>
CÓDIGO HTML, FORMULARIO, ETC...
si introducimos el usuario y el login...
<%
ELSE
'Session("usuario")=request.form("nom1")
'Session("clave")=request.form("nom2")
Set obj_Connection = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.Recordset")
strSQL_N = "SELECT * FROM users WHERE user ='" & Request.Form("user") & "' AND pass = '" & Request.Form("pass") & "';"
obj_Connection.Open "conexionabd","",""
rs.Open strSQL_N, obj_Connection,2,2
IF NOT(rs.BOF AND rs.EOF) THEN
Dim aceptado
Session("aceptado")="SI"
Response.redirect "OK.asp"
ELSE
response.redirect "login.asp"
END IF
END IF
%>
En las páginas donde se necesite validación hay que poner:
<% IF session("aceptado")="SI" THEN %>
Contenido de la pagina <HTML><HEAD> ....</HTML>
<%
ELSE
response.redirect "login.asp"
END IF
%>
Este articulo ha sido cedido por http://xlweb.freemagix.com/
|
Microsoft explorer 6.0 