un usuario con ie 6.0 no me acepta las variables session o eso creo

rrufo · #1 (**permalink**) 16/06/2003, 04:05

hola a todos tengo un problema un usuario tiene problemas con el login de su usuario:

le envié al usuario un mail para que se conectase a una pagina de registro para ver donde podía tener el error, no paso de la primera pagina, os pego un trocito de traza simplificado y unos trocitos de código, pero el problema no es de este sino del usuario, pues desde cualquier otro ordenador que he probado, incluso con IE 6.0 entrando sus claves no me da error. Os pido vuestra ayuda, no se si será algo de la configuración de segurisad o que ha bloqueado las cookies pero le he preguntado por telefono y parece que lo tiene bien.

el usuario puede acceder a login1,
introduce sus claves (incluso se las pongo por defecto para que no se equivoque)
le da a continuar y se bloquea.

pero donde se bloquea, al enviar los datos al cargar los datos, al escribir el la variable sessión del login2.asp???

TRAZA (el usuario no pasa a login2.asp, se queda en blanco cargando)
---------------
2003-06-16 06:38:29 80.59.153.193 - GET /login1.asp 200 0 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+98) http://mb30.terra.es/frame.html
2003-06-16 06:38:35 80.59.153.193 - POST /login1.asp 302 89 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+98) http://www.ecosmep.com/login1.asp
2003-06-16 06:39:19 80.59.153.193 - POST /login1.asp 302 89 HTTP/1.1 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+98) http://www.ecosmep.com/login1.asp

Login1 (es simplemente un login, a mi me funciona)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dtBegin = timer
%>

<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("textfield"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="login2.asp"
MM_redirectLoginFailed="Errores/ErrorRegistro.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_Usuarios_STRING
MM_rsUser.Source = "SELECT Usuario, Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Usuarios WHERE Usuario='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("textfield2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
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
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="POST" action="<%=MM_LoginAction%>">

<p>usuario
<input name="textfield" type="text">
</p>
<p>contraseña:
<input name="textfield2" type="password">
</p>
<p>simplemente pulsa continuar<br>
<input type="submit" name="Submit" value="Continuar">
</p>
</form>
<p> </p>
</body>
</html>
<% dtEnd = timer
response.write(formatnumber(dtend - dtbegin, 4)) %>

Login2:
----------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dtBegin = timer
%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("MM_Username") <> "") Then
Recordset1__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Usuarios_STRING
Recordset1.Source = "SELECT * FROM Usuarios WHERE Usuario = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
dtBegin = timer
Session("CIF") =(Recordset1.Fields.Item("CIF").Value)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p>
Tu CIF es: <% response.write(Session("CIF")) %>
</p>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

<% dtEnd = timer
response.write(formatnumber(dtend - dtbegin, 4))
%>

angel_dope · #2 (**permalink**) 09/07/2003, 02:06

Por casualidad para logear utilizas la autenticación integrada de Windows??? es que cuando el cliente usa IE6 con W2K y la página va con ese tipo de autenticación, puede fallar el metodo POST al enviar los datos del formulario. A mi me pasa eso en un sitio que acabo de hacer. En el momento que le da a un boton le vuelve a pedir el login, pero no acepta nada de lo que se le pone, asi que una de dos, o lo cambio todo al metodo GET, un tostón, o no utilizo la autenticación integrada de windows y me hago yo mismo un página de login que vaya sobre base de datos y esas cosas...