Ir para conteúdo
Fórum Script Brasil
  • 0

Login

[ GuTo ]

Perguntado por [ GuTo ],

 Share

Pergunta

[ GuTo ]

[ GuTo ]

Postado
Postado

Olá

Tenho minha página de login funcionando e tudo mais... quando o cara digita o email e senha iguais, redireciona corretamente ele pra página q eu quero, e quando ele digita dados incoretos, aparece a msg de erro corretamente também.

Ok, até aí tudo certo.

Mas eu quero q na página pra onde eu redireciono ele, caso os dados estejam corretos, mostre alguns dados dele.. como nome, apelido, ID, e etc...

Como faço isso?

Fiz isso aki na página mas na hora q ele é redirecionado sempre mostra o else, como se o cara não tivesse sido logado, sendo q ele está sim!!!

<%If Session("auth") = True Then%><%=rs("apelido")%></td>

<td width="13%"><a href="perfil.asp?id=<%=rs("id")%>">Meu Perfil</a></td>

<td width="12%"><a href="logout.asp">Logout</a></td>

<%else%>Visitante</td>

<td width="25%"><a href="adduser.htm">cadastro</a> <a href="login.htm">login</a></td><%end if%>

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

Página login.asp

<%

dsn = "DBQ=" & Server.Mappath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

%>

<%

response.buffer = true

'decleration

dim useraction

dim conn,dsn,rs,sql

'if the user submit the form

useraction = request("action")

select case useraction

case "login"

  email = request.form("email")

  senha = request.form("senha")

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

  Set Rs = Server.CreateObject("ADODB.Recordset")

  Conn.Open dsn

  SQL = "select * from membros where email='"& email &"' and senha='"& senha & "'"

  rs.open sql,conn

  if rs.eof and rs.bof then

   response.write "<center>Usuário ou Senha incorretos! Por favor, cadastre-se!</center>"

  else

   session("auth") = senha

   response.redirect "main.asp"

  end if

end select

%>

<html>

<head>

<title>Chat Canoas</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="http://www.chatcanoas.pop.com.br/styles.css" rel="stylesheet" type="text/css">

<link href="http://www.chatcanoas.pop.com.br/favicon.ico" rel="shortcut icon">

</head>

<body topmargin="0">

<script language="JavaScript">

<!-- Este script e muito mais você encontra GRÁTIS em -->

<!-- Super JavaScripts - http://www.superjavascripts.kit.net -->

<!--

function checkFields() {

  if (document.formulario.email.value == "") {

    alert("Digite seu e-mail");

formulario.email.focus();

    return false;

  }

    if (document.formulario.email.value.indexOf("@", 0) == -1 || document.formulario.email.value.indexOf(".", 0) == -1 || document.formulario.email.value.length <= 10) {

    alert("Digite um e-mail válido");

formulario.email.focus();

    return false;

  }

  if (document.formulario.senha.value == "") {

alert("Digite sua senha");

formulario.senha.focus();

return false;

  }

}

// -->

</script>

<form name="formulario" action="login.asp?action=login" method="post" onsubmit="return checkFields()">

<table align="center" width="135" border="0" bordercolor="#191919" cellspacing="2" cellpadding="1" class="bg1">

  <tr>

    <td align="center" colspan="2"><b>Login</b></td>

  </tr>

  <tr>

    <td align="right">Email:</td>

    <td><input type="text" name="email" size="10" maxlength="50"></td>

  </tr>

  <tr>

    <td align="right">Senha:</td>

    <td><input type="password" name="senha" size="10" maxlength="8"></td>

  </tr>

  <tr>

    <td align="center" colspan="2"><input name="invisivel" type="checkbox" value="1" class="no"> Invisível <input class="botao" type="submit" value="Entrar"></td>

  </tr>

<tr valign="top"><td align="center" colspan="2">&nbsp;<img src="../assets/imagens/menu_seta.gif" border="0" width="5" height="5">&nbsp; <a href="esquecisenha.htm">Esqueci senha</a></td></tr>

</table>

</form>

<p align="center"><a href="reg.asp">Você precisa estar cadastrado para acessar diversas áreas do site.</a></p>

</body>

</html>

main.asp

<%

if session("auth")="" then

response.write "acesso negado"

else

%><%

dim db,rs,sqltop5,sqleventos,sqlniver

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

db.Open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("dados.mdb")

dim i,cor, data_atual

i=0

data_atual=Date

%> 

<html>

<head>

<title>Chat Canoas</title>

<base href="http://www.chatcanoas.pop.com.br/">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

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

<link href="favicon.ico" rel="shortcut icon">

</head>

<body topmargin="0">

<table align="center" border="0" cellspacing="0" cellpadding="1" width="100%">

<tr valign="top">

<td width="25%">IP: <%Response.Write(Request.ServerVariables("REMOTE_ADDR"))%></td>

<td width="50%">Seja bem vindo <%If Session("auth") = True Then%><%=rs("apelido")%></td>

<td width="13%"><a href="perfil.asp?id=<%=rs("id")%>">Meu Perfil</a></td>

<td width="12%"><a href="logout.asp">Logout</a></td>

<%else%>Visitante</td>

<td width="25%"><a href="adduser.htm">cadastro</a> • <a href="login.htm">login</a></td><%end if%>

</tr>

</table>

</body></html><%end if%>

Link para o comentário
Compartilhar em outros sites
  • 0
pgmador

pgmador

Postado
Postado

Só por curiosidade, tente fazer ao contrário.

<%if Session("auth")="" then%>
Visitante</td>
<td width="25%"><a href="adduser.htm">cadastro</a> • <a href="login.htm">login</a></td>
<% else %>
<%=rs("apelido")%></td>
<td width="13%"><a href="perfil.asp?id=<%=rs("id")%>">Meu Perfil</a></td>
<td width="12%"><a href="logout.asp">Logout</a></td>
<% end if %>

Se funcionar assim, na verdade você tem que igualar o valor da sua session ao valor que ela está atualmente, e não a "TRUE".

[]'s

Nelson Soares

http://www.ondagospel.com.br

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

Ok pgamdor, fiz isso... mas não deu certo ainda... achu q eu to errando em mais alguma coisa...

um amigo meu deu uma dica no icq rapidinho e saiu... achu que foi isso mais ou menos...

olhem

<%rs.open "select top 1 * from membros", login,senha, 1, 1

if Session("auth")="" then%>Visitante</td>

<td width="25%"><a href="adduser.htm">cadastro</a> • <a href="login.htm">login</a></td>

<%else%>

<%=rs("apelido")%></td>

<td width="13%"><a href="perfil.asp?id=<%=rs("id")%>">Meu Perfil</a></td>

<td width="12%"><a href="logout.asp">Logout</a></td>

<%end if%>

Agora a nossa conversa no icq
Wolverine: tu abriu o recordset?

Wolverine: tu pode setar o session("auth") pra um valor logico, true ou false

Wolverine: ai tu usa

If Session("auth") Then

Wolverine: Response.Write("visitante")

Wolverine: Else

[ GuTo ]: aind anão... teria de abrir o RS antes de fazer o IF Session("auth") = True ???

Wolverine: Response.Write(Rs!ID & " - " & Rs!Nicknome)

Wolverine: End If

Wolverine: claro

Wolverine: Rs.Open "SELECT;", variaveldobanco, 1, 1

Wolverine: e antes teria q abrir o banco, pra fazer a select

Link para o comentário
Compartilhar em outros sites
  • 0
Tarkan

Tarkan

Postado
Postado

Experimenta fazer do seguinte modo:

- login.asp

<%
dsn = "DBQ=" & Server.Mappath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
<%
response.buffer = true
'decleration
dim useraction
dim conn,dsn,rs,sql
'if the user submit the form
useraction = request("action")
select case useraction
case "login"
  email = request.form("email")
  senha = request.form("senha")
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Conn.Open dsn
  SQL = "select * from membros where email='"& email &"' and senha='"& senha & "'"
  rs.open sql,conn
  if rs.eof and rs.bof then
   response.write "<center>Usuário ou Senha incorretos! Por favor, cadastre-se!</center>"
  else
   session("auth") = 1
   session("id") = rs("id")
   session("apelido") = rs("apelido")
   response.redirect "main.asp"
  end if
end select
%>
<html>
<head>
<title>Chat Canoas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="http://www.chatcanoas.pop.com.br/styles.css" rel="stylesheet" type="text/css">
<link href="http://www.chatcanoas.pop.com.br/favicon.ico" rel="shortcut icon">
</head>

<body topmargin="0">

<script language="JavaScript">
<!-- Este script e muito mais você encontra GRÁTIS em -->
<!-- Super JavaScripts - http://www.superjavascripts.kit.net -->

<!--
function checkFields() { 
  if (document.formulario.email.value == "") {
    alert("Digite seu e-mail");
formulario.email.focus();
    return false;
  }
    if (document.formulario.email.value.indexOf("@", 0) == -1 || document.formulario.email.value.indexOf(".", 0) == -1 || document.formulario.email.value.length <= 10) {
    alert("Digite um e-mail válido");
formulario.email.focus();
    return false;
  }
  if (document.formulario.senha.value == "") {
alert("Digite sua senha");
formulario.senha.focus();
return false;
  }
}
// -->
</script>

<form name="formulario" action="login.asp?action=login" method="post" onsubmit="return checkFields()">
<table align="center" width="135" border="0" bordercolor="#191919" cellspacing="2" cellpadding="1" class="bg1">
  <tr>
    <td align="center" colspan="2"><b>Login</b></td>
  </tr>
  <tr>
    <td align="right">Email:</td>
    <td><input type="text" name="email" size="10" maxlength="50"></td>
  </tr>
  <tr>
    <td align="right">Senha:</td>
    <td><input type="password" name="senha" size="10" maxlength="8"></td>
  </tr>
  <tr>
    <td align="center" colspan="2"><input name="invisivel" type="checkbox" value="1" class="no"> Invisível <input class="botao" type="submit" value="Entrar"></td>
  </tr>
<tr valign="top"><td align="center" colspan="2">&nbsp;<img src="../assets/imagens/menu_seta.gif" border="0" width="5" height="5">&nbsp; <a href="esquecisenha.htm">Esqueci senha</a></td></tr>
</table>
</form>

<p align="center"><a href="reg.asp">Você precisa estar cadastrado para acessar diversas áreas do site.</a></p>

</body>
</html>
- main.asp 
<%
if session("auth") <> 1 then
response.write "acesso negado"
else
%><%
dim db,rs,sqltop5,sqleventos,sqlniver
set db = Server.CreateObject("ADODB.Connection")  
db.Open "provider=microsoft.jet.oledb.4.0;data source="& server.mappath("dados.mdb") 
dim i,cor, data_atual
i=0
data_atual=Date
%>  
<html>
<head>
<title>Chat Canoas</title>
<base href="http://www.chatcanoas.pop.com.br/">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel="stylesheet" type="text/css">
<link href="favicon.ico" rel="shortcut icon">
</head>

<body topmargin="0">

<table align="center" border="0" cellspacing="0" cellpadding="1" width="100%">
<tr valign="top">
<td width="25%">IP: <%Response.Write(Request.ServerVariables("REMOTE_ADDR"))%></td>
<td width="50%">Seja bem vindo <%If Session("auth") = 1 Then%><%=session("apelido")%></td>
<td width="13%"><a href="perfil.asp?id=<%=session("id")%>">Meu Perfil</a></td>
<td width="12%"><a href="logout.asp">Logout</a></td>
<%else%>Visitante</td>
<td width="25%"><a href="adduser.htm">cadastro</a> • <a href="login.htm">login</a></td><%end if%>
</tr>
</table>
</body></html><%end if%>

Abraços e boa sorte!

CIA

:D

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
  • Autor
Postado

Valeu aí Tarkan!

Funfou que foi uma beleza!

Te devo uma!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...