% '过滤重复 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="(.)1+" str=regEx.replace(str,"$1") Set RegEx=Nothing Norepeat=str End Function '示例 s="1223445677777778aabbcccccccccc" response.write Norepeat(s) %