Código para usar expresiones regulares para agregar enlaces a URL en cadenas bajo asp <%
'Agrega el enlace a la URL en el campo.
FunciónParaEnlazar(Str)
Dim RE 'Objeto de expresión regular Dim strContent
Si es nulo (Str) entonces Str =
Establecer RE = New RegExp 'Crear un objeto de expresión regular
Con RE
.Global = True 'La búsqueda se aplica a toda la cadena
.IgnoreCase = True 'Búsqueda que no distingue entre mayúsculas y minúsculas
strContenido = Cadena
'************************************************ * *******************
'Enlace de dirección de correo electrónico configurado automáticamente
'************************************************ * *******************
.Patrón = ([/w]*)@([/w/.]*)
strContenido = .Replace(strContenido, <A Href='mailto:$1@$2'>$1@$2</A> )
'************************************************ * *******************
'Enlace configurado automáticamente
'************************************************ * *******************
'======Agregue el nombre del protocolo según sea necesario========
Oscuro D(3), yo
D(0) =http
D(1) = ftp
D(2) = noticias
D(3) = mm
'======================================
Para I = 0 a UBound(D)
.Patrón = D(I) + :////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
Próximo
'************************************************ * *******************
Terminar con
Establecer RE = Nada
ToLink = strContenido
Función final
%>