日期:2011-06-10 浏览次数:21183 次
'操作限制函数
'塞北的雪 制作
'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