28,391
社区成员
发帖
与我相关
我的任务
分享
Dim str:str="<a href=http://www.163.com target=_blank class=a>abc</a>"&_
"<a href=../../a.htm target=_blank class=a>abc </a>" &_
"<a href=""../b.html"" target=_blank>abc </a>"&_
"<a href=""/ab/bc/cd.html"">abc </a>"&_
"<a href=""/ab/bc/cd.asp?ab=1&cd=2"">abc</a>"
Dim re
Set re=New RegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="<a\s*href\s*=\s*['""]?([^\s""']+)['""]?[^>]*>"
Set ms=re.Execute(str)
For Each m In ms
response.Write m.submatches(0)&"<br/>"
Next
Set re=Nothing