怎么提取文中的域名，并加上链接

[Mapleleaf123]

比如

文中出现有

www.abc.com, www.abc.net, e.com, f.net, a.b.c.com

等，要提取这些域名出来，并自动加上链接(即点击www.abc.com就打开www.abc.com)

[一把编程的菜刀]

/(www.)?([a-zA-Z\d]+\.)(com|net|cn)/

随手写的一正则

[一把编程的菜刀]

<%
Function RegExp_Execute(patrn,strng) 
Dim regEx,Match,Matches,values '建立变量。 
Set regEx=New RegExp '建立正则表达式。 
regEx.Pattern = patrn '设置模式。 
regEx.IgnoreCase = true '设置是否区分字符大小写。 
regEx.Global = True '设置全局可用性。 
Set Matches = regEx.Execute(strng) '执行搜索。 
For Each Match in Matches '遍历匹配集合。 
values=values&"<a href='"&Match.Value&"'>"&Match.Value&"</a>"&"," 
Next 
RegExp_Execute=values 
End Function 
str="www.abc.com, www.abc.net, e.com, f.net, a.b.c.com"
re="(www.)?([a-zA-Z\d]+\.)(com|net|cn)"
Response.Write RegExp_Execute(re,str)
%>

[Mapleleaf123]

谢谢chinmo

不过还差一点点问题

就是点击的时候没有打开新窗口，而且好像域名要加上

http://才可以打开，要不就是当前页面的地址+提取的域 ,打不开

[一把编程的菜刀]

那你在

values=values&"<a href='http://"&Match.Value&"'>"&Match.Value&"</a>"&","
就可以