<% acesso=false msg="" if request.form("login") <> "" AND request.form("senha") <> "" then Call verifica else H = Hour(Time) S = Second(Time) If (H >= 5 And S >= 0 )And (H <12 And S <=59) Then msg="Bom dia" ElseIf (H >= 12 And S >= 0 )And (H <17 And S <=59) Then msg="Boa tarde" Else msg="Boa noite" End If msg=msg&" usuário. Bem vindo ao sistema Sala de Aula." end if if acesso then response.redirect("menu_aluno.asp") end if Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" %> Página de Acesso - Logon - Sala de Aula <% If IsEmpty(Session("usuario")) then%> <% end if %> onload="document.forms[0].login.focus()" <% end if %>>
Sala de Aula





<% If Not IsEmpty(Session("usuario")) then%>Logoff<%end if%>
 
 
 

 

 
<% If IsEmpty(Session("usuario")) then%>

<%=msg%>

 
Login:
Senha:
<%else%>
<%end if %>
Caro(a) <%= Session("usuario_nome") %>,
Você já está habilitado(a) pelo sistema a visitar as páginas do Sala de Aula. Esta página, a qual retornou, tem apenas a função de permitir o acesso mediante identificação que, por sua vez, já foi feita.
Se quiser desabilitar-se (logoff) do sistema click aqui, senão retorne às páginas anteriores.

Sistema Sala de Aula

 

Avançar

<% Sub Verifica login = request.form("login") senha = request.form("senha") %> <% msg=" Senha ou Login incorretos! Por favor redigite-os." sql = "SELECT cod,sala,ativa,habilitado,nome_sala,nome,master,poder FROM consulta_usuarios where login = '"&login&"' AND senha = '"&senha&"'" Set usuario = Conexao.Execute(sql) if Not usuario.eof then if usuario("habilitado") then 'Aluno habilitado? if Not usuario("master") then 'Não é master? if usuario("ativa") then 'Sala ativa? acesso = true Session("login") = login Session("usuario") = usuario("cod") Session("usuario_nome") = usuario("nome") Session("master") = false Session("sala") = usuario("sala") Session("sala_nome") = usuario("nome_sala") sql = "SELECT atual,ultimo,login,quantidade FROM acessos where login = '"&Session("login")&"'" Set acessos = Conexao.Execute(sql) agora=now if Not acessos.eof then ultimo=acessos("atual") Conexao.Execute "UPDATE acessos SET atual = '"&agora&"', ultimo = '"&ultimo&"', quantidade= quantidade+1 WHERE login = '"&Session("login")&"'" session("horario")=agora else Conexao.Execute "INSERT INTO acessos (atual,ultimo,login,quantidade) VALUES ('"&agora&"','"&agora&"','"&Session("login")&"',1)" end if session("horario")=agora Set acessos = Nothing else msg ="Prezado(a) "&usuario("nome")&".
A Sala "&usuario("nome_sala")&" está desativada." end if else acesso = true Session("login") = login Session("usuario") = usuario("cod") Session("usuario_nome") = usuario("nome") Session("master") = true Session("poder") = usuario("poder") Session("sala") = usuario("sala") Session("sala_nome") = usuario("nome_sala") sql = "SELECT atual,ultimo,login,quantidade FROM acessos where login = '"&Session("login")&"'" Set acessos = Conexao.Execute(sql) if Not acessos.eof then ultimo=acessos("atual") agora=now Conexao.Execute "UPDATE acessos SET atual = '"&agora&"', ultimo = '"&ultimo&"', quantidade= quantidade+1 WHERE login = '"&Session("login")&"'" session("horario")=agora else agora=now Conexao.Execute "INSERT INTO acessos (atual,ultimo,login,quantidade) VALUES ('"&agora&"','"&agora&"','"&Session("login")&"',1)" end if Set acessos = Nothing response.redirect("adm/menu_adm.asp") end if else msg="Prezado(a) "&usuario("nome_aluno")&".
Sua conta na sala "&usuario("nome_sala")&" está bloqueada." end if end if Set Conexao= Nothing End Sub %>