Анализ кода функции ASP для удаления HTML прилагается с примерами. Он был протестирован с помощью Script Home и действительно прост в использовании.
Следующий код не заменит < в середине ld<sad, поэтому содержимое останется нормальным.
Код выглядит следующим образом:
<%
функция nohtml(str)
тусклый свет
Установить re=новое регулярное выражение
re.IgnoreCase = true
re.Global=Истина
re.Pattern=(/<.[^/<]*/>)
str=re.replace(str, )
re.Pattern=(/<//[^/<]*/>)
str=re.replace(str, )
стр=заменить(строка, ,)
стр=заменить(строка, ,)
nohtml=str
установить повторно = ничего
конечная функция
str=<title>sadjksjdl скрипт приветствует вас sajdljsald<sadsadsad<br> 'Это тест
ответ.пишите nohtml(str)
%>
Результат:
Код выглядит следующим образом:
Дом сценария sadjksjdl приветствует вас sajdljsald<sadsadsad
Однако следующий код не задает вопрос. Просто посмотрите < и забудьте о неограниченном совпадении, стоящем за ним.
Код выглядит следующим образом:
<%
Функция dropHtml(Byval strHTML)
Dim objRegExp, Матч, Совпадения
Установить objRegExp = Новое регулярное выражение
objRegExp.IgnoreCase = Истина
objRegExp.Global = Истина
'Получить закрытый <>
objRegExp.Pattern = <.+?>
'Соответствовать
Установить совпадения = objRegExp.Execute(strHTML)
' Проходим соответствующий набор и заменяем соответствующие элементы
За каждый матч в матчах
strHtml=Заменить(strHTML,Match.Value,)
Следующий
dropHtml=strHTML
Установить objRegExp = Ничего
Конечная функция
str=<title>sadjksjdl скрипт приветствует вас sajdljsald<sadsadsad<br> 'Это тест
response.write dropHtml(str)
%>
Результат:
Код выглядит следующим образом:
Дом сценария sadjksjdl приветствует вас