asp удаление кода реализации гиперссылки <%
Функция replaceUrl2(HTMLstr)
Тусклый n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
От n=1 до Ubound(Split(HTMLstr,<a))
str1 = Инстр(HTMLstr,<a)
стр2 = Инстр(строка1,HTMLstr,>)
HTMLstr = влево(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = заменить (HTMLstr,</a>,)
ЗаменитьUrl2 = HTMLstr
Следующий
Конечная функция
%>