• 0
Sign in to follow this  
ViniciusJau

Destacar Variavel

Question

e ai pessoal, seguinte

eu tenho um sistema de login, e uso esse cod pra dar as boas vindas:

<%
If IsEmpty(Session("login")) Then
Response.redirect("login_errado.asp")
Else
Response.Write("<b>Bem Vindo:</b><br> <u>" & Session("nome_completo"))
End if
%>

dai ele Exibe assim pra mim

Bem Vindo:ViniciusJau

eu queria saber como eu faço pra toda vez que aparecer meu nome no restante da pagina ele ficar sublinhado tem horas que ele aparece como resultado de copnsulta de um BD

alguém tem alguma idéia ?

Share this post


Link to post
Share on other sites

24 answers to this question

Recommended Posts

  • 0

O segredo está na Session("nome_completo")

ela vem atribuida de algum lugar, de onde vier coloque:

sei q vem duma tabela

Session("nome_completo")="<u>"&Rs("nome_completo")&"</u>"

reparou q é lá aonde você atribui o valor da Session?

pois é , agora onde você chama-la virá sublinhada.

agora não mais precisa colocar a tag html(<u></u>) asiim:

<%

If IsEmpty(Session("login")) Then

Response.redirect("login_errado.asp")

Else

Response.Write("<b>Bem Vindo:</b><br>" & Session("nome_completo"))

End if

%>

fui claro? senão post ai!

Kwead.com ano'5

Share this post


Link to post
Share on other sites
  • 0

Se há hipotese de as vezes não ser uma Session, ou seja, uma consulta direta do db.

Coloque dentro do Seu banco de dados no registro onde possui seu nome as tags:

<u>Seu nome</u> (dentro do registro)

OK?

Share this post


Link to post
Share on other sites
  • 0

putz cara, masi meu BD tem um monte de registro com meu nome... eu queria fazer isso no codigo e não no DB to pensando em alguma coisa aqui.... sei lá tipo usnaod replace

Share this post


Link to post
Share on other sites
  • 0

ah c num falou biggrin.gif

tente isso:

coloque uma function no topo da página ou include, você escolhe:

function sublinhado(valor)

sublinhado = replace(valor,"ViniciusJau","<u>ViniciusJau</u>")

end function

Response.Write (sublinhado("O meu nome é ViniciusJau "))

e até Response.Write (sublinhado(Rs("campo_nome"))) e assim consecutivamente e cada campo que possa conter Seu nome.

kwead.com ano´5

Share this post


Link to post
Share on other sites
  • 0

eu montei meu cod + ou - assim:

<%

If IsEmpty(Session("login")) Then

Response.redirect("login_errado.asp")

Else

Response.Write("<b>Bem Vindo:</b> <u>" & Session("nome_completo"))

End if

%>

.

.

.

<%

function destaca(sub)

sub = replace(sub,"Session("nome_completo")","<b> Session("nome_completo")<b> ")

end function

%>

.

.

.

<%=destaca(rs("apelido"))%>

mais ele dá erro, será que eu to chamando a função errado ou eu montei o cod errado !?!?

Share this post


Link to post
Share on other sites
  • 0

Você montou a função errada. cool.gif

Nesse caso deve ficar assim:

<%

function destaca(sub)

sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>")

end function

%>

obs: as tags <b></b>são de negrito, e <u></u> sublinhado

Caso for sublinhado substitua...

Ok?

Share this post


Link to post
Share on other sites
  • 0

o meu erro é montando a função:

saca só:

Microsoft VBScript compilation error '800a03f2'

Expected identifier

/teste/index2.asp, line 57

function destaca(sub)

-----------------^

a linha do erro é essa:

<%

function destaca(sub) ' linha do erro

sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>")

end function

%>

Share this post


Link to post
Share on other sites
  • 0

<%
function destaca(frase)
   destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")
end function
%>

para usar:

response.write destaca(Rs("campo"))

Share this post


Link to post
Share on other sites
  • 0

o erro tá dando porque a palavra sub é reservada do asp, não pode ser usada como variavel entaum a troque:

<%

function destaca(sub)

sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>")

end function

%>

por:

<%

function destaca(frase)

sub = replace(frase,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>")

end function

%>

Share this post


Link to post
Share on other sites
  • 0

ixe galera, não deu muito certo não....

saca só meu cod:

<%

function destaca(frase)

  destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")

end function

%>

.

.

.

<%

set rs = objConnection.Execute("SELECT etc... etc....")

%>

<table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0">

<%

If not rs.EOF Then

Do until rs.eof

if count mod 2 = 0 then

%>

<tr bgcolor="#FFFFFF">

<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>

                          %&nbsp; </font></div></td>

<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>

</tr>

<%else%>

<tr bgcolor="#F0F0F0">

<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>

                            %&nbsp; </font></div></td>

<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>

</tr>

<% end if

count = count + 1

%>

<%  rs.MoveNext

  Loop

  End if

%>

será que tem alguma coisa haver o lance das linhas uma de cada cor ???? acho que estou chamando a função errada

Share this post


Link to post
Share on other sites
  • 0
o q acontece??

da erro??

não mostra nada???

acontece nada... huh.gif como se não tivece o codigo .....

team algum outro jeito de eu fazer isso ?

Share this post


Link to post
Share on other sites
  • 0

Xiii !!!!

fiz um teste com a função e funfou da uma olhada:

function destaca(frase)
  destaca = replace(frase, palavra, "<b>" & palavra & "<b>")
end function

palavra="cyberalexxx"

response.write destaca("testando o código do cyberalexxx")

Share this post


Link to post
Share on other sites
  • 0

deve ser aqueles erros de falta de atenção heheh.....

vou olhar com calma.... dai posto aqui cara

mais achu que é porque é uma consulta que vem do DB

o estranho é que eu testei assim também:

<%

function destaca(frase)

  destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")

end function

response.write destaca(Session("nome_completo"))

%>

e ele deu certo...

Share this post


Link to post
Share on other sites
  • 0
Guest - repolho -

não está funcionando porque central é diferente da session

Share this post


Link to post
Share on other sites
  • 0
não está funcionando porque central é diferente da session

eu percebi....

eu tentei fazer isso , mais não funcionou .. saca só:

<%

If IsEmpty(Session("login")) Then

Response.redirect("login_errado.asp")

Else

Response.Write("<b>Bem Vindo:</b> <u>" & Session("nome_completo"))

End if

function destaca(frase)

  destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")

end function

dai na hora de destacar:

<%

set rs = objConnection.Execute("SELECT (max(previstoxrealizado.realizado) *100 / metas.vlr_meta) AS TOTAL, metas.central, metas.mes FROM previstoxrealizado, metas WHERE previstoxrealizado.mes = metas.mes and previstoxrealizado.central = metas.central and metas.mes = '" & mes & "' GROUP BY central ORDER BY Total DESC ")

%>

<table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0">

<%

If not rs.EOF Then

Do until rs.eof

if count mod 2 = 0 then

%>

<tr bgcolor="#FFFFFF">

<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>

                          %&nbsp; </font></div></td>

<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>

</tr>

<%else%>

<tr bgcolor="#F0F0F0">

<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>

                            %&nbsp; </font></div></td>

<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>

</tr>

<% end if

count = count + 1

%>

<%  rs.MoveNext

  Loop

  End if

%>

na verdade esse campo <%=destaca(rs("central"))%> é um campo que tem o mesmo nome da session , achei que eles sendo iguais funcionaria o replace, só que não funcionou...

na verdade eu gostaria que minha pagina ficace assim:

Olá Bem Vindo Apae Jaú

Resultados:

%      NOME

21%  Apae SP

22%  Apae Jaú

33%  Apae MG

Share this post


Link to post
Share on other sites
  • 0

ixee também não funcionou não cara..

o problema realmente é esse negocio que deixa cada linha de uma cor, eu montei um codigo aqui e não usei ele e funcinou na boa.. que droga ... unsure.gif

Share this post


Link to post
Share on other sites
  • 0

TEnte a última vez:

<%

function destaca(frase)

destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")

end function

%>

.

.

.

<%

set rs = objConnection.Execute("SELECT etc... etc....")

%>

<table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0">

<%

If not rs.EOF Then

cor= "#FFFFFF"

while not rs.eof

if cor <> "#FFFFFF" then

cor="#FFFFFF"

else

cor = "#F0F0F0"

end if

%>

<tr bgcolor="<%=cor%>">

<td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>

%&nbsp; </font></div></td>

<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>

</tr>

<% rs.MoveNext

wend

End if

%>

Share this post


Link to post
Share on other sites
  • 0

O problema está sendo entaum no html não no asp.

tente assim:

TEnte a última vez:

<%

function destaca(frase)

destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>")

end function

%>

.

.

.

<%

set rs = objConnection.Execute("SELECT etc... etc....")

%>

<table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0">

<%

If not rs.EOF Then

cor= "#FFFFFF"

while not rs.eof

if cor <> "#FFFFFF" then

cor="#FFFFFF"

else

cor = "#F0F0F0"

end if

%>

<tr>

<td bgcolor="<%=cor%>" width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%>

%&nbsp; </font></div></td>

<td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td>

</tr>

<% rs.MoveNext

wend

End if

%>

Não esqueça do:

</table>

Share this post


Link to post
Share on other sites
  • 0

mesma coisa não funcionou.. eu montei outro codigo assim:

<%

function destaca(frase)

  destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "</b>")

end function

%>

<%

Set conn = createobject("adodb.connection")

Conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=host;PORT=3306;DATABASE=vinicius; USER=usuario;PASSWORD=senha;OPTION=3;"

Set rs = Conn.Execute("SELECT * FROM agenda_dia ORDER BY Id ")

If not rs.EOF Then

Do until rs.eof

%>

<%=destaca(rs("central"))%> - <%=rs("telefone")%><br>

<hr>

<%  rs.MoveNext

  Loop

Else

  Response.Write("O banco de dados ainda está sem registros.")

End if

Conn.Close()

%>

descobri o erro, é por causa do meu sql

olha só como é o sql dessa pagina que não está rodando ?:

<%

set rs = objConnection.Execute("SELECT (max(previstoxrealizado.realizado) *100 / metas.vlr_meta) AS TOTAL, metas.central, metas.mes FROM previstoxrealizado, metas WHERE previstoxrealizado.mes = metas.mes and previstoxrealizado.central = metas.central and metas.mes = '" & mes & "' GROUP BY central ORDER BY Total DESC ")

%>

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this