Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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?
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(){</script>
<script language="JavaScript">
function novajan1(){</script>
<script language="JavaScript">
function novajan2(){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"> </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%>
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"))
Funcionou!!!
Obrigada gente!
>
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
>
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.