如何实现自动转换网址为链接的功能

如何实现自动转换网址为链接的功能。

function autoLink(str) '实现自动转换网址为链接
str=" "&str
set re=new regExp
re.IgnoreCase=true
re.Global=true
'查找带协议前缀的链接
're.Pattern="((http|https|ftp):////([/w-]+/.)+[/w]+(//[/w-]+)*[//]?([/w-]+/.[/w]+)?(/?[/w]+=[/w]+(&[/w]+=[/w]+)*)?)"
re.Pattern="(http://([/w-]+/.)+[/w-]+(/[/w- ./?%&=]*)?)" '上一行为原来的内容。这一行为修改后的。
str=re.replace(str,"<a href='$1' target='_blank'>$1</a>")
'查找不带协议前缀的链接
re.Pattern="([^(http:////)])(www/.([/w-]+/.)+[/w]+(//[/w-]+)*[//]?([/w-]+/.[/w]+)?(/?[/w]+=[/w]+(&[/w]+=[/w]+)*)?)"
str=re.replace(str,"$1<a href='http://$2' target='_blank'>$2</a>")
'查找邮件链接
re.Pattern="(mailto:)?([/w]+@([/w-]+/.)+[/w]+)"
str=re.replace(str,"<a href='mailto:$2'>$1$2</a>")
set re=nothing
str=trim(str)
autolink=str
end function