ASP 自动识别链接函数

1
Function autoLink(str)
2
str=" "&str
3
Set re=new regExp '建立正则表达式对象regular expression
4
re.IgnoreCase=true '忽略大小写
5
re.Global=true '搜索匹配字串针对全部文本
6
'查找带协议前缀的链接
7
re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]_)?)"
8
str=re.replace(str,"<a href='$1' target='_blank'>$1</a>")
9
'查找不带协议前缀的链接
10
re.Pattern="([^(http:\/\/)])(www\.([\w-]+\.)+[\w]+(\/[\w-]+)_[\/]?([\w-]+\.[\w]+)?(\?[\w]+=[\w]+(&[\w]+=[\w]+)*)?)"
11
str=re.replace(str,"$1<a href='http://$2' target='_blank'>$2</a>")
12
'查找邮件链接
13
re.Pattern="(mailto:)?([\w]+@([\w-]+\.)+[\w]+)"
14
str=re.replace(str,"<a href='mailto:$2'>$1$2</a>")
15
Set re=nothing
16
autolink=trim(str)
17
End Function