Str="<a href=""http://www.shangyusoft.com"">商语软件提供程序定做、网站开发服务，有需要的朋友可百度HI我。</a>"
Set regEx = New RegExp '建立正则表达式。
regEx.IgnoreCase = True '设置是否区分字符大小写。
regEx.Global = True '设置全局可用性。
regEx.Pattern = "(<a href=\"")(.*)(\""\>)(.*)(<\/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)对应的是链接的文本。