VB icon

Link URLs

Email
Submitted on: 1/5/2015 8:58:00 AM
By: Lewis E. Moten III (from psc cd)  
Level: Intermediate
User Rating: By 5 Users
Compatibility: ASP (Active Server Pages)
Views: 1009
 
     Finds any URL found within specified text and creates a hyper link for http, https, ftp, and email addresses.
 
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
'**************************************
' for :Link URLs
'**************************************
Copyright (c) 2000, Lewis Moten. All rights reserved. Send all mofications to the author.
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
				
'**************************************
' Name: Link URLs
' Description:Finds any URL found within specified text and creates a hyper link for http, https, ftp, and email addresses.
' By: Lewis E. Moten III (from psc cd)
'
' Inputs:asContent - Content to be parsed for URLs
'
' Returns:returns the content with HTML encoded hyperlinks.
'
' Assumes:This code assumes that you have vbScript 5.0 (or higher) installed on your server. If not, you will instantly receive an error on your page.
'**************************************

Function LinkURLs(ByRef asContent)
	Dim loRegExp	' Regular Expression Object (Requires vbScript 5.0 and above)
	
	' If no content was received, exit the function
	If asContent = "" Then Exit Function
	
	' Create Regular Expression object
	Set loRegExp = New RegExp
	
	' Keep finding links after the first one.				
	loRegExp.Global = True
	
	' Ignore upper/lower case
	loRegExp.IgnoreCase = True
	' Look for URLs
	loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)"
	' Link URLs
	LinkURLs = loRegExp.Replace(asContent, "<A href=""$1"">$1</A>$3")
	' Look for email addresses
	loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
	' Link email addresses
	LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
	' Release regular expression object
	Set oRegExp = Nothing
	
End Function


Other 63 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments


 There are no comments on this submission.
 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.