利用Session限制重复操作的简单方法

"操作限制函数
"塞北的雪 制作
"www.knowsky.com
 "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