[xanburzum]

Remove qualquer tags HTML de uma string e retorna o resultado. Usado para que os usuários enviam dados através de formulários para impedi-los de usar tags HTML, mesmo conceito de SQL Inject.

'
Inputs: asHTML - A string que pode conter código HTML
'
Returns: Retorna uma string que tem sido despojado de código HTML.
'
'Assumes: Esta função assume que você tem vbscript 5.0 ou superior instalado.
'
'Efeitos colaterais: A página irá surgir com erros se você não tem vbscript 5.0 ou superior instalado no seu servidor (ou no navegador do cliente se que é onde ele está sendo usad).Requer VBScript 5.0 instalado no servidor.

Function StripHTML(ByRef asHTML)
	Dim loRegExp	' Regular Expression 
	
	' Cria um objeto de expressão regular
	Set loRegExp = New RegExp
	' Definir o padrão para procurar tags HTML
	loRegExp.Pattern = "<[^>]*>"
	
	' Retorna a string original stripped do HTML
	StripHTML = loRegExp.Replace(asHTML, "")
	
	' Objeto de lançamento da memória
	Set loRegExp = Nothing
End Function