codice:
'recupero corpo del commento e formatto da bbcode a html
'ATTENZIONE: SIZE e COLOR, URL e IMG sono da ottimizzare
'La funzione
Function BBCode(ByVal stringa)
stringa = replace(stringa, chr(10), "
")
stringa = replace(stringa, "[ g]", "")
stringa = replace(stringa, "[ /g]", "")
stringa = replace(stringa, "[ b]", "")
stringa = replace(stringa, "[ /b]", "")
stringa = replace(stringa, "[ i]", "")
stringa = replace(stringa, "[ /i]", "")
stringa = replace(stringa, "[ u]", "<ins>")
stringa = replace(stringa, "[ /u]", "</ins>")
stringa = replace(stringa, "[ size=", "<font size=")
stringa = replace(stringa, "[ /size]", "</font>")
stringa = replace(stringa, "[ color=", "<font color=")
stringa = replace(stringa, "[ /color]", "</font>")
stringa = replace(stringa, "[ quote]", "<blockquote>")
stringa = replace(stringa, "[ /quote]", "</blockquote>")
stringa = replace(stringa, "[ center]", "<center>")
stringa = replace(stringa, "[ /center]", "</center>")
stringa = replace(stringa, "[ url=", "<a target='_blank' rel='nofollow' href=")
stringa = replace(stringa, "[ /url]", "</a>")
stringa = replace(stringa, "[ img=", "<img alt='' src=")
'Altri pseudo-codici
stringa = replace(stringa, "[", "<")
stringa = replace(stringa, "]", ">")
'Ritorno il valore alla funzione
BBCode = stringa
end function
'Recupero e formatto:
commento=BBCode(Trim(Request.Form("commento")))
I miglioramenti sono da effettuare in primo luogo per l'immagini: