[Resolvido] Remove qualquer tags HTML de uma string

[xanburzum 169]

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