Dim Exps
Str="<a taget=_blank href=""www.abc.com"">abc</a>"
Set Exps= New Regexp
Exps.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
Exps.Ignorecase = True
Exps.Global = True
Set Matches =Exps.Execute(Str)
For Each Match In Matches
response.write Match.Submatches(1)
Next
Set Matches =Nothing
Set Exps=Nothing
Str="<a taget=_blank href=""www.abc.com"">abc</a>"
Set Exps= New Regexp
Exps.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
Exps.Ignorecase = True
Exps.Global = True
Set Matches =Exps.Execute(Str)
For Each Match In Matches
response.write Match.Submatches(1)
Next
Set Matches =Nothing
Set Exps=Nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货