Destacar Variavel

ViniciusJau · Abril 5, 2005

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 ?

aferlim · Abril 5, 2005

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

aferlim · Abril 5, 2005

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?

ViniciusJau · Abril 5, 2005

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

aferlim · Abril 5, 2005

ah c num falou

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

ViniciusJau · Abril 6, 2005

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 !?!?

aferlim · Abril 6, 2005

Você montou a função errada.

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?

Romulo OS · Abril 6, 2005

usa replace

ViniciusJau · Abril 6, 2005

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
%>

cyberalexxx · Abril 6, 2005

usa replace

é o que a função esta fazendo.

cyberalexxx · Abril 6, 2005

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

para usar:

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

aferlim · Abril 6, 2005

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

%>

ViniciusJau · Abril 6, 2005

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)%>
%  </font></div></td>
<td width="221"><font face="verdana" size="1"> <%=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)%>
%  </font></div></td>
<td width="221"><font face="verdana" size="1"> <%=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

cyberalexxx · Abril 6, 2005

o q acontece??

da erro??

não mostra nada???

ViniciusJau · Abril 6, 2005

o q acontece??
da erro??
não mostra nada???

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

team algum outro jeito de eu fazer isso ?

cyberalexxx · Abril 6, 2005

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")

ViniciusJau · Abril 6, 2005

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...

Abril 7, 2005

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

ViniciusJau · Abril 7, 2005

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)%>
%  </font></div></td>
<td width="221"><font face="verdana" size="1"> <%=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)%>
%  </font></div></td>
<td width="221"><font face="verdana" size="1"> <%=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

aferlim · Abril 7, 2005

Faz Assim

Editado Abril 7, 2005 por cyberalexxx

ViniciusJau · Abril 7, 2005

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 ...

aferlim · Abril 7, 2005

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....")

%>

<%

If not rs.EOF Then

cor= "#FFFFFF"

while not rs.eof

if cor <> "#FFFFFF" then

cor="#FFFFFF"

else

cor = "#F0F0F0"

end if

%>

%  </font></div></td>

</tr>

<% rs.MoveNext

wend

End if

%>

ViniciusJau · Abril 8, 2005

sem chance cara......... o duro é que se eu tiro esse negocio das linahs uma de cada cor ele roda

aferlim · Abril 8, 2005

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....")

%>

<%

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)%>

%  </font></div></td>

</tr>

<% rs.MoveNext

wend

End if

%>

Não esqueça do:

</table>

ViniciusJau · Abril 8, 2005

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 ")
%>

Entrar

Destacar Variavel

Pergunta

Link para o comentário

Compartilhar em outros sites

24 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - repolho -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns