Entiendo!!
El código que utilizo es este: es identico al de aspfacil.com.
¿Debo borrar los tags HTML, y dejarlo asp puro? porque la idea es que si no cumple la condición que vuelva a cargar el mismo sitio pero un mensaje de error!!!
Desde ya muchas gracias malpika!!
login.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>.:: Menú Principal ::.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel=Stylesheet type="text/css" href="style.css" title="Estilo">
</head>
<body bgcolor="#000000" text="#FFFF00" link="#FF0000" vlink="#6699FF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td><div align="center">
<script language="JavaScript">
<!--
var mydate=new Date();
var year=mydate.getYear();
if (year < 1000)
year+=1900;
var day=mydate.getDay();
var month=mydate.getMonth();
var daym=mydate.getDate();
if (daym<10)
daym="0"+daym;
var dayarray=new Array("Domingo","Lunes","Martes","Miércoles","Juev es","Viernes","Sábado");
var montharray=new Array("Enero","Febrero","Marzo","Abril","Mayo","Ju nio","Julio","Agosto","Septiembre","Octubre","Novi embre","Diciembre");
document.write("<font color='ffffff' face='Verdana, Arial' size=1>"+ dayarray[day] + " " + daym + " de " + montharray[month] + " de " + year + "</font>");
// -->
</script>
</div></td>
</tr>
<tr>
<td><div align="center">
<hr noshade>
</div></td>
</tr>
</table>
<p> </p>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="principal.asp" target="mainFrame">Home</a></font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"></font></div></td>
</tr>
<tr>
<td><div align="center"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"></font></div></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<form action="login.asp" method="POST" name="frm_login" id="frm_login">
<p><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><p align="center"><%=request.querystring("msg")%></p>
</font></p>
<div align="center">
<center>
<table width="18%" border="3" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table border="0" width="100%" bgcolor="#000000">
<tr>
<td colspan="2" bgcolor="#0000FF"> <p align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Login</font></td>
</tr>
<tr bgcolor="#000000">
<td width="20%"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Usuario:</font></td>
<td width="80%"><input class="boton" name="txt_usuario" type="text" id="txt_usuario3" size="10"></td>
</tr>
<tr bgcolor="#000000">
<td width="20%"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Contraseña</font><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">:
</font></td>
<td width="80%"> <input class="boton" name="txt_clave" type="password" id="txt_clave3" size="10"></td>
</tr>
<tr bgcolor="#000000">
<td width="20%"> <p align="center"><font color="#000000"><font color="#FFFFFF"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif"></font></font></font></font></td>
<td width="80%"><input class="boton" name="cmd_enviar" type="submit" id="cmd_enviar3" value="Login!"></td>
</tr>
</table></td>
</tr>
</table>
</center>
</div>
</form>
<p>
<%'eliminamos las posibles comillas de la entrada
'para evitar la introducción de sentencias SQL
usuario=replace(request.form("txt_usuario"),"'","" )
password=replace(request.form("txt_clave"),"'","")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/files.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from tbl_usuarios where Usuario='"&usuario&"' and Clave= '"&password&"'"
response.write sqltxt
rs.Open sqltxt, conn
if not rs.eof then
' nos ha devuelto un registro, ahora miraremos si es valido
' con ello evitamos el ataque típico SQL
if rs("Usuario")=usuario and rs("Clave")=password then
' si el usuario esta en la base de datos y la password coincide
session("autorizacion")=1
session("usuario") = usuario
response.Write("OK!!")
response.redirect "menu.asp"
end if
else
session("autorizacion")=-1
end if
'Cierro las conexiones
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
' no hemos encontrado el registro
' eso indica que el usuario y/o la password son erroneos
Response.Write("Error")
response.redirect "login.asp?msg=Usuario%20o%20password%20incorrecta "
end if
%>
</p>
<p> </p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="acercade6.htm" target="mainFrame">Copyright
© 2004 - Todos los derechos reservados</a></font></div></td>
</tr>
</table>
<p> </p>
</body>
</html>
