获取超链接地址的正则表达式 asp

获取超链接地址的正则表达式 asp

这个啊 呵呵 我最近经常干这个 (.*?)
new regex("(.*?)").match(字符串).group[1].value;获取第一个值
new regex("(.*?)").match(字符串).group[2].value;获取第二个值

ubb.asp中代码：
<%
Function autoLink(str)
str=" "&str
Set re=new regExp '建立正则表达式对象regular expression
re.IgnoreCase=true '忽略大小写
re.Global=true '搜索匹配字串针对全部文本
'查找带协议前缀的链接
re.Pattern="(([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"
str=re.replace(str,"$1")
'查找不带协议前缀的链接
re.Pattern="([^(http:\/\/)])(www\.([\w-]+\.)+[\w]+(\/[\w-]+)*[\/]?([\w-]+\.[\w]+)?(\?[\w]+=[\w]+(&[\w]+=[\w]+)*)?)"
str=re.replace(str,"$1$2")
'查找邮件链接
re.Pattern="(mailto:)?([\w]+@([\w-]+\.)+[\w]+)"
str=re.replace(str,"$1$2")
Set re=nothing
autolink=replace(trim(str)," ","")
autolink=replace(trim(str)," ;","")
autolink=replace(trim(str)," ；","")
End Function
%>
试试 最后加的3句可以优化
补充:你把你的测试结果页面,留下网址来给看看吧,实在不太明白你的意思