有时我们要限制用户重复刷新一个页面。很多站点对于录入操作都用验证码来限制恶意灌水。但是如果是在一套web管理系统中,执行一段没有界面的逻辑操作代码时,就不能用验证码了。我们一般用session来限制。下面就是一个包装的函数,用法很简单。

'操作限制函数
'塞北的雪 制作
 'SessionName  session的名字
 'SecondSpan   时间间隔(单位:秒)
 function CanDoRepeat(SessionName,SecondSpan)
 xx=timer()
 if session(SessionName)="" then  
     session(SessionName)=xx
 else
     if xx-session(SessionName)<SecondSpan then
        CanDoRepeat=false
     else
        session(SessionName)=xx
        CanDoRepeat=true
     end if
 end if
 end function