在表中加多一个有效期的字段"最后时间"日期时间型,增加一个时限"时限"整型,然后在列表页面加一些检测代码.
’在列表到超时的用户发布记录时会删掉的
endtime=dateadd("h",rs("时限"),rs("最后时间"))
’endtime这个就是到期的极限时间,超过这个时间就准备删除
lefttime=datediff("h",now(),endtime)
’lefttime就是剩余时间(以小时计)
if lefttime<0 then
’判断是否超过时限
sql="delete from 用户发布 where 序号=" & rs("序号")
conn.Execute sql end if ’哈哈,你看看吧,应该会没了. 或者 lefttime=datediff("d",now(),rs("最后时间"))
总之now()超过了最后时间lefttime<0都可以删,就是这么简单. 当有人列表记录时就是检测一次记录.