asp 正则 过滤重复字符串的代码

<% 
'过滤重复 
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) 
%>