求助：检测用户输入的网址，让后转化为HTML

比如我输入了  “我爱http://www.baidu.com和www.”
现在要转换为
我爱<a href="http://www.baidu.com">http://www.baidu.com</a>和<a href="http://www.

上面只是例子，意思就是我检测用户输入的网址，让后转化为HTML
下面的是我写的，望有高手指点，用JAVASCRIPT在前台转化也可以
Function IsValidUrl(str)
Dim regEx
Dim result
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
regEx.global = true
regEx.IgnoreCase = False
Set Matches = regEx.Execute(str)
For Each Match in Matches  
str=replace(str,Match.value,"<a href="&Match.value&">"&Match.value&"</a>")
Next
IsValidUrl=str
End Function