Мы можем добавить несколько гиперссылок в ASP, но что мы должны делать, если они нам не нужны после их добавления? Теперь давайте посмотрим на методы удаления всех гиперссылок из ASP. Если вы хотите знать, пожалуйста, обратитесь к ним.
<%
'*********************************
'Function: removeHref_a (htmlstr)
'Аргументы: htmlstr, строка для удаления
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все гиперссылки в строке
Пример: <%= removeHref_a ("<a href =/abc/h.html> тест </a>")%>
'*********************************
Функция removeHref_a (htmlstr)
Dim N, Str1, Str2, Str3, Str4
Htmlstr = lcase (htmlstr)
Для n = 1 до ubound (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 ("<a href =/abc/h.html> тест </a>")%>
'*********************************
Функция GrustremoveHref (htmlstr)
Установите RA = новая regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
Grumovehref = ra.replace (htmlstr, "$ 1")
Конечная функция
%>
Выше всего содержание этой статьи. Я надеюсь, что содержание этой статьи поможет всем, кто учится или работа. Я также надеюсь поддержать неправильный новый канал технологии!