建站常识

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

Function preplace(chgStr, restr)
preplace = chgStr
Do While InStr(preplace, restr & restr) > 0
preplace= Replace(preplace, restr & restr, restr)
Loop
response.write preplace
End Function