Rimuovere i tag HTML da una stringa - Script ASP

Grazie alle espressioni regolari è possibile rimuovere da una stringa i tag HTML mantenendo il solo contenuto testuale.

Vediamo come si presenta la funzione:

<%

public function stripTags(txt)

  Set objRE = CreateObject("VBScript.RegExp")
  objRE.Pattern = "\<[^\>]*\>"
  objRE.Global = true
  objRE.IgnoreCase = true
  stripTags = objRE.Replace(txt,"")

end function

%> 

Ecco un esempio di come è possibile usare questa funzione.

<%

strText = "Questo contiene <strong>Tag HTML</strong> " &_
"e contenuto <strong>Testuale</strong>"
Response.Write(stripTags(strText))

%> 

L'output prodotto è semplicemente

Questo contiene Tag HTML e contenuto Testuale