Remova todas as tags no código HTML
A cópia do código é a seguinte:
<%
'***********************************
'Função: Removerhtml_a (strText)
'Argumentos: strtext, string a ser processada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todas as tags no código HTML
'Exemplo: <%= removerhtml_a ("<b> Bem -vindo ao Alixixi </b>")%>
'***********************************
FunctionRemoveHtml_a (strText)
Dimnpos1
Dimnpos2
npos1 = instrum (strText, "<")
Dowhilenpos1> 0
npos2 = instrum (npos1+1, strtext, ">")
Ifnpos2> 0then
strText = esquerda (strText, npos1-1) e mid (strtext, npos2+1)
Outro
Exitdo
Endif
npos1 = instrum (strText, "<")
Laço
Removahtml_a = strText
Função final
%>
Remova todas as tags no código HTML
A cópia do código é a seguinte:
<%
'***********************************
'Função: Removerhtml_b (strText)
'Argumentos: strtext, string a ser processada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todas as tags no código HTML
'Exemplo: <%= removerhtml_b ("<b> Bem -vindo ao Alixixi </b>")%>
'***********************************
FunctionRemoveHtml_b (strText)
Dimregex
SetRegex = newRegexp
Regex.pattern = "<[^>]*>"
Regex.global = true
Removahtml_b = regex.replace (strText, "")
Função final
%>
Remova todas as tags no código HTML
A cópia do código é a seguinte:
<%
'***********************************
'Função: Removerhtml_c (strText)
'Argumentos: strtext, string a ser processada
'Autor: Alixi
Data: 2007/7/12
'Descrição: Remova todas as tags no código HTML
'Exemplo: <%= removerhtml_c ("<b> Bem -vindo ao Alixixi </b>")%>
'***********************************
FunctionRemoveHtml_C (strText)
DimtaGlist
Taglist = ";!-;! Doctype; a; acrônimo; endereço; applet; área; b; base; BaseFont;" & _
"Bgsound; Big; BlockQuote; Body; Br; Button; Legenda; Centro; Cite; Code;" & _