不允许字符串中连续重复超过2次，可以在发布信息网站禁止标题中发布某些无意义的重复字符。

函数代码：

<%
function checkrepeat(txt)  
    checkrepeat=false  
    initialtxt=""  
    num=1  
    for i=1 to len(txt)  
        character=mid(txt,i,1)  
        if character=initialtxt then  
            num=num+1  
        else  
            num=1  
        end if  
        initialtxt=character  
        if num>2 then  
            checkrepeat=true    
        end if  
    next  
end function  
%>

调用方法：

<%
text="www.tianzhigang.com"  
if checkrepeat(text)=true then  
response.Write("有重复超过2个的字符！")  
else  
response.Write("无重复超过2个的字符！")  
end if
%>