A análise de código de função ASP para remoção de HTML está anexada com exemplos. Ela foi testada pela programação do Script Home e é realmente fácil de usar.
O código a seguir não substituirá o < no meio de ld<sad, portanto o conteúdo ainda é normal.
O código é o seguinte:
<%
função nohtml(str)
escurecer
Definir re = novo RegExp
re.IgnoreCase = verdadeiro
re.Global = Verdadeiro
re.Pattern=(/<.[^/<]*/>)
str=re.replace(str, )
re.Pattern=(/<//[^/<]*/>)
str=re.replace(str, )
str=substituir(str, ,)
str=substituir(str, ,)
nohtml=str
definir re = nada
função final
str=<title>sadjksjdl script home lhe dá as boas-vindas sajdljsald<sadsadsad<br> 'Este é um teste
resposta.write nohtml(str)
%>
O resultado é:
O código é o seguinte:
página inicial do script sadjksjdl lhe dá as boas-vindas sajdljsald<sadsadsad
No entanto, o código a seguir não pede apenas < e esqueça a correspondência ilimitada por trás dele.
O código é o seguinte:
<%
Função dropHtml(Byval strHTML)
Dim objRegExp, Correspondência, Correspondências
Definir objRegExp = Novo Regexp
objRegExp.IgnoreCase = Verdadeiro
objRegExp.Global = Verdadeiro
'Feche o <>
objRegExp.Pattern = <.+?>
'Corresponder
Definir correspondências = objRegExp.Execute(strHTML)
'Percorre o conjunto correspondente e substitui os itens correspondentes
Para cada partida nas partidas
strHtml=Substituir(strHTML,Match.Value,)
Próximo
dropHtml=strHTML
Definir objRegExp = Nada
Função final
str=<title>sadjksjdl script home lhe dá as boas-vindas sajdljsald<sadsadsad<br> 'Este é um teste
resposta.write dropHtml(str)
%>
O resultado é:
O código é o seguinte:
página inicial do script sadjksjdl lhe dá as boas-vindas sajdljsald