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)

　　%>