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

比如 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="(.)\1+"   
    str=regex.replace(str,"$1")    
    set regex=nothing   
norepeat=str    
end function   

'示例    
s="1223445677777778aabbcccccccccc"   

response.write norepeat(s)    
%>