|
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
%>
|
Microsoft explorer 6.0 
