HTML-encode i ASP

En mulighed var at udskifte de tags ud tillader med nogle som ikke ændres ved HTML-encoding og så skifte dem tilbage når du har HTML-encoded teksten.

tekst = replace(tekst, "<b>", "[**b**]")
tekst = replace(tekst, "<i>", "[**i**]")
tekst = Server.HTMLEncode(tekst)
tekst = replace(tekst, "[**b**]", "<b>")
tekst = replace(tekst, "[**i**]", "<i>")

Denne strategi fungerer godt nok kun med helt simple og stringent indtastede tags. En bedre løsning ville nok involvere regular expressions og sådan en løsning kan jeg desværre ikke lige hoste op med...

Metoden ovenfor kan gøres lidt mere fleksibel ved at benytte textcompare (dvs. case insensitive). Det gøres som følger:

tekst = replace(tekst, "<b>", "[**b**]", 1, -1, vbTextCompare)
tekst = replace(tekst, "<i>", "[**i**]", 1, -1, vbTextCompare)
tekst = Server.HTMLEncode(tekst)
tekst = replace(tekst, "[**b**]", "<b>", 1, -1, vbTextCompare)
tekst = replace(tekst, "[**i**]", "<i>", 1, -1, vbTextCompare)

Super. afprøver lige.:)

Det virker faktisk, men jeg kan ikke afslutte </b> og </i>

Nu virker det. :-)
Ved ikke om jeg må stille spørgsmålet her, eller om jeg skal oprette et ny?

Hvordan vil det være muligt at erstatte et tegn, f.eks som :11: med et billed?

Ja, jeg kan godt se at jeg ikke fik udskiftet det afsluttende tag, men det lader til at du fandt ud af det alligevel :)

Udskiftning til billede gøre på samme måde som med tags:

tekst = replace(tekst, ":11:", "<img src=""billede.jpg"">", 1, -1, vbTextCompare)

Perfekt. mange tak for hjælpen.

Velbekomme :)

:)

Tak for point :)