Function regExReplace(sSource, replStr) //(替换字符集，代替值)
Dim regEx, str1
str1 = sSource
Set regEx = New RegExp
regEx.Pattern = "<a.*?>|</a>"
regEx.IgnoreCase = True
regEx.Global = True
regExReplace = regEx.Replace(str1, replStr)
End Function
dim c1
c1="<p><a href='1.html'>11111</a></p><p>2222</p> <p><a href='2.html'>3333</a></p><p>44444</p> "
response.Write regExReplace(c1,"")
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。