Login em asp nao da certo

Leonardo Thompson · Setembro 25, 2012

Olá

estou enrolado no seguinte...

nao consigo fazer conexao com meu banco de dados!!

se alguem tiver sistema de login em asp pronto possa enviar eu agradeço muito se nao tiver poderiam me ajudar com os codigos

é o seguinte:

meu codigo é esse abaixo e vou explicar

Formulario: (form.asp)

<form action="logar.asp" method="get" name="flogin" id="flogin"><p>
Login: <input type="text" name="login" id="login"></p><p>
Senha: <input type="text" name="senha" id="senha"></p><p>
<input type="submit" name="flogin" value="login"></form>

Banco de dados (logar.asp)

<%

' CONEXÃO ACCESS

Set conn=Server.CreateObject("ADODB.Connection")
drv="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("banco.mdb") & ";"
conn.Open drv

login=Request.QueryString("login") 'aqui recuperamos o login digitado, através da QueryString
senha=Request.QueryString("senha") 'aqui recuperamos a senha digitado, através da QueryString

'SQL QUE SELECIONA OS DADOS DO USUARIO CASO O LIGN E A SENHA ETEJAM CORRETOS
sql = "SELECT * FROM usuarios WHERE login = '" & login &"' AND senha = '" & senha & "' "

'SETAMOS A VARIAVEL rsLogar e ABRIMOS O COMANDO SQL
Set rsLogar = Server.CreateObject("ADODB.Recordset")
rsLogar.Open sql, conn

'A CONDIÇÃOˆ -  SE CHEGOU AO FIM "eof" DO BANCO DE DADOS, SIGNIFICA QUE
'NAO EXISTE NADA COM ESSE LOGIN E COM ESSA SENHA
'SENAO "Else" ELE ABRE A SESSAO 'Entrada' que é igual a "sim" E JUNTAMENTE PEGA OS DADOS DO USUARIO PARA USAR NAS PAGINAS SEGUINTES...

'Segue abaixo

if (rsLogar.eof) Then

Response.Write "ERRO - Login ou Senha incorretos"

Else

Session("entrada") = "sim"
Session("nome") = rsLogar("nome")

Response.redirect("index.asp")


End If

%>

fiz esse formulario e quando envio as informaçoes do login ele deveria pesquisar no banco de dados se esta OK e liberar a pagina restrita...

esta acontencendo o seguinte

quando digito qualquer coisa no login mesmo que nao seja login valido cadastrado no BD ele libera acesso a pagina restrita

e quando nao digito nada no login e clico no botao enviar ele nao faz nada!!!

ou seja, ele nao esta verificando o banco de dados para dizer se o login esta valido ou nao!!!

quem baixar o arquivo esta funcionando da seguinte forma:

primeiro você executa o arquivo form.asp que vai abrir a tela de login e depois q você digitar as informaçoes de login nessa tela ela vai encaminhar para logar.asp que fara acesso ao BD

quem quiser baixar o arquivo esta no link para download

agradeço muito quem ajudar!!

mostra o seguinte erro qnd tento logar

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

/logar.asp, linha 7

filipefurriel · Setembro 25, 2012

Cara, se liga,

faz form com usuario e senha, consecutivamente, text e password ...

No página de recebimento, pegue os values em request.Form e faça condição se existe valor...existindo, faça busca em bd para comparar valores, e ao mesmo tempo declare uma session padrão para true se bater valores, e false se não. Assim, faça uma if com o session padrão por meio de um include no topo de tds as páginas p q se for true, pode entra, senão, direciona para login errado.

igadino · Setembro 26, 2012

Cara testa esse ai so adptar da sua maneito

<%
   dim erro
   erro = true
   mensangem = ""
   dim pesq
dim conn
Set conn = Server.CreateObject("ADODB.CONNECTION")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" 	&Server.MapPath("../db/teste.mdb")
if request("entApelido")<>"" and request("entSenha")<>"" then
   pesq="select * from Cad_usuario where usuario = '"&request("entApelido")&"'"
   Set Usuarios = conn.Execute(pesq)
     if not Usuarios.eof then
      	pesq="select * from Cad_usuario where senha = '"&request("entSenha")&"'"
   		Set Usuarios = conn.Execute(pesq)
     		if not Usuarios.eof then
      'Se login e senhas corretos
   Session("id") = Usuarios("id")
      Session("usuario") = request("entApelido")
   Session("senha") = request("entSenha")
   Session("email") = Usuarios("email")
   response.Redirect("consulta1_1.asp")
 		else
		  erro=true 
      	   mensagem= "Senha não confere"
		 end if
 else
 erro=true
      	   mensagem= "Usuario não confere"
 end if
 	Usuarios.Close
   	set Usuarios=nothing 
       conn.close
       set conn=nothing   	 
end if
%>

<html>
<head>
<meta http-equiv="Page-Enter" content="blendTrans(Duration=1.10)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=1.10)">
<title>Alteração de dados</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function entrar() {
if (document.mural.entApelido.value=="")
{
alert("ATENÇAO\n\n Informe o nome do usuario");
document.mural.entApelido.focus();}
else
if (document.mural.entApelido.value.length>15)
{
alert("ATENÃO\n\n O Campo usuário tem que ter no máximo 15 digitos");
document.mural.entApelido.focus();}
else
if (document.mural.entSenha.value==""){
alert("ATENÇAO\n\n Informe a senha");
document.mural.entSenha.focus();}
else
if (document.mural.entSenha.value.length<6)
{
alert("ATENÃO\n\n A senha tem que ter no minimo 06 digitos");
document.mural.entSenha.focus();}
else
if (document.mural.entSenha.value.length>15)
{
alert("ATENÃO\n\n A senha tem que ter no máximo 15 digitos");
document.mural.entSenha.focus();}
else
document.mural.submit();
}
-->
</script>


</head>

<body topmargin="4" leftmargin="6">

<form name="mural" method="post" action="loginValida.asp">
<table width="323" border="1" align="center" bordercolor="#006699" bgcolor="#DDEEFF">
<tr><td align="center"><font color="#084E8D" face="verdana"><h2>Area Restrita</h2></font></td></tr>
<tr><td  colspan="2" bgcolor="#FF0000"><font color="#ffffff" face="verdana">
<%if erro then
response.write(mensagem)
end if%></font></td></tr>
<tr><td><HR SIZE="1" color="#df0024"></td></tr>
<tr><td><HR SIZE="1" color="#df0024"></td></tr>
<tr><td>
<table border="1" bordercolor="#006699" bgcolor="#DDEEFF" align="center">
<tr><td><font color="#084E8D" size="3" face="verdana">Usuario:</font></td><td><input type="text" size="35" name="entApelido"></td></tr>
<td><font color="#084E8D" size="3" face="verdana">Senha:</font></td><td><input type="password" size="25" name="entSenha"></td></tr>
<tr><td colspan="2" align="center"><input type="button" onClick="entrar()" value="LOGIN" name="entOK"> <input type="button" value="Cancelar" name="B1" onClick="window.location='recado.asp'"></td></tr>
</table>

</td></tr>

</table>
</form>
<script language="JavaScript" type="text/JavaScript">
<!--
document.mural.entApelido.focus();
-->
</script>
</body>
</html>

xanburzum · Setembro 26, 2012

olha este tutorial

Gilberto Jr · Setembro 26, 2012

Bom dia.... Segue como que faz o login no asp.

<%
dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 

'Abrimos uma conexão com o banco de dados - [iMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=severpraconexao;PORT=3306;DATABASE=bancodedados;USER=user;PASSWORD=senha;OPTION=3;")
   'arquivo que checa se existe o login e a senha do usuario que esta tentando logar
response.ContentType="text/html; charset=ISO-8859-1"    
   dim email, pass
       email     = replace(request.Form("user"),"'","")
       pass    = replace(request.Form("senha"),"'","")
   dim rs

       set rs = conn.execute("select nomeexibicao, login, senha from usuarios where login='"&email&"' and senha='"&MD5(pass)&"' and status=1")

       if rs.eof = false then
           session("acessoadmin") = true
           session("nome") = rs("nomeexibicao")
           session("user") = rs("login")
           session("pass") = rs("senha")
           session.Timeout=1000
       ELSE
           session("acessoadmin") = false
           session("msgerro") = "<font color='red'><img src='img/ico_erro.gif' /> Login ou senha invalido.</font>"
       end if

conn.Close()
'Destruímos o objeto
Set conn = Nothing    
   response.Redirect("default.asp")
%>

Ve se te ajuda.

xanburzum · Setembro 26, 2012

é mais seguro e rápido verificar apenas um item na SQL

<%

call abreconexao

‘cria o recordset

Set rs=Server.CreateObject(“ADODB.Recordset”)

SQL=”SELECT * FROM login WHERE login=’”&varlogin&”‘”

rs.open SQL,conexao,1,3

if rs.eof then

response.redirect(“logincli_form_treina.asp?msgeof=3″)

else

if Lcase (varsenha) <> Lcase(rs(“senha”)) then

response.redirect(“logincli_form_treina.asp?msgeof=4″)

session(“logado”)=False

else

session(“logado”)=True

session(“senha”)=varsenha

session(“login”)=varlogin

response.Redirect(“administracao_treina.asp”)

end if

end if

set rs=nothing

call fechaconexao%>

Entrar

Arquivado

Login em asp nao da certo

Recommended Posts

Leonardo Thompson 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipefurriel 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

igadino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante