'操作限制函数
'塞北的雪 制作
'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作者: 匿名 时间: 2011-10-2 18:03 标题: 回复 板凳 的帖子 。。。 。。。作者: 梁锡伟 时间: 2011-10-2 18:05
每个发帖请求记录当前时间,和上一次比较作者: 匿名 时间: 2011-10-2 19:18
再使用Session的getLastAccessedTime()方法取得一个session的上一次最后操作时间,然后再使用Session的getLastAccessedTime()取得本次操作的最后时间,然后用本次操作的最后时间减去上次操作的最后时间,如果大于一分钟就让客户提交,反之不让提交。