asp自动识别URL网址链接的函数
[ 2008-09-29 11:09:47 | 作者: admin ]
Function autoLink(str)
str=" "&str
Set re=new regExp '建立正则表达式对象regular expression
re.IgnoreCase=true '忽略大小写
re.Global=true '搜索匹配字串针对全部文本
'查找带协议前缀的链接
re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"
str=re.replace(str,"<a href='$1' target='_blank'>$1</a>")
'查找不带协议前缀的链接
re.Pattern="([^(http:\/\/)])(www\
...str=" "&str
Set re=new regExp '建立正则表达式对象regular expression
re.IgnoreCase=true '忽略大小写
re.Global=true '搜索匹配字串针对全部文本
'查找带协议前缀的链接
re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"
str=re.replace(str,"<a href='$1' target='_blank'>$1</a>")
'查找不带协议前缀的链接
re.Pattern="([^(http:\/\/)])(www\
阅读全文…
1
