Os pongo mi problemilla….lo cuento con pelos y señales para ver si alguien puede ayudarme…ya que estoy volviéndome loco….Antes de nada, gracias y os pido paciencia ya que soy novato en esto y ando perdido…
Empezamos:
He creado una WEB para el departamento donde trabajo, está alojada en un equipo desde el cual estoy editándola. La ruta es la que por defecto crea el administrador de servicios de internet, es decir, C:\Inetpub\wwwroot
Estoy creando una WEB en ASP con la finalidad de tener acceso con usuario y contraseña, para ello he creado una BBDD Access en la ruta C:\Inetpub\wwwroot\bd\basedatos.mdb la cual tiene una taba con dos columnas (usuario, clave) y he creado una consulta.
Posteriormente he creado un DSN y he logrado conectarlo a la WEB. Hice el servidor de pruebas y finalmente cuando creo los formularios (Text area) con los campos de usuario y clave e inserto la opción de “User Authentication: Log in user” y configuro las opciones para que en los “tex area” introduzca los datos para logarse un usuario. Una vez que pruebo la WEB y me solicita el usuario y clave, tanto al aceptar como al meter una errónea no salta el error.html o index.html en caso de acierto. Os paso el código:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Usuarios.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Usuarios_STRING
Recordset1_cmd.CommandText = "SELECT usuario, clave FROM usuarios"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("textarea"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "login.html"
MM_redirectLoginFailed = "Error.html"
MM_loginSQL = "SELECT usuario, clave"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM usuarios WHERE usuario = ? AND clave = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_Usuarios_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 50, Request.Form("textarea2")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>Administración de Usuarios</title>
<link rel="stylesheet" href="style.css" type="text/css" charset="utf-8" />
<style type="text/css">
<!--
.style1 {font-size: 18px}
body {
background-color: #f1e9d5;
}
.style2 {color: #716245}
.style3 {color: #9F8C62}
.style5 {color: #716245; font-weight: bold; }
.style6 {
color: #BE8B06;
font-weight: bold;
}
-->
</style>
</head>
<body>
<div id="wrapper">
<div id="header"></div>
<div id="left">
<div id="logo">
<h1 class="style1"> Administración Usuarios </h1>
<p>It's all possible</p>
</div>
<div id="news">
<h3 class="style3"> </h3>
<h3 class="style3"> </h3>
<h3 class="style3"> </h3>
<h3 class="style3"> </h3>
<h3 class="style3"> </h3>
<h3 class="style6">Última Actualización</h3>
<p class="style3"> </p>
<h3 class="style3">
<!-- #BeginDate format:En2a -->11-Aug-2009 1:21 PM<!-- #EndDate -->
</h3>
</div>
<div id="support">
<p>Tlf: +34 6858 / 3912 </p>
</div>
</div>
<div id="right">
<h2>Bienvenido a Administración de Usuarios </h2>
<form id="form1" method="POST" action="<%=MM_LoginAction%>">
<p>
<label class="style5">Usuario
<input name="textarea" type="text" value="" size="8" maxlength="8" />
</label>
<label class="style5">Clave
<input name="textarea2" type="password" value="" size="8" maxlength="8" />
</label>
</p>
</form>
<p> </p>
</div>
<div class="clear"> </div>
<div id="footer">
<div id="copyright">Copyright © 2009 Rafael Liñán Gómez </div>
<div id="footerline"></div>
</div>
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
