Foros del Web - Ver Mensaje Individual

3pies · #5 (**permalink**) 06/10/2005, 03:17

Nombre del fichero: formulario.asp

Código:

<html>
<head>
<title>Acceso de los Representantes</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<BR><BR><BR>
<form action="acceso.asp" method="POST" name="acceso">
	<p align="center">&nbsp;</p>
	<div align="center">
	<table border="0" width="50%" bgcolor="#F2F2F2">
		<tr><td colspan="2" bgcolor="#0000FF">
			<p align="center"><font color="#FFFFFF"><strong>Acceso</strong></font>
		</td></tr>
		<tr><td colspan="2" align="center">
			<font color="#0000FF" size="2">
			<%
			if request.querystring("mensaje")<>"" then
				response.write request.querystring("mensaje")
			else
				response.write "&nbsp;"
			end if
			%>
			</font>
		</td></tr>
		<tr><td width="50%" align="right">
			Usuario:
		</td>
		<td width="50%">
			<input name="campo_usuario" type="text" size="20" maxlength="20">
		</td></tr>
		<tr><td align="right">
			Contrase&ntilde;a:
		</td>
		<td>
			<input name="campo_password" type="password" size="20" maxlength="20">
		</td></tr>
		<tr><td colspan="2">
			&nbsp;
		</td></tr>
		<tr><td colspan="2">
			<p align="center"><input type="submit" value="Enviar" name="enviar">
		</td></tr>
		<tr><td colspan="2">
			&nbsp;
		</td></tr>
	</table>
	</div>
</form>
<script language="JavaScript">
<!--
// Focus en el input del usuario
document.acceso.campo_usuario.focus();
//-->
</script>
</body>
</html>

Nombre del fichero: acceso.asp

Código:

<html>
<head>
<title>Acceso de usuarios</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<BR><BR><BR>
<table border="0" align="center" width="60%">
<tr><td ALIGN="CENTER">
<%
strUsuario = replace(trim(request.form("campo_usuario")), "'", "")
strPassword = replace(trim(request.form("campo_password")), "'", "")

'Nos aseguramos de que los campos no están vacíos
if strUsuario = "" or strPassword = "" then
	Response.Redirect "formulario.asp?mensaje=Usuario%20o%20password%20incorrectos"

'Si el usuario ha puesto un nombre y password...
else

	'Conectamos a nuestra BD
	Set oConn = Server.CreateObject ("ADODB.Connection")
	Set RS = Server.CreateObject ("ADODB.RecordSet")

	oConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("contraseña.mdb"))

	'Seleccionamos de la tabla solo el registro que concuerda con el usuario del formulario
	sql = "SELECT * FROM tabla_usuarios WHERE usuario='"& strUsuario &"' AND password='" & strPassword & "'"
	RS.Open sql, oConn, 1, 1

	'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
	if RS.EOF then
	%>
		<BR><BR>Usuario o password, incorrectos.
		<p><a href='javascript:history.back(-1)'><< Volver</a></p>
	<%
	'Si nos devuelve un registro (se supone que nunca habrá 2 usuarios iguales y con el mismo password)
	'porque sino, te devolverá una tabla con 2 registros
	else
	%>
		<DIV ALIGN="justify">
		<BR><BR>Accediste con éxito. Bienvenido <B><%=strUsuario%></B>.<BR><BR>
		<U>Tus datos personales:</U><BR>
		Apellidos: <%=rs.fields("apellidos")%><BR>
		Nombre: <%=rs.fields("nombres")%><BR><BR>

		<%
		'Cerramos y limpiamos el recordset
		'--------------------------------
		'  MODIFICADO
		'RS.Close
		'Set RS = Nothing
		'--------------------------------

		'------------------------------------------
		'Ahora puedes montar la consulta que desees
		'------------------------------------------
		'Mostramos los datos, más o menos de esta forma
		Set RS2 = Server.CreateObject ("ADODB.RecordSet")

		'Mostramos las notas de ese usuario
		sql2 = "SELECT * FROM tabla_notas WHERE usuario='"& strUsuario & "'"
		RS2.Open sql2, oConn, 1, 1

		'Aquí haces lo que tengas que hacer
		'bla, bla, bla
		'bla, bla, bla
		'bla, bla, bla
		'bla, bla, bla
		'bla, bla, bla

		'Una vez finalizado, cerramos y limpiamos el recordset
		RS2.Close
		Set RS2 = Nothing
		'------------------------------------------
		'fin de la consulta elegida
		'------------------------------------------	

	'finalizamos el condicional que mira si el usuario y password son correctos
	end if

	'Cerramos y limpiamos todo
	'-----------------
	RS.Close
	Set RS = Nothing
	'-----------------
	oConn.Close
	Set oConn = Nothing

'finalizamos la comprobación de si ha puesto nombre de usuario y password
end if
%>
</td></tr>
</table>
</body>
</html>

¿No te quejarás, ehhh?

SalU2

Editado: He cambiado una cosa del segundo fichero. Vuelve a echarle un vistazo