<%
Str="商语软件提供程序定做、网站开发服务,有需要的朋友可百度HI我。"
Set regEx = New RegExp '建立正则表达式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
regEx.Pattern = "()(.*)(<\/a>)" '设置模式。
Set Matches = regEx.Execute(Str) '执行搜索。
For i=0 To Matches.count-1 '遍历匹配集合。
Response.Write "链接网址:"&Matches(i).SubMatches(1)&" 链接文本:"&Matches(i).SubMatches(3)
Next
%>
帮你写了一个。
Matches(i).SubMatches(1)对应的就是链接。
Matches(i).SubMatches(3)对应的是链接的文本。
在保存入库时,将这2个值rs到字段就可以了。
可以复制上面的代码到asp中,先运行下看效果。:)
----------------------------------------------------
不同的链接对应不同的规则,没有通用的。如果需要定制对应站的规则只有收费定制了。如需定制可百度HI我。