比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 代码如下: <% ‘过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str=”” Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True RegEx.MultiLine = True RegEx.pattern=
比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 代码如下:<% ‘过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str=”” Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.IgnoreCase=True