Jump to content
Fórum Script Brasil
  • 0

Login

[ GuTo ]

Asked by [ GuTo ],

 Share

Question

[ GuTo ]

[ GuTo ]

Posted
Posted

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 to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

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 to comment
Share on other sites
  • 0
pgmador

pgmador

Posted
Posted

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 to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

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 to comment
Share on other sites
  • 0
Tarkan

Tarkan

Posted
Posted

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 to comment
Share on other sites
  • 0
[ GuTo ]

[ GuTo ]

Posted
  • Author
Posted

Valeu aí Tarkan!

Funfou que foi uma beleza!

Te devo uma!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...