<%
'*********************************
'Function: removeHref_a (htmlstr)
'Аргументы: htmlstr, строка для удаления
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все гиперссылки в строке
Пример: <%= removeHref_a ("<ahref =/abc/h.html> тест </a>")%>
'*********************************
FunctionRemovehref_a (htmlstr)
Dimn, str1, str2, str3, str4
Htmlstr = lcase (htmlstr)
Forn = 1toubound (split (htmlstr, "<a"))
str1 = instr (htmlstr, "<a")
str2 = instr (str1, htmlstr, ">")
Htmlstr = left (htmlstr, str1-1) и правый (htmlstr, len (htmlstr) -len (слева (htmlstr, str2))))))
Htmlstr = replace (htmlstr, "</a>", "")
Удалить href_a = htmlstr
Следующий
Конечная функция
%>
Регулярно удалять все гиперссылки в струнах
<%
'*********************************
'Функция: GrumoveHref (htmlstr)
'Аргументы: htmlstr, строка для удаления
Автор: Аликси
Дата: 2007/7/12
'Описание: Удалите все гиперссылки в струнах регулярно
Пример: <%= grumovehref ("<ahref =/abc/h.html> test </a>")%>
'*********************************
FunctionRegremovehref (htmlstr)
Setra = newRegexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
Grumovehref = ra.replace (htmlstr, "$ 1")
Конечная функция
%>