<%     
'過濾重復    
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)     
%>