28,391
社区成员
发帖
与我相关
我的任务
分享
s="aaaa<a href=""http://www.baidu1.com"" target=""_blank"" onclick=""javascript:if(2>1)alert(10)"">百度</a>aaaaaaaa"
s=s&"aaaa<a href=""http://www.baidu2.com"" target=""_self"">谷歌</a>aaaaaaaa"
s=s&"aaaa<a href=""http://www.baidu3.com"">雅虎</a>aaaaaaaa"
s="aaaa<a href=""http://www.baidu1.com"" target=""_blank"" onclick=""javascript:if(2>1)alert(10)"">百度</a>aaaaaaaa"
s=s&"aaaa<a href=""http://www.baidu2.com"" target=""_self"">谷歌</a>aaaaaaaa"
s=s&"aaaa<a href=""http://www.baidu3.com"">雅虎</a>aaaaaaaa"
Set re = New RegExp
With re
.Global = True
.IgnoreCase = True
.MultiLine = True
.Pattern = "(<a [^>]+)(target=""[^""]+"")([^>]*>)"
s = .Replace(s, "$1$3")
.Pattern = "(<a )([^>]+>)"
s = .Replace(s, "<a target=""_blank"" $2")
End With
Response.Write s