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 abre 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...
<%
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
%> nas 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
%>
Usuarios que han visto este tema también han visto...
- Abrir una ventana popup con un botón en ASP.NET
- Select Case. Explicación y utilización en ASP
- MapPath en ASP
- Lectura y Escritura de Archivos
- Ejemplos básicos de ASP
- Versión imprimible de este documento
- Enviar por e-mail este documentoInformación legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.