Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rd111072

[Resolvido] Login com erro

Por , em ASP Clássico

Recommended Posts

rd111072    1

rd111072
Postado

Moçada,

 

tenho um login, que estou testando, mas está dando um erro em relação ao BD:

 

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x6dc Thread 0x4d4 DBC 0xc5d0ac Jet'.

/lg_multi/login.asp, line 5

 

A página de login:

 

CODE
<html>

<body>

<table width="20%" border="1" align="center" cellpadding="5"cellspacing="0" bordercolor="#CCCCCC" class="categoria">

<form action="login.asp" name="form">

<tr>

<td><strong>Login:</strong></td>

<td><div align="left">

<input name="txt_login" type="text" class="form" id="txt_login" size="10" maxlength="50">

</div></td>

</tr>

<tr>

<td><strong>Senha:</strong></td>

<td><div align="left">

<input name="txt_senha" type="text" class="form" id="txt_senha" size="10" maxlength="12">

</div></td>

</tr>

<tr>

<td> </td>

<td align="right"> <div align="left">

<input name="Enviar" type="submit" class="Botao" id="Enviar" value="ENVIAR">

    </div></td>

</tr>

</form>

</table>

</body>

</html>

E a página que checa o login e senha (login.asp):

 

CODE
<%

db = Server.MapPath("usuarios.mdb")

connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db

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

Conn.Open connstring

%>

 

<%

'Vamos capturar o login e a senha digitada no firmulário

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

 

'Agora verificamos se o usuário e a senha estão corretos

SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "

Set RS = Conn.Execute(SQL)

 

'Caso não esteja correto, indicamos o erro

If RS.EOF Then

Response.Write "usuário ou senha inválida!"

Response.End

End If

 

 

'Se chegou até aqui, é porque o login e senha estão corretos.

'Vamos então verificar o nível de acesso do usuário.

session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas

 

Response.Redirect "adm.asp" 'página restrita

 

 

%>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

cara pq aki você usa login2 e senha2:

 

<%'Vamos capturar o login e a senha digitada no firmulário
login2 = Request.Form("txt_login")
senha2 = Request.Form("txt_senha")

Tenta login e senha

<%'Vamos capturar o login e a senha digitada no firmulário
login = Request.Form("txt_login")
senha = Request.Form("txt_senha")

qualquer coisa posta o seu banco de dados ai, com os campos hehe ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

rd111072    1

rd111072
Postado

Só pra diferenciar o nome do request do nome dos campos do BD.

 

O BD, por enquanto, não tem nada demais. Está assim:

 

id - autonumeraçao

nome - texto

e-mail - texto

login - texto

senha - texto

nível - número

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

nao entendi nada do codigo, ficou truncado um com o outro

 

qual é a linha 5

pelo que vi você nao encripta a senha, de uma olhada em criptografia de senha, em especial md5

 

[]s

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Entendi hehehe, é q eu ñ faço isso já pra evitar esses tipos de erro kkk ...

 

Então cara parece q está tudo certo, prejulgo q contenha dados no banco né, e q a sua conexão esteja OK ?

Tenho um login.asp q uso aki e está correto, só q uso com o banco mysql, mas a estrutura é a mesma, se você ñ conseguir posso te mandar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rd111072    1

rd111072
Postado

desisto,

 

a linha 5 (página login.asp) é esta:

 

Conn.Open connstring

 

Vou procurar saber sobre criptografia.

 

Mas queria fazer este sistema funcionar primeiro...

 

Jow,

 

pode me mandar por MP, se quiser.

 

valeu.

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

eu nao lembro dar conexoes mdb

mas nao seria

 

Conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db

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

 

seria?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Então eu te enviei já o meu login dá uma olhada lá ...

 

Mas você verificou se a sua conexão DSN está OK ??? e sem dados no banco ???

 

A sua tabela tbm se chama usuarios assim como o nome do banco ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

rd111072    1

rd111072
Postado

Jow, valeu mesmo.

 

Usei seu código e deu certo. Ficou assim o código:

 

CODE
<%

db = Server.MapPath("admin.mdb")

connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db

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

Conn.Open connstring

%>

 

<%

 

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

 

sql = "SELECT * FROM usuarios WHERE login='"&login&"' AND senha='"&senha&"'"

 

Set RS = Conn.Execute(SQL)

 

If RS.EOF Then

Response.Write "usuário ou senha inválida!"

Response.End

End If

 

'Se chegou até aqui, é porque o login e senha estão corretos.

'Vamos então verificar o nível de acesso do usuário.

session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas

 

Response.Redirect "adm.asp" 'página restrita

 

 

%>

thanks! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito