Код для использования регулярных выражений для добавления ссылок на URL-адреса в строки под asp <%
'Добавьте ссылку на URL-адрес в поле.
ФункцияToLink(Str)
Dim RE 'Объект регулярного выражения Dim strContent
Если IsNull(Str) Тогда Str =
Set RE = New RegExp 'Создать объект регулярного выражения
С РЕ
.Global = True 'Поиск применяется ко всей строке
.IgnoreCase = True 'Поиск без учета регистра
стрКонтент = Стр
'********************************************** * *****************
'Ссылка на адрес электронной почты устанавливается автоматически
'********************************************** * *****************
.Шаблон = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'********************************************** * *****************
'Ссылка установлена автоматически
'********************************************** * *****************
'======Добавьте имя протокола по мере необходимости========
Дим Д(3), я
Д(0) = http
Д(1) = FTP
D(2) = новости
Д(3) = ммс
'===================================
Для I = 0 до UBound(D)
.Шаблон = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
Следующий
'********************************************** * *****************
Конец с
Установите RE = Ничего
ТоСсылка = стрКонтент
Конечная функция
%>