'专门处理连续重复字符只保留一个的函数'chgStr原字符串（如"888abcabcabc666"）'restr需要替换的字符（如"abc"）Function preplace(chgStr, restr)preplace = chgStrDo While

'专门处理连续重复字符只保留一个的函数'chgStr原字符串（如"888abcabcabc666"）'restr需要替换的字符（如"abc"）Function preplace(chgStr, restr)preplace = chgStrDo While InStr(preplace, restr & restr) > 0preplace= Replace(preplace, restr & restr, restr)Loopresponse.write preplaceEnd Function

上一篇：在上海做一个企业网站多少钱？ 下一篇：什么是微信小程序？