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

Passa Direito


AlexCT

Pergunta

estou afzendo um sistema simples de login,

onde tem um session de erro, caso a senha esteja errada

na pagina de verificação, este codigo confirma quea senha esta ok

verificação

If Not RS.EOF Then
  Session("admin") = True
    
    Set RS = Nothing
    Conn.Close


  Response.Redirect "password.asp"
login
<% response.write Session("erro")%>
só não estou conseguindo fazer caso a pessoa volte a querer entrar na area protegina, passe direito sem ter que fazer o login novamente. o que devo colocar na pagina de login. ------OUTRA-------- estou tentando fazendo uma mensagem de erro do login que apareça abaixo da senha verificacao.asp
Else
   

    Set RS = Nothing
    Conn.Close

  erro= "Incorrect"
  Session("erro")= erro
  Response.Redirect "admin_login.asp"
End If
Mas coloquei na pagina do login
<% response.write Session("erro")%>

só que ela fica depois , queria fazer alguma coisa que ao atualizar ela não apareça mais ou ela fique algum tempo e depois suma.

Qual o comando para ela ficar um 10segundos e sumir?

------OUTRA--------

uma outra duvida o que é?

RS.EOF

e tem outro RS.B.... o que quer em dizer?

e este rs na frente

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Kara, vou tentar explicar:

1) Se o usuário já tiver logado, então "Session("admin") = True", não é isso?

Assim, você poderia verificar:

'Se está logado...
If Session("admin") = True Then

    '... passa direto

'Se não está logado...
Else

    '... verifica usuário
    If Not RS.EOF Then
        Session("admin") = True
        Set RS = Nothing
        Conn.Close
        Response.Redirect "password.asp"
    End If

End If
2) Não entendi muito bem sua dúvida, mas acho que você pode usar um meta refresh, só que vai ficar recarregando toda hora. 3) 'RS' é um nome dado à uma variável, que nesse caso deve ser um objeto ADODB.Recordset. Do mesmo jeito que é 'RS', poderia ser 'Banana':
Dim Banana

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

Banana.Open "SELECT * FROM TABELA"

If Banana.EOF And Banana.BOF Then Response.Write "Tabela vazia"

EOF = 'End of file' (fim do arquivo)

BOF = 'Begin of file' (início do arquivo)

T+

cwbs

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
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...