User&Pass y redireccione a una URL especifica

Barraca · #1 (**permalink**) 05/01/2002, 22:21

Hola amigos, tengo un problema, pero vamos,no creo que sea demasiado complicado...

Pues vamos a ver, lo del usuario y contraseña lo tengo dominado (utilizo ultradev),pero claro te envia a una página generica, y yo necesito que donde compare el usuario y contraseña en la base de datos pues que redireccione a la página generica pero de esta forma generica.asp?Id=23 (por ejemplo), pero el problema es que no sé que escoja la ID de donde haya sido comparado el nombre de usuario y contraseña, y luego tambien me gustaría saber sí hay alguna forma de ocultar la URL para que los usuarios no puedan acceder a la cuenta de los demás únicamente cambiando el dígito de la cadena.
No sé sí me he explicado bien, sino, díganmelo y lo repitiré...
Muchas gracias compañeros, os debo una...
Un saludo!

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

urjose · #2 (**permalink**) 05/01/2002, 22:39

cuando el usuario se autentifica creas una session con su id=23 y en cada pagina pones entre head y head

<%
Id1=request.QueryString("Id")
If Session("ID")<>Id1 Then
Response.Redirect("Login.asp")
End If
%>

espero que t sirva

%> :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

Barraca · #3 (**permalink**) 06/01/2002, 10:10

Muchas gracias URJOSE!, perfecto ahora no podrán hacer esas trampillas que tanto gustan a ciertos usuarios...
Ahora solo falta otra cosa:

Quien sabe (y quiere compartir tan preciada información),que en el ultradev, cuando autentificas a un usuario (contraseña y login), no te vaya a la página generica, Ejemplo (Login.asp),sino a (Login.asp?ID=(La id de donde cogio el nombre de usuario y de registro),no creo que sea muy complicado,pero hasta que no se sabe lo es!!! :P

Mil gracias amigos!!!

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

urjose · #4 (**permalink**) 06/01/2002, 12:07

mm no se como funcione el ultradev y como te redireccione pero debes de tener un response.redirect("login.asp") ahora bien si ya tienes abierto un recordset cuando realiza la redireccion puedes poner lo siguiente

response.redirect("login.asp?Id=oRs("ID& quot;)")

bueno espero que te sea de ayuda

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

Barraca · #5 (**permalink**) 06/01/2002, 12:44

<%
' *** 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("usuario&quo t;))
If MM_valUsername <> "" Then
MM_fldUserAuthorization="Id"
MM_redirectLoginSuccess="login.asp"
MM_redirectLoginFailed="error.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_autentificacion_STRING
MM_rsUser.Source = "SELECT usuario, Contrasena"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM empresas_esp WHERE usuario='" & MM_valUsername &"' AND Contrasena='" & CStr(Request.Form("psw")) & "'"
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
%>
______________________________________

No ha funcionado URJOSE,pero gracias por intentarlo, este es un fragmento del código,sí no os importa me podríais decir donde lo podría modificar??
1000 gracias!

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

urjose · #6 (**permalink**) 06/01/2002, 12:58

mira no me hagas mucho caso por que no esta muy claro tu codigo pero la idea es esta

habria que modificar el codigo aqui
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_autentificacion_STRING
MM_rsUser.Source = "SELECT usuario, Contrasena"
MM_fldUserAuthorization="Id"
MM_redirectLoginSuccess="login.asp?Id=MM_rsUs er("Id")"
MM_redirectLoginFailed="error.asp"
MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_autentificacion_STRING
MM_rsUser.Source = "SELECT usuario, Contrasena"
MM_fldUserAuthorization="Id"
MM_redirectLoginSuccess="login.asp?Id=MM_rsUs er("Id")"
MM_redirectLoginFailed="error.asp"
MM_flag="ADODB.Recordset"

algo asi

salu2 :)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

Barraca · #7 (**permalink**) 06/01/2002, 13:13

Gracias URJOSE por todos tus esfuerzos, te lo agradezco enormemente...
Pues mira, siento comunicarte que da el siguiente error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/gestion/TMPiicvipj3pp.asp, line 23, column 49
MM_redirectLoginSuccess="login.asp?Id=MM_rsUs er("Id")"

Sí quieres he subido el código completo de la página de acceso a mi servidor:
<a href='ir.asp?http://www.buscadata.com/data/asp.txt' target='_blank'>http://www.buscadata.com/data/asp.txt...</a>

URJOSE, de verdad, si tienes trabajo ó te viene mal, ó cualquier otra circumstancia dejalo..., en serio, me sabe mal que pierdas el tiempo conmigo...

Pero sí realmente quieres hacerlo te lo agradeceré enormemente.

Muchas gracias amigo.

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

urjose · #8 (**permalink**) 06/01/2002, 13:17

ando de hue...
ademas me ha dado por ayudar en esta seccion de asp en una ocasion me tarde todo un dia hasta que quedo jaja

salu2 :)
es que de que me traumo me traumo el problema es que tu codigo es diferente a como yo trabajo

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

Barraca · #9 (**permalink**) 06/01/2002, 13:19

No te preocupes URJOSE,muchas gracias por tú ayuda que bien agredeciza es...
1000 gracias!!

Ya buscaré otra forma...

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

urjose · #10 (**permalink**) 06/01/2002, 13:24

a ver yo te pregunto como se llama en tu base de datos el campo que tiene el id? creo que ya encontre un forma menos descabellada

jeje

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

urjose · #11 (**permalink**) 06/01/2002, 13:33

mira solo pongo un pedazo de codigo el chiste es incluir una linea antes de MM_rsUser.Close

cuentame que tal

MM_redirectLoginSuccess="login.asp?Id="& amp;MM_rsUser("Id")
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">