比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc[code]<%    '过滤重复   Function norepeat(Str)    Dim RegEx    If IsNull(Str) Or Str="" Then Exit Function   ...