Sistema De Login

cear · Outubro 14, 2005

Boas ....

Tenho um pequeno problema com os dados que aparecem... tenho uma base de dados com os seguintes campos... user, pass, nome e socio.... tenho um ficheiro index.asp com o seguinte codigo:

<html>

<head>

<title>Área Administrativa</title>

</head>

<!--

if (!(document.layers)) {

document.write('<style type="text/css">\

.bt{color:#ffffff;background-color:#0099ff;border: 1px solid #590808;}\

</style>');

}

//-->

</script>

<tr>

</td>

</td>

</td>

</tr>

<tr>

</td>

<tr>

<b>Área Administrativa</b>

</td>

</tr>

<tr>

<tr>

<td>

Usuário:

</td>

</td>

</tr>

<tr>

<td>

Senha:

</td>

</td>

</tr>

<tr>

<b>

<%

if request.querystring("erro")=1 then

response.write "Login ou Senha Incorreto !     "

end if

%>

</b>

</form>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</td>

</tr>

<tr>

</td>

</td>

</td>

</tr>

</table>

</body>

</html>

outro com logar.asp com o seguinte codigo:

<html>

<%

validpwd="false"

usuario=request.form("user")

senha=request.form("pass")

If usuario<>"" and senha<>"" Then

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open Conexao

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

If not rs.eof then

If rs("pass")=senha and rs("user")=usuario Then

validpwd="true"

Else

validpwd="false"

End If

Else

validpwd="false"

end if

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

If validpwd="true" Then

Session("status") = "login"

response.redirect "entrou.asp"

End If

If validpwd="false" Then

response.redirect "index.asp?erro=1"

End If

%>

</body>

</html>

e um chamado entrou.asp com o seguinte codigo:

<%

if Session("status")<>"login" then

response.write rs.filds("nome")

end if

session("status")=""

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open Conexao

Set rs = conn.Execute( "Select * from users")

nome = rs("nome")

socio = rs("socio")

%>

<html>

<head>

<title>Logado</title>

</head>

<tr>

Olá <b><% = nome %></b>, você está logado(a)!</font></td>

</tr>

Nome:<%= nome %><br>

Sócio: <%= socio %>

</html>

mas quando faço o login aparece sempre os dados do primeiro registo da base de dados.... alguém me pode ajudar????

Obrigado

.Andreia. · Outubro 14, 2005

você tem que colocar um WHERE nessa consulta

Set rs = conn.Execute( "Select * from users")

para definir qual registro se refere.

cear · Outubro 14, 2005

você tem que colocar um WHERE nessa consulta
Set rs = conn.Execute( "Select * from users")
para definir qual registro se refere.

Mas já esta lá... certo???? tenho de colocar esse codigo na pagina do entrou.asp??? é como disse ontem eu não percebo nada disto... ainda estou a entender...

Mas obrigado pela paciencia.

.Andreia. · Outubro 14, 2005

entrou.asp

cear · Outubro 14, 2005

entrou.asp

mas eu acho que já está la´!!! como devo mesmo de colocar...

mais uma vez peço desculpa porque sou um chato do caraças...

já agora se eu colocar mais um campo na base de dados como devo de por no codigo... e que queria acrescentar mais um campo a dizer 2005 que era para colocar nesse campo Ex: pronto

Obrigado

.Andreia. · Outubro 14, 2005

Você poderia usar session pra isso, uma idéia só:

logar.asp

cear · Outubro 14, 2005

fica um erro

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/logar.asp, line 47

.Andreia. · Outubro 14, 2005

Qual é a linha 47?

cear · Outubro 14, 2005

eu coloquei assim no logar.asp

<html>

<%

validpwd="false"

usuario=request.form("user")

senha=request.form("pass")

If usuario<>"" and senha<>"" Then

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open Conexao

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

If not rs.eof then

If rs("pass")=senha and rs("user")=usuario Then

validpwd="true"

Else

validpwd="false"

End If

Else

validpwd="false"

end if

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

If validpwd="true" Then

Session("status") = "login"

Session("pass") = rs("pass")

Session("user") = rs("user")

Session("nome") = rs("nome")

Session("socio") = rs("socio")

response.redirect "entrou.asp"

End If

If validpwd="false" Then

response.redirect "index.asp?erro=1"

End If

%>

</body>

</html>

a linha 47 esta em branco....

meus deus vou ficar malucooooooo... tou a brincar...

cear · Outubro 14, 2005

o erro agro diz que é

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/logar.asp, line 35

.Andreia. · Outubro 14, 2005

você fechou a conexao antes, tenta assim:

cear · Outubro 14, 2005

Agora da me o erro

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/logar.asp, line 50

<html>

<%

validpwd="false"

usuario=request.form("user")

senha=request.form("pass")

If usuario<>"" and senha<>"" Then

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open Conexao

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

If not rs.eof then

If rs("pass")=senha and rs("user")=usuario Then

validpwd="true"

Else

validpwd="false"

End If

Else

validpwd="false"

end if

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

If validpwd="true" Then

Session("status") = "login"

Session("pass") = rs("pass")

Session("user") = rs("user")

Session("nome") = rs("nome")

Session("socio") = rs("socio")

response.redirect "entrou.asp"

End If

If validpwd="false" Then

response.redirect "index.asp?erro=1"

End If

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

%>

</body>

</html>

a linha 50 é Set conn=Nothing

.Andreia. · Outubro 14, 2005

Olha, realmente agora não sei... do jeito que eu te passei eu fiz aqui e funcionou

Vamos ver se algum colega tem alguma idéia do que possa ser

cear · Outubro 14, 2005

tive a fazer tudo de novo... então o codigo fica assim no logar.asp

<html>

<%

validpwd="false"

usuario=request.form("user")

senha=request.form("pass")

If usuario<>"" and senha<>"" Then

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open Conexao

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

If not rs.eof then

If rs("user")=senha and rs("pass")=usuario Then

validpwd="true"

Else

validpwd="false"

End If

Else

validpwd="false"

end if

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

If validpwd="true" Then

Session("status") = "login"

Session("user") = rs("user")

Session("pass") = rs("pass")

Session("nome") = rs("nome")

Session("socio") = rs("socio")

response.redirect "entrou.asp"

End If

If validpwd="false" Then

response.redirect "index.asp?erro=1"

End If

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

%>

</body>

</html>

e da o erro

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/logar.asp, line 35

que e onde diz

Session("user") = rs("user") onde ele usa o primeiro rs

se poderes ver o que é agradecia...

Bigado

cear · Outubro 14, 2005

oi... agora funciona direitinho... menos quando se acrescenta um novo socio...

ao fazer logim aparece o primeiro registo.... que neste caso é o teste..

podes saber o que esta a acontecer???

bigado

.Andreia. · Outubro 14, 2005

No arquivo entrou.asp, mude para:

cear · Outubro 14, 2005

não sera que o codigo

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

não terá de ser colocada na pagina entrou.asp???

para que quando o utilizador se logar não apareca o primeiro registo mas sim o dele????

obigado

.Andreia. · Outubro 14, 2005

Carlos, você mudou o que eu coloquei la em cima? tava puxando errado porque estava:

response.write rs("nome")

mas criou-se uma session e então o correto é chamar pela session

response.write session("nome")

Não precisa usar outra sql, sendo que colocou-se a session justamente para não precisar dessa sql.

aqui funciona certinho, pegando o usuario correspodente... veja como está ai ok

post anterior:

<%
if Session("status")<>"login" then
response.write Session("nome")
end if
session("status")=""
nome = session("nome")
socio = session("socio")
%>

cear · Outubro 19, 2005

Boas... Andreia ake codigo estava a funcionar direitinho mas tava testando com ouser e a pass igual... ou seja User: teste Pass: teste, mas quando eu troco a pass ele já dá como login errado... já testei com outros user e da-me igual... se o user for igual a pass ele funciona se não for ele da erro... Sabe o que possa ser????

Obigado

.Andreia. · Outubro 19, 2005

Estranho Carlos, porque quando eu testei aqui foi com vários usuários.

Tente imprimir a consulta SQL pra ver o q está retornando da tabela.

cear · Outubro 19, 2005

Estranho Carlos, porque quando eu testei aqui foi com vários usuários.
Tente imprimir a consulta SQL pra ver o q está retornando da tabela.

logar.asp

<html>

<%

validpwd="false"

usuario=request.form("user")

senha=request.form("pass")

If usuario<>"" and senha<>"" Then

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Dados.mdb") & ";"

Set conn = Server.CreateObject("ADODB.Connection")

conn.open Conexao

Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'")

If not rs.eof then

If rs("user")=senha and rs("pass")=usuario Then

validpwd="true"

Else

validpwd="false"

End If

Else

validpwd="false"

end if

If validpwd="true" Then

Session("status") = "login"

Session("user") = rs("user")

Session("pass") = rs("pass")

Session("nome") = rs("nome")

Session("socio") = rs("socio")

session("a") = rs("a")

session("b") = rs("b")

session("c") = rs("c")

session("d") = rs("d")

session("e") = rs("e")

session("f") = rs("f")

session("g") = rs("g")

session("h") = rs("h")

session("i") = rs("i")

session("j") = rs("j")

session("k") = rs("k")

session("l") = rs("l")

session("n") = rs("n")

response.redirect "entrou.asp"

End If

If validpwd="false" Then

response.redirect "index.asp?erro=1"

End If

rs.Close

Set rs=Nothing

conn.Close

Set conn=Nothing

%>

</body>

</html>

entrou.asp

<%

if Session("status")<>"login" then

response.write Session("nome")

end if

session("status")=""

nome = session("nome")

socio = session("socio")

a = session("a")

b = session("b")

c = session("c")

d = session("d")

e = session("e")

f = session("f")

g = session("g")

h = session("h")

i = session("i")

j = session("j")

k = session("k")

l = session("l")

n = session("n")

%>

<html>

<head>

<title>Logado</title>

</head>

<tr>

Olá <b><% = nome %></b>, você está logado(a)!</font></td>

</tr>

Nome:<%= nome %><br>

Aplido: <%= socio %><br>

2005: <%= a %><br>

2004: <%= b %><br>

2003: <%= c %><br>

2002: <%= d %><br>

2001: <%= e %><br>

2000: <%= f %><br>

1999: <%= g %><br>

1998: <%= h %><br>

1997: <%= i %><br>

1996: <%= j %><br>

1995: <%= k %><br>

1994: <%= l %><br>

1993: <%= n %>

</html>

Axa que me consegue ver o que se passa?

Muito obigado

.Andreia. · Outubro 19, 2005

O código funciona certinho aqui, você tem certeza que o usuario teste existe na tabela Users?

cear · Outubro 19, 2005

O código funciona certinho aqui, você tem certeza que o usuario teste existe na tabela Users?

sim... por exemplo se for user: teste pass: teste ele funciona direitinho... mas se for diferente ex: user: teste e pass: tata ele já não funciona

.Andreia. · Outubro 19, 2005

coisa de loko, então se você puder me manda um e-mail com seu bd e arquivos, dou uma olhadinha.... porque eu fiz aqui e funciona certo

cear · Outubro 20, 2005

coisa de loko, então se você puder me manda um e-mail com seu bd e arquivos, dou uma olhadinha.... porque eu fiz aqui e funciona certo

Enviei o e-mail. Quando poder dar uma olhadela...

Bigado

.Andreia. · Outubro 20, 2005

Carlos, o erro era bem simples.

Veja como estava este trecho:

If not rs.eof then
If rs("user")=senha and rs("pass")=usuario Then
validpwd="true"
Else
validpwd="false"
End If
Else
validpwd="false"
end if

Ele não passava naquela condição porque user não é senha, e pass não é usuario, está invertido.

o correto é assim:

If not rs.eof then
If rs("user")=usuario and rs("pass")=senha Then
validpwd="true"
Else
validpwd="false"
End If
Else
validpwd="false"
end if

Por isso que o seu acesso "cear" "cear" funcionava, porque era o unico que tinha user e pass iguais.

O resto está ok, altere ai ta

Entrar

Sistema De Login

Pergunta

Link para o comentário

Compartilhar em outros sites

25 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns