Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Ayuda con password, urgente please!!!
 Foro Bloqueado  Tema Bloqueado


Autor Temas
aguas
New Member


64 Posts
Mensajes - 03 Nov 2004 :  15:41:02  Ver Perfil  Enviar Email
Hola a todos, la verdad tengo una duda que no me deja avanzar en mi proyecto....
Tengo un sitio el cual necesito que los visitantes escriban su login y password para poder entrar al sitio, esto lo hago comparandolos con los logins y passwords que tengo en mi base de datos hecha en access, todo me lo hace bien, solo que en mi base de datos todos los paswwords los tengo con mayusculas, y en mi pagina de asp al momento de teclear el password sea mayusculas o minusculas siempre da el permiso de entrada al sitio, lo que quisiera que me ayudaran seria a ver como puedo hacer para que mi asp respete tambien mayusculas, esto es que si el usuario no escribe totalmente igual su passsword al de la base de datos(Esto es respetando mayusculas y minusculas) no le permita la entrada al sitio, se los agradeceria muchisimo, espero puedan ayudarme...

aguas
New Member


64 Posts
Posted - 03 Nov 2004 :  19:30:27  Ver perfil  Enviar e-mail
Sigo con mi duda, hice este codigo para comparar si el password que ingresa el usuario es identico al que yo tengo almacenado en mi base de datos(esto es respetando mayusculas y minusculas) pero me marca error, m codigo es:

<% Dim cn
Set cn = ConexionAbre

Dim A
Dim I
Dim P
Dim C

Dim sql
sql = "Select Nick, Password, IDUsuario, Nombre from Usuarios where Nick='" & request.form("Nick") & "' and Password ='" & request.form("Contrasena") & "'"
Dim rs
Set rs = cn.Execute(sql)


'Armamos la sentencia SQL, seleccionar de la tabla usuarios los campos usuario y password de los registros cuyos campos sean como lo inicamos


Dim login
if not rs.eof then
Session("UsuarioNickname") = rs("Nick")
Session("UsuarioID") = rs("IDUsuario")
A=Len(request.form("Contrasena"))
For I = 1 To A
P = Mid(rs("Password"), I, 1)
C = Mid(request.form("Contrasena"), I, 1)
if Asc("P") <> Asc("C") then

login = false
else
login = true
end if
Next
end if
%>
me marca error en la conexion q es un archivo txt aparte, espero puedan ayudarme, realmente estoy atorada en esto..

Inicio Pagina

Henrydesousa
New Member

Venezuela
88 Posts
Posted - 04 Nov 2004 :  23:44:11  Ver perfil  Enviar e-mail
Hola, mira yo hice un pequeño algoritmo para resolver ese problema, no lo tengo a la mano ahora, pero te lo prometo para dentro de 24 horas.

Henry de SousaInicio Pagina

Henrydesousa
New Member

Venezuela
88 Posts
Posted - 05 Nov 2004 :  16:12:38  Ver perfil  Enviar e-mail
Esta es la rutina que he hecho para que dos cadenas
coincidan tanto en mayusculas como minusculas.
De tu parte esta adaptarla a lo que necesitas, en tu caso
a la variable Cadena le asignarias lo que tiene la clave
en la base de datos una vez que la hayas buscado.

Dim Cadena,Cadena2 as string
Dim Len1,I as Integer

Cadena = "CadEnA"
Cadena2 = Text1.Text
Len1 = Len(Text1.Text)

For I = 1 to Len1
If Mid(Cadena,I) <> Mid(Cadena2,I) Then
MsgBox"La cadena no coincide"
Exit For 'para que no mande mensaje por cada no coincidencia
End If
Next For

Henry de SousaInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar