Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Anakia

[Resolvido] Sistema de Login

Por , em ASP Clássico

Recommended Posts

Anakia    0

Anakia
Postado

Eu gostaria de saber como eu posso armazenar o dia e o horario em que a pessoa efetuou o login no meu sistema

 

o codigo q eu tenho é o seguinte:

 

INDEX.ASP

 

ASP
<html>

<head>

<title>MicroWay Dual System - 015.001</title></head>

<body text="#000000" bgcolor="#FFFFFF"  leftmargin="0" topmargin="0"  marginwidth="*" marginheight="*">

<style>

BODY {SCROLLBAR-ARROW-COLOR: #EEEEEE; SCROLLBAR-TRACK-COLOR: #EEEEEE; SCROLLBAR-BASE-COLOR: #8888BB; scrollbar-dark-shadow-color: #0A5C0A}

a:link {text-decoration: none; color: #000077}

a:hover {text-decoration: none; color: #000077}

a:visited {text-decoration: none; color: #000077}

font.normalw {font-size:8pt; font-family:Tahoma,Arial; color: #FFFFFF}

font.microway {font-size:14pt; font-family: Time New Roman; font-weight:bold; font-style: italic; color: #0000CC}

font.dualsystem {font-size:9pt; font-family: Verdana,Tahoma,Arial; font-weight:bold; color: #000000}

font.form {font-size:7pt; font-family:Tahoma,Arial; color: #000077}

.edit {border:solid; border-width:1px; border-bottom-color:#CCCCCC; border-left-color:#909090; border-top-color:#909090; border-right-color:#CCCCCC; color:#000000; font-size:9px; font-family:tahoma,arial; font-weight:bold; height:14px;}

.buttonlogin {border:solid; border-width:1px; border-bottom-color:#808080; border-left-color:#FFFFFF; border-top-color:#FFFFFF;  border-right-color:#808080; color:#000000; font-size:9px; font-family:verdana,tahoma,arial; height:16px; background-color:#D4D0C8}

</style>

<p> </p>

<p> </p>

<form name="FormAluno" method="post" action="login.asp">

<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">

  <tr>

      <td width="370" height="20" valign="middle" background="Imagens/faixa_metalica.gif">

          <img src="Imagens/mini_logo.gif" height="20">

      </td>

      <td width="60" height="20" valign="middle" background="Imagens/faixa_metalica.gif">

        <div align="right"><font class="form"><b>Matrícula</b> </font></div>

      </td>

      <td width="80" height="20" valign="middle" background="Imagens/faixa_metalica.gif">

        <div align="left"><input type="text" name="txt_login" maxlength="6" size="10" class="edit"></div>

      </td>

      <td width="40" height="20" valign="middle" background="Imagens/faixa_metalica.gif">

        <div align="right"><font class="form"><b>Senha</b> </font></div>

      </td>

      <td width="80" height="20" valign="middle" background="Imagens/faixa_metalica.gif">

        <div align="left"><input type="text" name="txt_senha" maxlength="10" size="10" class="edit"></div>

      </td>

      <td width="150" height="20" valign="middle" background="Imagens/faixa_metalica.gif">

        <div align="left"><input type="submit" name="Submit" value="Entrar" class="buttonlogin"></div>

      </td>

         

  </tr>

  <tr>

    <td colspan="6">

      <embed src="Flash/banner_login.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="780" height="250">

      </embed>

    </td>

  </tr>

</table>

</body>

</html>

 

O ACTION DO FORM VAI PESQUISAR NO LOGIN.ASP SE ESTA TUDO OK.

 

ASP
<%

'Efetuando a conexão com a base de dados criada

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

Conn.provider="Microsoft.Jet.OLEDB.4.0"

Conn.connectionstring=Server.Mappath("BD/banco.mdb")

Conn.open

 

'Vamos capturar o login e a senha digitada no firmulário

login2 = Request.Form("txt_login")

senha2 = Request.Form("txt_senha")

 

'Agora verificamos se o usuário e a senha estão corretos

SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "

Set RS = Conn.Execute(SQL)

 

'Caso não esteja correto, indicamos o erro

If RS.EOF Then

  Response.Write "usuário ou senha inválida!"

  Response.End

End If

 

'Se chegou até aqui, é porque o login e senha estão corretos.

'Vamos então verificar o nível de acesso do usuário.

session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas

 

Response.Redirect "adm.asp" 'página restrita

%>

 

O MEU BANCO TEM OS SEGUINTES CAMPOS:

 

- id / Auto

- nome / Texto

- login / Texto

- senha / Texto

- nivel / Número

 

e se estiver beleza vai para a pagina adm.asp

 

ASP
<html>

<body>

<%

'A primeira coisa a ser feita é verificar se o usuário está logado

If session("nivel_acesso") = "" Then

  Response.Write "Você não está logado!"

  Response.End

End If

 

'Vamos então, verificar o nivel de acesso do usuário e inserirmos o conteúdo correspondente

'Aqui, cada um insere o que desejar. Vou deixar em aberto para vocês poderem colocar o que precisam, ok?!

'Vou colocar apenas alguns links, como se fosse um menu        

 

If session("nivel_acesso") = 1 Then 'pagina para administração

 

Response.Redirect "DefaultAdm.asp" 'página Admin                       

 

Elseif session("nivel_acesso") = 2 Then 'pagina para gerenciamento

 

Response.Redirect "DefaultGer.asp" 'página gerenciamento

 

Else 'alunos

 

Response.Redirect "Default.asp" 'pagina para alunos

 

End If

%>

 

 

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado

no final do seu código você bota um insert com os novos campos no bd...hora, data, e id do usuario!declare as variáveisdata = Date()hora = Time()id = Sessao que captura o id!ai seu insert ficaInsert into tabela (data,hora,id) values ("& data &", '"& hora &"', "& id &")qualquer dúvida poste!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Anakia    0

Anakia
Postado

no final do seu código você bota um insert com os novos campos no bd...hora, data, e id do usuario!declare as variáveisdata = Date()hora = Time()id = \\ aqui neste id eu coloco o q?ai seu insert ficaInsert into tabela (data,hora,id) values ("& data &", '"& hora &"', "& id &")\\nao presisa colocar SELECT * FROM O NOME DO BANCO DE DADOS?qualquer dúvida poste!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lostside    0

lostside
Postado

o id seria para identificar qual o utrilizador uqe fez login.se apenas precisar saber a data e hora do ultimo login de cada utilizador adicione a tabela que ja tem uma coluna de data e hora e ai basta actualizar essa coluna de cada vez q o utilizador se log:UPDATE tabela SET data=now() WHERE login = '"&login2&"'

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito