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

Eu Tenho Um Sistema De Login, Mas Ele Naum


victormartins

Pergunta

form.asp

<form method=post action="login.asp">
<table border=0 width="80%" align=center>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">Usuário:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="Login" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">Senha:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=password name="Senha" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  </font>
</table>
<center><input type=submit name=submit value=Logar style="{<font-family:Arial; font-size:12}"></center>
</form></p>
login.asp
<%

set conexao = server.createObject("adodb.connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("login.mdb")

sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'"

set rsLogin = conexao.execute(sql)

Login = rsLogin("login")
Senha = rsLogin("senha")

if not rsLogin.eof then

Session("login")=TRUE
Session("senha")=TRUE
Response.Redirect"adminname.asp"

else

Response.Redirect"form.asp"

end if

conexao.close
rsLogin.close
set conexao = nothing
set rsLogin = nothing

%>
adminname.asp
<html>
<head>
<title>Cadastro de membros</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<frameset rows="*,140" frameborder="NO" border="0" framespacing="0" cols="*"> 
  <frame name="centro" src="centroadmin.asp">
  <frame name="menu" scrolling="NO" noresize src="menuadmin.asp">
</frameset>
<noframes> 
<body bgcolor="#FFFFFF" text="#000000">
</body>
</noframes> 
</html>

se precisar de outras pags me avisem!!

Me ajudem por favor!!!

Link para o comentário
Compartilhar em outros sites

Posts Recomendados

  • 0

adminname.asp

<%

if session("login") <> true then

  response.redirect "form.asp"

end if

%>

<html>

<head>

<title>Cadastro de membros</title>

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

</head>

<frameset rows="*,140" frameborder="NO" border="0" framespacing="0" cols="*">

<frame name="centro" src="centroadmin.asp">

<frame name="menu" scrolling="NO" noresize src="menuadmin.asp">

</frameset>

<noframes>

<body bgcolor="#FFFFFF" text="#000000">

</body>

</noframes>

</html>

Link para o comentário
Compartilhar em outros sites

  • 0

Foi o que eu disse acima... nas paginas restritas você tem que no inicio fazer uma verificação, uma ideia:

contatos.asp

if session = "" then
response.redirect "default.asp?status=false"
end if
default.asp
if request.querystring("status") = false then
response.write "Você precisa fazer o login para acessar as páginas"
end if

Link para o comentário
Compartilhar em outros sites

  • 0

quando eu faco o login e ele redireciona para adminname.asp

ele da esse erro:

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

--------------------------------------------------------------------------------

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a dragonxt600 home page e procure os links para as informações desejadas.

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01C2)

Número de argumentos incorreto ou atribuição de propriedade inválida

/Buscaasp/adminname.asp, line 2

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; iebar; .NET CLR 1.1.4322; FDM; .NET CLR 2.0.50215)

Página:

GET /Buscaasp/adminname.asp

Link para o comentário
Compartilhar em outros sites

  • 0

Victor, eu fiz um simulado com os arquivos que você passou. E aqui, se eu digito no endereço direto o arquivo adminname.asp ele não abre.

Faça isso no começo do arquivo adminname.asp

<%
if session("login") = "" then
response.redirect "form.asp"
else
response.write "sessão ativa"
end if
%>

Se você tentar abrir direto e estiver escrito "Sessão Ativa" é porque já foi criado a sessão e realmente não vai redirecionar para form.asp.

Ou seja, se você abriu o IE, fez login. depois tentou abrir direto o arquivo adminname.asp realmente ele vai acessar sem problemas porque você já abriu a sessão!

Faça este teste: Abra uma nova janela IE, digite http://localhost/adminname.asp (coloque o caminho certo da sua pasta) e ele deve redirecionar para form.asp porque ainda não tem sessão criada.

Outra coisa, no arquivo login.asp altere isso:

if not rsLogin.eof then

Login = rsLogin("login")

Senha = rsLogin("senha")

Session("login")=TRUE

Session("senha")=TRUE

Response.Redirect"adminname.asp"

else

.

.

Porque se for falso o login, vai gerar erro tá. wink.gif

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...