我现在目前的情况是用户每登录一次积分就增加2分，我希望的结果是用户只有一天之内的第一次登录才增加积分2分，其他的登录不增加积分
请问：如何判断用户一天之内的第一次登录呢？

记录最后登陆时间 计算是否是当天
rs("time")=now

if datevalue(rs("time"))=date then
 response.write "登录增加积分每天只增加一次。"
end

if DateDiff("d",CDate(rs("time")),Date())=0 then
   response.write "登录增加积分每天只增加一次。"
else
   rs("time")=Now
   '这里写积分增加代码
end