Удалить все теги в HTML -коде
Кода -копия выглядит следующим образом:
<%
'*********************************
'Function: removehtml_a (strtext)
'Аргументы: strtext, строка для обработки
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все теги в HTML -коде
Пример: <%= removehtml_a ("<b> Добро пожаловать в Alixixi </b>")%>
'*********************************
FunctionRemovehtml_a (strtext)
Dimnpos1
Dimnpos2
npos1 = instr (strtext, "<")
Dowhilenpos1> 0
npos2 = instr (npos1+1, strtext, ">")
Ifnpos2> 0then
strtext = left (strtext, npos1-1) и mid (strtext, npos2+1)
Еще
Выход
Эндиф
npos1 = instr (strtext, "<")
Петля
Удалить html_a = strtext
Конечная функция
%>
Удалить все теги в HTML -коде
Кода -копия выглядит следующим образом:
<%
'*********************************
'Function: removehtml_b (strtext)
'Аргументы: strtext, строка для обработки
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все теги в HTML -коде
Пример: <%= removehtml_b ("<b> Добро пожаловать в alixixi </b>")%>
'*********************************
FunctionRemovehtml_b (strtext)
DimRegex
SetRegex = newRegexp
Regex.pattern = "<[^>]*>"
Regex.global = true
Removehtml_b = regex.replace (strtext, "")
Конечная функция
%>
Удалить все теги в HTML -коде
Кода -копия выглядит следующим образом:
<%
'*********************************
'Function: removehtml_c (strtext)
'Аргументы: strtext, строка для обработки
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все теги в HTML -коде
Пример: <%= removehtml_c ("<b> Добро пожаловать в Alixixi </b>")%>
'*********************************
FunctionRemovehtml_c (strtext)
DimTagList
Taglist = ";!-;
"Bgsound; big; blockquote; body; br; button; Подпись; Center; cite; code;" & _