s_lastday
=
rs(
"
s_lastday
"
)
s_lastweek = rs( " s_lastweek " )
s_lastmonth = rs( " s_lastmonth " )
nowtime = now()
s_day = DateDiff( " d " ,s_lastday,nowtime)
s_week = DateDiff( " d " ,s_lastweek,nowtime)
s_month = DateDiff( " d " ,s_lastmonth,nowtime)
conn.execute " update soyu_study set s_click=s_click+1 where id= " & subsid
if s_month > 30 then
conn.execute " update soyu_study set s_monthclick=1,s_lastmonth=' " & nowtime & " ' where id= " & subsid
else
conn.execute " update soyu_study set s_monthclick=s_monthclick+1 where id= " & subsid
end if
if s_week > 7 then
conn.execute " update soyu_study set s_weekclick=1,s_lastweek=' " & nowtime & " ' where id= " & subsid
else
conn.execute " update soyu_study set s_weekclick=s_weekclick+1 where id= " & subsid
end if
if s_day > 1 then
conn.execute " update soyu_study set s_dayclick=1,s_lastday=' " & nowtime & " ' where id= " & subsid
else
conn.execute " update soyu_study set s_dayclick=s_dayclick+1 where id= " & subsid
end if
s_lastweek = rs( " s_lastweek " )
s_lastmonth = rs( " s_lastmonth " )
nowtime = now()
s_day = DateDiff( " d " ,s_lastday,nowtime)
s_week = DateDiff( " d " ,s_lastweek,nowtime)
s_month = DateDiff( " d " ,s_lastmonth,nowtime)
conn.execute " update soyu_study set s_click=s_click+1 where id= " & subsid
if s_month > 30 then
conn.execute " update soyu_study set s_monthclick=1,s_lastmonth=' " & nowtime & " ' where id= " & subsid
else
conn.execute " update soyu_study set s_monthclick=s_monthclick+1 where id= " & subsid
end if
if s_week > 7 then
conn.execute " update soyu_study set s_weekclick=1,s_lastweek=' " & nowtime & " ' where id= " & subsid
else
conn.execute " update soyu_study set s_weekclick=s_weekclick+1 where id= " & subsid
end if
if s_day > 1 then
conn.execute " update soyu_study set s_dayclick=1,s_lastday=' " & nowtime & " ' where id= " & subsid
else
conn.execute " update soyu_study set s_dayclick=s_dayclick+1 where id= " & subsid
end if