一个IP 一天只记录一次数据的ASP代码怎样写

会员推广加点系统但不知道怎样可以防止刷新和做到一个IP在同一天只加点一次！现在就是每刷新会员的推广连接都会向该会员加点。
Referral = Request ("ref")
Session ("Referral") = Referral
if Referral="" then
else
tgly= Request.serverVariables("Http_REFERER")
ip = Request.serverVariables("REMOTE_ADDR")
rs.Open "Insert Into tg(UserName, tgip, tgtime, tgly) values('" & Referral & "', '" & ip & "', Date(),'" & tgly & "')",Conn
rs.Open "Update user Set jifen = jifen + 1 Where UserName = '" & Referral & "'",Conn
end if

我的代码是这样的！还要怎样才可以做到一个IP在一天内只记录一次！给个例子！