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

<%
'防止刷新代码开始
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()

'防止刷新代码结束
%>

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