[Resolvido] Mostrar usuario logado

Isabelle_Andrade · Maio 25, 2011

Oi pessoal,

Estou tentando mostrar no topo da minha tela (após o login) o nome do usuário que está logado, mas não estou conseguindo.

O código que faz a verificação do usuário é esse:

sql.asp

Dim user, pass
user = Request.Form("user")
pass = Request.Form("pass")

Dim strConn
Call Abre_con
Dim sql
Dim rs

Sub verifica_usuario(user, pass)

sql = "SELECT nome, tipo_user FROM Usuario WHERE senha = '" &  Encripta(pass) & "' AND login='" & user & "'"
rs.Open sql,strConn,3,1

If rs.eof Then
	login = false
Else
	login = true
End If

If (login = true and rs("tipo_user") = "u") or (login = true and rs("tipo_user") = "a") Then
	Session("logado") = true		Response.redirect("principal.asp")
Elseif (login = true and rs("tipo_user") = "c") or (login = true and rs("tipo_user") = "a") Then
	Session("logado") = true
	Response.redirect("../coord/pricipal_coord.asp")
Else
	Response.redirect("index.asp")
End If

end Sub


%>

no topo eu chamo através de um include a página com o código acima.

O que posso fazer pra mostrar o nome do usuário?

Marrabel · Maio 25, 2011

Oi pessoal,

Estou tentando mostrar no topo da minha tela (após o login) o nome do usuário que está logado, mas não estou conseguindo.

O código que faz a verificação do usuário é esse:

sql.asp
Dim user, pass
user = Request.Form("user")
pass = Request.Form("pass")

Dim strConn
Call Abre_con
Dim sql
Dim rs

Sub verifica_usuario(user, pass)

sql = "SELECT nome, tipo_user FROM Usuario WHERE senha = '" &  Encripta(pass) & "' AND login='" & user & "'"
rs.Open sql,strConn,3,1

If rs.eof Then
	login = false
Else
	login = true
End If

If (login = true and rs("tipo_user") = "u") or (login = true and rs("tipo_user") = "a") Then
	Session("logado") = true		Response.redirect("principal.asp")
Elseif (login = true and rs("tipo_user") = "c") or (login = true and rs("tipo_user") = "a") Then
	Session("logado") = true
	Response.redirect("../coord/pricipal_coord.asp")
Else
	Response.redirect("index.asp")
End If

end Sub


%>
no topo eu chamo através de um include a página com o código acima.

O que posso fazer pra mostrar o nome do usuário?

Eu postei uma dúvida semelhante, que talvez possa ajudá-la

Você pode criar uma session que tem como valor um recordset da sua tabela de usuarios

Por exemplo:

sql="SELECT * FROM usuarios"
set rsNome=conn.execute(sql)
Session("nome")=rsNome("nome")

onde o rsNome=("nome") corresponde ao nome da sua tabela onde consta o nome do usuário

E na página onde o usuario é autenticado mostrar o nome do mesmo:

Seja Bem-Vindo Usuario <%=Response.Write(Session("nome"))%>

Aqui deu certo, tenta adaptar ao seu código que talvez funcione.

Espero ter ajudado.

xanburzum · Maio 25, 2011

Olha este exemplo:

formulário

<% Option Explicit 
'declara as var
dim varmsgeof, bc, data
'recupera a msgeof do erro no login_action
varmsgeof=request.querystring("msgeof")%>

<script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Erro","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>
<script language="JavaScript">
function novajan1(){
window.open("terminar_treina.asp","Encerrar", "width=260,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<script language="JavaScript">
function novajan2(){
window.open("efetuarlog_treina.asp","Encerrar", "width=150,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<%
Select case varmsgeof
case 1 'login vazio
response.write("<script>novajan();</script>")
case 2 'senha vazia
response.write("<script>novajan();</script>")
case 3 'login inválido
response.write("<script>novajan();</script>")
case 4 'senha incorreta
response.write("<script>novajan();</script>")
case 5'se user jah logado
response.write("<script>novajan();</script>")
case 6   ' user naun está logado,por isso naun tem permissaun para entrar em atualizacaun/suporte
response.write("<script>novajan2();</script>")
end select %>

<HTML>
<HEAD>
<TITLE>Login Clientes</TITLE>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<table width="100%" border="0" height="445">
 <tr> 
   <td height="378"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#666666"><b><font color="#336699">:: 
       Senhores Clientes para sua maior <br>
       segurança solicitamos sua identificação <br>
       para poder ter acesso a área restrita a você.</font></b></font><font face="Arial, Helvetica, sans-serif" size="1" color="#666666"><b> 
       </b></font></p>
     <p> </p>
     <form name="form1" method="post" action="logincli_action_treina.asp">
       <table width="85%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699">
         <tr bgcolor="#666666"> 
           <td width="4%" bgcolor="#666699"><img src="imgs/curva.gif" width="10" height="19"></td>
           <td width="96%" bgcolor="#336699"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b><font size="3">:: 
               </font>Porfavor efetue seu login</b></font></div></td>
         </tr>
         <tr bgcolor="#666666"> 
           <td width="4%" bgcolor="#336699"> </td>
           <td width="96%" bgcolor="#336699"> </td>
         </tr>
       </table>
       <table width="85%" border="0" cellspacing="0">
         <tr bgcolor="#336699"> 
           <td colspan="3"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b> Login: 
               
             <input name=login size="12" maxlength="12">
             </b></font></td>
         </tr>
         <tr bgcolor="#336699"> 
           <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b> Senha: 
             <input type=password name=senha size="12" maxlength="12">
                <span class="preto"> 
             <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
             </span></b></font></td>
         </tr>
         <tr bgcolor="#336699"> 
           <td height="2" width="41%"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><strong>Esqueceu 
               a senha clike <a href="esqsenha_form_treina.asp">Aqui</a></strong></font></div></td>
           <td width="42%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><b>Para 
               efetuar Logo-off clique</b></font></div></td>
           <td height="2" width="17%"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0','width','35','height','19','src','logoff','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','scale','exactfit','bgcolor','#336699','movie','logoff' ); //end AC code
           </script>
             <noscript>
             <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="35" height="19">
               <param name=movie value="logoff.swf">
               <param name=quality value=high>
               <param name="BGCOLOR" value="#336699">
               <param name="SCALE" value="exactfit">
               <embed src="logoff.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" scale="exactfit" width="35" height="19" bgcolor="#336699"> </embed>
             </object>
             </noscript>            </td>
         </tr>
       </table>

     </form>
     </td>
 </tr>
</table>
</BODY></HTML>

action

<% Option Explicit
'declara as var
dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data
'recupera as var
varlogin=Trim(request.form("login"))
varsenha=Trim(request.form("senha"))
varlogin=Replace(varlogin,"'","")
varsenha=Replace(varsenha,"'","")
if varlogin="" then
response.redirect("logincli_form_treina.asp?msgeof=1")
end if
if varsenha="" then
response.redirect("logincli_form_treina.asp?msgeof=2")
end if
if Session("logado")=True then
response.redirect("logincli_form_treina.asp?msgeof=5")
end if 
%>
<!--#include file="conn/conexao1.asp"-->
<%
call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
rs.open SQL,conexao,1,3
if rs.eof then
   response.redirect("logincli_form_treina.asp?msgeof=3")
else
	if Lcase (varsenha) <> Lcase(rs("senha")) then
		response.redirect("logincli_form_treina.asp?msgeof=4")
		session("logado")=False
	else
		session("logado")=True
		session("senha")=varsenha
		session("login")=varlogin
		response.Redirect("administracao_treina.asp")
	end if
end if
set rs=nothing
call fechaconexao%>

Justin Bieber · Maio 25, 2011

No Script que você faz o Login, coloque:

Session(Rst("Nome"))

Você vai pegar isso do seu Select.

Daí na outra página só fazer:

Response.Write("Oiiii" & Session("Nome"))

Isabelle_Andrade · Maio 25, 2011

Funcionou!!!

Obrigada gente!

Marrabel · Maio 25, 2011

Funcionou!!!

Obrigada gente!

Que bom que conseguiu!

Isabelle, se não for nenhum incomodo pra você, seria legal postar o código para que outras pessoas possam sanar a dúvida também.

Só uma sugestão

Entrar

Arquivado

[Resolvido] Mostrar usuario logado

Recommended Posts

Isabelle_Andrade 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Justin Bieber 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Isabelle_Andrade 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marrabel 20

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante