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

Estou Com Um Problema No Asp Com <br>

py2tz

Perguntado por py2tz,

 Share

Pergunta

py2tz

py2tz

Postado
Postado

Tenho um sisteminha de inclusao, alteracao e exclusao de informacoes, tudo funciona redondo, porem quando vou editar o texto, abre-se as caixas de imput com o texto dentro, mas vem com os <br> junto, ex:

ainda não foi desmantelada. <br>

<br>

O Código de Morse e a Telegrafia (manual) são a excelência de qualquer Operador de Rádio que se digne dessa qualificação.<br>

<br>

A Radiotelegrafia tem sido progressivamente abolida pelos

Perceba que existem os <br> no meio do texto e se eu salvar desse jeito sem alterar nada, os espacos vao aumentando. Pra ficar normal tenho de deletar os <br> antes e depois salvar.

Se alguém tiver uma dica de como excluir os <BR> na hora da edição vai me ajudar e muito.

A leitura da informação é feita assim:

<textarea name="noticia" rows="15" cols="84" ><%=rs("noticia")%></textarea>

Obrigado

Fausto

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
marciombl

marciombl

Postado
Postado

esta função elimina os espertinhhos que usam uma determinha linguagem para fazer publicidade, spam entre outro via campo, seja lá onde for, em foruns entre outros talvez isto te ajude e já vai eliminhar outros para você.

forte abraço e espero que te ajude, ela é bem simples mas funciona certinho, depois você da uma melhorada nela.

<%

Public Function Elimina_linguagens(variavel)

IF variavel <> "" THEN

resposta = Replace(variavel, "'", "")

resposta1 = Replace(resposta, "<html>", "")

resposta2 = Replace(resposta1, "</html>", "")

resposta3 = Replace(resposta2, "<body>", "")

resposta4 = Replace(resposta3, "</body>", "")

resposta5 = Replace(resposta4, "<title>", "")

resposta6 = Replace(resposta5, "</title>", "")

resposta7 = Replace(resposta6, "<head>", "")

resposta8 = Replace(resposta7, "</head>", "")

resposta9 = Replace(resposta8, "<table>", "")

resposta10 = Replace(resposta9, "</table>", "")

resposta11 = Replace(resposta10, "<tr>", "")

resposta12 = Replace(resposta11, "</tr>", "")

resposta13 = Replace(resposta12, "<td>", "")

resposta14 = Replace(resposta13, "<td>", "")

resposta15 = Replace(resposta14, "a href", "")

resposta16 = Replace(resposta15, "</a>", "")

resposta17 = Replace(resposta16, "<br>", "")

resposta18 = Replace(resposta17, "</br>", "")

resposta19 = Replace(resposta18, "<p>", "")

resposta20 = Replace(resposta19, "</p>", "")

resposta21 = Replace(resposta20, "<HTML>", "")

resposta22 = Replace(resposta21, "<HTML>", "")

resposta23 = Replace(resposta22, "<BODY>", "")

resposta24 = Replace(resposta23, "</BODY>", "")

resposta25 = Replace(resposta24, "<TITLE>", "")

resposta26 = Replace(resposta25, "</TITLE>", "")

resposta27 = Replace(resposta26, "<HEAD>", "")

resposta28 = Replace(resposta27, "</HEAD>", "")

resposta29 = Replace(resposta28, "<TABLE>", "")

resposta30 = Replace(resposta29, "</TABLE>", "")

resposta31 = Replace(resposta30, "<TR>", "")

resposta32 = Replace(resposta31, "</TR>", "")

resposta33 = Replace(resposta32, "<TD>", "")

resposta34 = Replace(resposta33, "<TD>", "")

resposta35 = Replace(resposta34, "A HREF", "")

resposta36 = Replace(resposta35, "</A>", "")

resposta37 = Replace(resposta36, "<BR>", "")

resposta38 = Replace(resposta37, "</BR>", "")

resposta39 = Replace(resposta38, "<P>", "")

resposta40 = Replace(resposta39, "</P>", "")

resposta41 = Replace(resposta40, "<%", "")

resposta42 = Replace(resposta41, "<%=", "")

resposta43 = Replace(resposta42, "If", "")

resposta44 = Replace(resposta43, "if", "")

resposta45 = Replace(resposta44, "IF", "")

resposta46 = Replace(resposta45, "End", "")

resposta47 = Replace(resposta46, "end", "")

resposta48 = Replace(resposta47, "END", "")

resposta49 = Replace(resposta48, ">", "")

resposta50 = Replace(resposta49, "<", "")

resposta51 = Replace(resposta50, "http://", "")

resposta52 = Replace(resposta51, ".html", "")

resposta53 = Replace(resposta52, ".htm", "")

resposta54 = Replace(resposta53, ".asp", "")

resposta55 = Replace(resposta54, ".php", "")

resposta56 = Replace(resposta55, ".mspx", "")

resposta57 = Replace(resposta56, ".aspx", "")

resposta58 = Replace(resposta57, ".HTML", "")

resposta59 = Replace(resposta58, ".HTM", "")

resposta60 = Replace(resposta59, ".ASP", "")

resposta61 = Replace(resposta60, ".PHP", "")

resposta62 = Replace(resposta61, ".MSPX", "")

resposta63 = Replace(resposta62, ".ASPX", "")

resposta64 = Replace(resposta63, "www", "")

resposta65 = Replace(resposta64,chr(13),"")

'Use a linha de baixo caso queira inserir BR (quebrar a linha de um texto) no final na linha ou um outro qulquer, EX: <p>

'resposta65 = Replace(resposta64,chr(13),"<br>")

Elimina_linguagens = resposta65

END IF

End Function

%>

forte abraço.

MarcioMBL

Link para o comentário
Compartilhar em outros sites
  • 0
py2tz

py2tz

Postado
  • Autor
Postado

Não foi, troquei a palavra variavel pelo campo noticia.

O meu problema era somente excluir os caracteres <BR> que aparecem no campo de edição

Fiz assim:

<%

Public Function Elimina_linguagens(noticia)

IF noticia <> "" THEN

resposta = Replace(noticia, "'", "")

resposta1 = Replace(resposta, "<html>", "")

resposta2 = Replace(resposta1, "</html>", "")

resposta3 = Replace(resposta2, "<body>", "")

resposta4 = Replace(resposta3, "</body>", "")

resposta5 = Replace(resposta4, "<title>", "")

resposta6 = Replace(resposta5, "</title>", "")

resposta7 = Replace(resposta6, "<head>", "")

resposta8 = Replace(resposta7, "</head>", "")

resposta9 = Replace(resposta8, "<table>", "")

resposta10 = Replace(resposta9, "</table>", "")

resposta11 = Replace(resposta10, "<tr>", "")

resposta12 = Replace(resposta11, "</tr>", "")

resposta13 = Replace(resposta12, "<td>", "")

resposta14 = Replace(resposta13, "<td>", "")

resposta15 = Replace(resposta14, "a href", "")

resposta16 = Replace(resposta15, "</a>", "")

resposta17 = Replace(resposta16, "<br>", "")

resposta18 = Replace(resposta17, "</br>", "")

resposta19 = Replace(resposta18, "<p>", "")

resposta20 = Replace(resposta19, "</p>", "")

resposta21 = Replace(resposta20, "<HTML>", "")

resposta22 = Replace(resposta21, "<HTML>", "")

resposta23 = Replace(resposta22, "<BODY>", "")

resposta24 = Replace(resposta23, "</BODY>", "")

resposta25 = Replace(resposta24, "<TITLE>", "")

resposta26 = Replace(resposta25, "</TITLE>", "")

resposta27 = Replace(resposta26, "<HEAD>", "")

resposta28 = Replace(resposta27, "</HEAD>", "")

resposta29 = Replace(resposta28, "<TABLE>", "")

resposta30 = Replace(resposta29, "</TABLE>", "")

resposta31 = Replace(resposta30, "<TR>", "")

resposta32 = Replace(resposta31, "</TR>", "")

resposta33 = Replace(resposta32, "<TD>", "")

resposta34 = Replace(resposta33, "<TD>", "")

resposta35 = Replace(resposta34, "A HREF", "")

resposta36 = Replace(resposta35, "</A>", "")

resposta37 = Replace(resposta36, "<BR>", "")

resposta38 = Replace(resposta37, "</BR>", "")

resposta39 = Replace(resposta38, "<P>", "")

resposta40 = Replace(resposta39, "</P>", "")

resposta41 = Replace(resposta40, "<%", "")

resposta42 = Replace(resposta41, "<%=", "")

resposta43 = Replace(resposta42, "If", "")

resposta44 = Replace(resposta43, "if", "")

resposta45 = Replace(resposta44, "IF", "")

resposta46 = Replace(resposta45, "End", "")

resposta47 = Replace(resposta46, "end", "")

resposta48 = Replace(resposta47, "END", "")

resposta49 = Replace(resposta48, ">", "")

resposta50 = Replace(resposta49, "<", "")

resposta51 = Replace(resposta50, "http://", "")

resposta52 = Replace(resposta51, ".html", "")

resposta53 = Replace(resposta52, ".htm", "")

resposta54 = Replace(resposta53, ".asp", "")

resposta55 = Replace(resposta54, ".php", "")

resposta56 = Replace(resposta55, ".mspx", "")

resposta57 = Replace(resposta56, ".aspx", "")

resposta58 = Replace(resposta57, ".HTML", "")

resposta59 = Replace(resposta58, ".HTM", "")

resposta60 = Replace(resposta59, ".ASP", "")

resposta61 = Replace(resposta60, ".PHP", "")

resposta62 = Replace(resposta61, ".MSPX", "")

resposta63 = Replace(resposta62, ".ASPX", "")

resposta64 = Replace(resposta63, "www", "")

resposta65 = Replace(resposta64,chr(13),"")

'Use a linha de baixo caso queira inserir BR (quebrar a linha de um texto) no final na linha ou um outro qulquer, EX: <p>

'resposta65 = Replace(resposta64,chr(13),"<br>")

Elimina_linguagens = resposta65

END IF

End Function

%>

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...