Editor com BBcode para Forum!

[Dony 0]

Pessoal,Preciso de um editor tipo esse aqui do forum para um forum em ASP que estou re-escrevendo, mas nao encontrei na da na Net inteira, alguém teria alguma coisa pra me ajudar?Valeu :( Dony

[jrcardozo 4]

busca = http://forum.imasters.com.br/index.php?sho...097&hl=blog

[Dony 0]

busca = http://forum.imasters.com.br/index.php?sho...097&hl=blog

Então já tinha visto esse tópico, mas na realidade queria deixar o codigo mais limpo para ocupar menos espaço no BD.Encontrei um code assim:

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'----------------------------------------' Turn BBcode into HTML'----------------------------------------Function BBCodeToHTML(strString)	strString = ReplaceRegExp(strString, "(http|ftp|https)(:\/\/[\w\-_]+)((\.[\w\-_]+)+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?", "<a href=""$1$2$3$5"" target=""_blank"">$1$2$3$5</a>")	strString = ReplaceRegExp(strString, "\[color=([^\]]*)\]([^\[]*)\[/color\]", "<span style=""color: $1;"">$2</span>")	strString = ReplaceRegExp(strString, "\[size=([^\]]*)\]([^\[]*)\[/size\]", "<font size=""$1"">$2</font>")	strString = ReplaceRegExp(strString, "\[font=([^\]]*)\]([^\[]*)\[/font\]", "<span style=""font-family: $1, Sans-Serif, Serif;"">$2</span>")	strString = ReplaceRegExp(strString, "\[quote=([^\]]*)\]([^\[]*)\[/quote\]", "<div class=""quote""><span style=""font-weight: bold; font-size: 8pt;"">$1 said:</span><pre class=""quote1"">$2</pre></div>")	strString = Replace(strString, "[b]", "<span style=""font-weight: bold;"">")	strString = Replace(strString, "[B]", "<span style=""font-weight: bold;"">")	strString = Replace(strString, "[u]", "<span style=""text-decoration: underline;"">")	strString = Replace(strString, "[U]", "<span style=""text-decoration: underline;"">")	strString = Replace(strString, "[i]", "<span style="" font-style: italic;"">")	strString = Replace(strString, "[I]", "<span style="" font-style: italic;"">")	strString = Replace(strString, "[/b]", "</span>")	strString = Replace(strString, "[/B]", "</span>")	strString = Replace(strString, "[/u]", "</span>")	strString = Replace(strString, "[/U]", "</span>")	strString = Replace(strString, "[/i]", "</span>")	strString = Replace(strString, "[/I]", "</span>")	strString = Replace(strString, "[/i]", "<ul><li>")	strString = Replace(strString, "[LI]", "<ul><li>")	strString = Replace(strString, "[Li]", "<ul><li>")	strString = Replace(strString, "[lI]", "<ul><li>")	strString = Replace(strString, "[/li]", "</li></ul>")	strString = Replace(strString, "[/LI]", "</li></ul>")	strString = Replace(strString, "[/Li]", "</li></ul>")	strString = Replace(strString, "[/lI]", "</li></ul>")	BBCodeToHTML = strStringEnd Function'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX%>

Mas está de BBCODE para HTML, vou fazer ao contrário e depois posto para galera, valeu!ValeuDony