Problemas Com Login

[Guest - Juliana -]

Olá amigos! estou com um problema no meu sistema de login, ele não está encontrando nenhum usuário, mesmo eu tendo 3 usuários cadastrados no bd. Quando eu estava fazendo os testes, e tinha apenas 1 usuário, entrava normalmente... mas depois que o deletei e cadastrei 3 novos, parou de funcionar. Segue abaixo o código, espero que consigam decifrar o mistério hehehe

AH, uso asp + access.

login.asp

<%   
   set db = server.createobject("adodb.connection") 'Banco de Dados
   set rs = server.createobject("adodb.recordset")  'Tabela de Registros

   'Path (Caminho) do Banco 
   db.open "driver={microsoft access driver (*.mdb)};dbq=" & _
    Server.MapPath("banco.mdb")

   'Selecionamos o usuario da tabela alunos.
   'Usamos o Replace para garantir a segurança e que o usuário um pouco 
   'mais experiente não modifique a sintaxe SQL
   
   rs.open "select * from alunos where " & _
    "usuario='" & Replace(request.form("usuario"), "'", "''") & _
    "' and senha='" & Replace(request.form("senha"), "'", "''") & "'",db
   
      if not rs.eof then 'Encontrou o usuário
    'Armazenamos em uma variável Session o status do Usuário
      session("status") = "ok" 
   session("usuario") = request.form("usuario")
   'Redirecionamos para a Página de Usuário	
      Response.redirect("usuarios.asp")
         Response.End() 
      else 'Usuário não encontrado
    'Redirecionamos para a Página de Login e informamos o erro
   Response.Write("<script language = 'JavaScript'>window.open('erro.asp','janela','height=150, width=250','scrollbar=no','status=no', 'location=no', 'menubar=no' )</script>")
          
      end if
     
%>

Editado Setembro 22, 2004 por dark0

[dark0]

Esse seu codigo esta um pouco confuso!

Vamos simplificar ele?

<%

'Conectando ao banco:

url_conexao = Server.MapPath("banco.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

'fazemos o replace, para trocar uma aspa simples, por duas.

usuario = Replace(request.form("usuario"), "'", "''")

senha = Replace(request.form("senha"), "'", "''")

'criamos o SQL, que faz select na tabela do banco, procurando o usuario e senha digitados

sql = "select * from alunos where usuario='"& usuario &"' and senha='"& senha &"'"

'executamos o sql

set rs = conexao.execute(sql)

 

'testamos se encontrou algum usuario

if not rs.eof then

  'Armazenamos em uma variável Session o status do Usuário

   session("status") = "ok"

   session("usuario") = usuario

   'Redirecionamos para a Página de Usuários

   Response.redirect ("usuarios.asp")

   'Paramos a execução dos códigos  

   Response.End

'Se não encontrar nenhum usuário

else

   'Redirecionamos para a Página de Login e informamos o erro

   Response.Write("<script language = 'JavaScript'>window.open('erro.asp','janela','height=150, width=250','scrollbar=no','status=no', 'location=no', 'menubar=no' )</script>")

end if

%>

Bem, o que está em roxo, é apenas comentarios.

O resto é código.

Eu apenas Re-organizei todo o seu codigo, fazendo ele de uma forma mais simplificada, e mais legível.

Teste. Se não funcionar, pode haver erros externos à esse codigo.. como à nomes de variaveis, campos de formulario .. e etc!

Abraços

[Guest Guest]

o engraçado é q quando testo localmente, está funcionando normalmente!

[dark0]

você testou o codigo que eu postei?

Que, na verdade, é um padrão que eu utilizo, na maioria dos meus codigos.

Assim, qualquer programador, que pegar o codigo, consegue facilmente ler a lógica do esquema.

Bem, então, erro ele não dá?

Ele não está funcionando porque? O que não funciona?

Poste seu formulario..

[Guest - Juliana -]

Bom, o formulario está pegando os dados certinho, testei tanto com o pws numa maquina com 98 como com o iss, e funciona... não está funcionando no servidor web, mas quando eu tinha apenas um usuário cadastrado, estava funcionando... creio que pode ser algum problema na configuração do bd no servidor

mas em todo caso, aí vai o form

<!--#include file="Connections/alunos.asp" -->

<%

Dim Recordset1__MMColParam

Recordset1__MMColParam = "1"

if (Session("usuario") <> "") then Recordset1__MMColParam = Session("usuario")

%>

<%

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_alunos_STRING

Recordset1.Source = "SELECT nome  FROM alunos  WHERE usuario = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

%>

<link rel="stylesheet" href="estilo.css" type="text/css">

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

<table width="150" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td class="estilo">

      <div align="center">Ol&aacute;, <b><%=(Recordset1.Fields.Item("nome").Value)%></b> <br>

        <a href="usuarios.asp" target="_self">Ver meus dados</a> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="logout.asp" target="_self">Sair</a></div>

    </td>

  </tr>

</table>

<% Else %>

<table width="150" border="0" cellspacing="0" cellpadding="0">

  <form name="form1" method="post" action="login.asp">

    <tr>

      <td class="branco" colspan="2"><img src="imagem/setinha.gif" width="18" height="17" align="absmiddle"><b class="estilo">Usu&aacute;rios</b></td>

    </tr>

    <tr>

      <td class="estilo" width="48">&nbsp;&nbsp;Login</td>

      <td class="estilo" width="102">

        <input type="text" name="usuario" class="branco" size="15" maxlength="8">

      </td>

    </tr>

    <tr>

      <td class="estilo" width="48">&nbsp;&nbsp;Senha</td>

      <td class="estilo" width="102">

        <input type="password" name="senha" size="15" maxlength="8" class="branco">

      </td>

    </tr>

    <tr>

      <td class="estilo" colspan="2">

        <div align="center"> <br>

          <input type="submit" name="Submit" value="Entrar" class="branco">

        </div>

      </td>

    </tr>

  </form>

</table>

<% End If %>

<%

Recordset1.Close()

%>

[dark0]

err.. esse codigo foi gerado pelo Dremweaver?

[Guest Guest]

conexao com bd sim

os if fui eu que fiz =)

[bareta]

no tópico de tutoriais tem um sistema pronto...