Madness.nl | Scripts - Auto hyperlink generator

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

08:47 application
08:46 Domein Hosting
08:45 USB webserver
08:45 Eigen Scripts
08:44 Database paging
10:21 Even voorstellen?
10:18 Re: It agree, it is..
10:16 ASp.NET MVC
20:42 GPS-applicatie VB v..
10:10 webservice

Auto hyperlink generator

Terug naar scripts

Auteur: Ramon
Geplaatst op: 19-8-2003 18:39:00
Aantal keer bekeken: 26622
Download script (zip file)

Auto hyperlink generator

Omschrijving: Met deze functie kan je automatisch hyperlinks omzetten in een echte link. Deze functie kan voor bijvoorbeeld een gastenboek gebruikt worden om automatisch een link te maken van getype link.
Wanneer er in de tekst bv http://www.madness.nl staat wordt de tekst omgezet naar http://www.madness.nl.
Hyperlinks en e-mailadressen worden beide omgezet.

Script:

Pagina: linkURL.asp

<%
function LinkURLs(ByRef asContent)
    
	Dim loRegExp
		
	if asContent = "" Then Exit function
       	
	Set loRegExp = New RegExp
    	
       	loRegExp.Global = True
       	loRegExp.IgnoreCase = True
    	' Zoeken naar URls
    	loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)"
    	' Link maken van Url
    	LinkURLs = loRegExp.Replace(asContent, "<A href=""$1"" target=""_blank"">$1</A>$3")
    	' Zoeken naar e-mailadressen
    	loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
    	' Link maken
    	LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
    
	Set oRegExp = Nothing
   	
End function
%>

Reacties

Reacties: Auto hyperlink generator (Aantal reacties: 5 )
» Nieuwe reactie	View Mode : \| \|

Door: BlackBurn

Jan 31, 21:16

Even wat vraagjes over het script.
Wat doet die RegExp?
Hoe weet je dat $1 de var is evenals $3?
En is S de tekst die hij onthoud?

Ohja, bij dit soort links, gaat het mis:
http://www.progob.nl/mafketels/secure/cpanel

* Leek me wel een geinig script, maar wil het wel begrijpen voordat ik het toepas, nu werk ik nog met lallala.

(Reply...)

Door: BlackBurn

Jan 31, 21:16

er stond dus:

[ url = " http:// " ] lallala [ / url ]

(Reply...)

Door: kontkommer

Dec 15, 17:09

dit is pcies wat ik zocht!

ik heb alleen geen idee hoe ik dit in mijn eigen code verwerk ):

(Reply...)

Door: Ramon (Admin)

Dec 15, 18:57

tekst = "blablablablablabla link blablablabla"

tekst = LinkURLs(tekst)