Ce code permet entre autre à partir d'un texte simple (non formaté HTML) de générer les liens en ASP.
Source / Exemple :
<%
function LinkURLs(ByRef asContent)
Dim loRegExp
if asContent = "" Then Exit function
Set loRegExp = New RegExp
loRegExp.Global = True
loRegExp.IgnoreCase = True
loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)"
LinkURLs = loRegExp.Replace(asContent, "<A href=""$1"">$1</A>$3")
loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
Set oRegExp = Nothing
End function
%>
Conclusion :
Pour mieux vous convaincre, testez ceci :
<% Dim Text
Text = "le site
http://www.google.com est un moteur de recherche"
Text = LinkURLs (Text)
response.write (Text)
%>
Ceci va afficher le texte comportant l'url :
le site <A href="
http://www.google.com">
http://www.google.com</a> est un moteur de recherche
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.