[Resolvido] Imprimir tags html com asp

[RonaldoSV 0]

Boa noite galera sou novo aqui no forum mas só de cadastro porque eu sempre visito ele e agora estou pedindo uma ajuda aos senhores do asp =D

bom é o seguinte eu tenho um formulário em Jquery que tem aqueles botões de fonte bold cor da mesma add imagens a talz mas ele não cria o código BBCODE ele cria mesmo as tags html então não tenho conhecimento sufuciente em asp pra fazer o asp imprimir essas tags de asp pra html sem bbcode tentei usar um replace pensando que iria dar certo mas nada =/

alguem tem ideia de como fazer uma tag exemplo <b>bom dia</b> inserida no banco com texto ser impressa em html pelo asp?

abraços

[crisaum 0]

Fala Ronaldo!

 

Veja se isso aqui ajuda http://forum.wmonline.com.br/topic/143196-sistema-bbcode/

 

[]s

[RonaldoSV 0]

Fala rapazes, eu uso este exemplo de bbcode do forum que é ótimo mas é que é o seguinte o formulario que tenho aqui cria html você pode adicionar videos/Animações Flash,Quick Time, Real Media...e ele cria as tags em html mesmo deem uma olhada neste link que vocês vao ver que é bem completo:

http://www.statusvip.com.br/testes/tinymce/examples/full.html

então não seria com bbcode somente html mesmo, tentei de tudo e só me retorna em puro texto o que ta no banco.

vlw

[xanburzum 169]

Esta é uma função que vai encontrar todas as URLs em blocos de seqüências de texto e convertê-las em links ativos HTML. Esta é uma função de grande conteúdo de blog ou outro conteúdo que o utilizador tem de inserir texto, sem depender de BBCode

 

<%

    Function GetContentLinks(conteúdo)
        AddHttp = False
        'Procure primeiro link
        StartHttp = Instr(1,LCase(conteúdo),"http://")
        StartWWW = Instr(1,LCase(conteúdo),"www")

        If StartHttp < StartWWW AND StartHttp > 0 Then
          StartLink = StartHttp
        Else
           StartLink = StartWWW
           'Necessidade de acrescentar http:// ao link
           AddHttp = True
        End If

        While StartLink > 0
           'encontrar o final do link
           EndSpace = Instr(StartLink,conteúdo," ")
           EndLineBreak = Instr(StartLink,conteúdo,chr(13))
           If EndSpace < EndLineBreak OR EndLineBreak = 0 Then
              EndLink = EndSpace
           Else
              EndLink = EndLineBreak
           End If
           If EndLink = 0 Then
              EndLink = Len(conteúdo)+1
           End If

           'Livrar-se da pontuação final da sentença
           Select Case Mid(conteúdo, EndLink - 1, 1)
              Case ",",".", "!", "?"
              EndLink = EndLink - 1
           End Select

           'Grab o link
           TheLink = Mid(conteúdo, StartLink, (EndLink-StartLink))
           'add anchor tag
           If AddHttp = True Then
              NewLink = "<a href=" & chr(34) & "http://" & TheLink & chr(34) & ">" & _
                        TheLink & _
                        "</a>"
           Else
              NewLink = "<a href=" & chr(34) & TheLink & chr(34) & ">" & _
                        TheLink & _
                        "</a>"
           End If

           'substituir link encontrado com link ancorado
           conteúdo= Replace(conteúdo,TheLink,NewLink)

           'começar tudo de novo até que todos os links sejam encontrados
           StartHttp = Instr(EndLink+Len(TheLink)+2,LCase(conteúdo),"http://")
           StartWWW = Instr(EndLink+Len(TheLink)+2,LCase(conteúdo),"www.")
           If StartHttp < StartWWW AND StartHttp > 0 Then
              StartLink = StartHttp
              AddHttp = False
           Else
               StartLink = StartWWW
               AddHttp = True
           End If
        Wend

        GetContentLinks = conteúdo
    End Function

    'Exemplo.....
    SomeContentStr = "Elvis Presley, o homem, o mito, a lenda, o rei do rock-n-roll-, " & _
                     "Está vivo e trabalhando como um agente infiltrado no FBI. http://www.Elvis-Is-Alive.com" & chr(13) & _
                     "Minha home page é www.imasters.com.br " & _
                     "Para as melhores ofertas visite www.site.com"

    Response.Write GetContentLinks(SomeContentStr)

  %>
 

[RonaldoSV 0]

Legal esse mas achei um geitinho fiz uma função com replace só que desta vez com os codigos ASC e to com uma duvidasinha aqui, eu to querendo colocar aspas mas me quebro todo na concatenização e não consigo eu faço isso:

<%Function teste(escreve)
escreve= replace(escreve, "<", "<")
escreve= replace(escreve, ">", ">")
'---------------------------------------
'Linha que nao consigo escrever as aspas
escreve= replace(escreve, "", "")
'---------------------------------------


teste = escreve

End Function%>

então ele imprimi isso:

<img src="imagem.jpg"/>

so me falta isso que dai fica tudo legal.

abraços

[crisaum 0]

Fala Ronaldo!

 

Eu uso a seguinte função pra tratar as minhas variáveis, inclusive uso também o editor da moxie.

 

<%
function trataVariavel(variavel)
	
	variavel = trim(variavel)
	variavel = replace(variavel, "'", "´")
	variavel = replace(variavel, chr(34), """)
	variavel = replace(variavel, "<", "<")
	variavel = replace(variavel, ">", ">")
	variavel = replace(variavel, chr(13), "<br />")
		
	trataVariavel = variavel

end function
%>

Sempre salvei textos formatados no bd e nunca tive problemas, tenta fazer o inverso alterando de " pra chr(34), quem sabe resolve no teu caso.

 

Espero ter ajudado

 

[]s

[RonaldoSV 0]

crisaum deu certoooo agradeço a você e a xanburzum pela solução do meu caso.

muito obrigado rapasez! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif