我想做个网页让对于访问者，一天内，我只让他访问一次,怎么做呢?

<%
'防止刷新代码开始
dim RefreshIntervalTime
RefreshIntervalTime = 86400 '防止刷新的时间秒数，0表示不防止
If Not IsEmpty(Session("QYCvisit")) and isnumeric(Session("QYCvisit")) and int(RefreshIntervalTime) > 0 Then
if (timer()-int(Session("QYCvisit")))*1000 < RefreshIntervalTime * 1000 then
  Session("QYCvisit") = timer()
  Response.end
end if
End If
Session("QYCvisit") = timer()

'防止刷新代码结束
%>

我找到了段代码,这样只能是防止刷新,但是只要再次访问,还是一样也可以访问到这个页面的

对ip做限制不行么？

记录访问时间第一次访问时
用DateDiff将用户的访问时间与现在的日期进行判断如果两个时间相差为0
证明是当天已经访问过了不能访问
不为0则将当前时间写入该用户的访问时间数据库里。

访问一次记录下当天日期a，当下次访问时用a和当天日期作比较，相同则禁止访问，不同则允许访问