Ir para conteúdo
Fórum Script Brasil
  • 0

Destacar Variavel


ViniciusJau

Pergunta

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 ?

Link para o comentário
Compartilhar em outros sites

24 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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 !?!?

Link para o comentário
Compartilhar em outros 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?

Link para o comentário
Compartilhar em outros 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

%>

Link para o comentário
Compartilhar em outros 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

%>

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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...

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

%>

Link para o comentário
Compartilhar em outros 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>

Link para o comentário
Compartilhar em outros 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 ")

%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...