28,406
社区成员
发帖
与我相关
我的任务
分享
''=======================================================
'用户每天登陆都可增加1点劵,每天只计一次 ,每天重复登陆N次也只加一次点劵
''========================================================
sstr="select * from jflog where username="&sqlstr(session("useruname"))&" order by jfid desc"
set rrs=cn.execute(sstr)
if not rrs.eof then
if stime=formatdate(rrs("addtime"),2) then
a="Update member set dlhits=dlhits+1,dltime=getdate(),dlip='"&dlip&"' where userID=" & Session("UserID")
Cn.execute(a)
session("jifen")=objrs("jifen")
else
b="Update member set dlhits=dlhits+1,dltime=getdate(),dlip='"&dlip&"',jifen=jifen+10,dj=dj+1 where userID=" & Session("UserID")
Cn.execute(b)
h="Update jf set jf=jf+10 where userID=" & Session("UserID")
Cn.execute(h)
j="Update dj set dj=dj+1 where userID=" & Session("UserID")
Cn.execute(j)
c="insert into jflog(userid,username,addtime,jfmx,bz,jf,ip) values(" & sqlstr(Session("UserID")) & "," & sqlstr(Session("userUname")) &",getdate()," & sqlstr(jfmx)&"," & sqlstr(bz)&"," & sqlstr(jf)&"," & sqlstr(dlip)&")"
cn.execute c
session("jifen")=objrs("jifen")+10
f="insert into djlog(userid,username,addtime,djmx,bz,dj,ip) values(" & sqlstr(Session("UserID")) & "," & sqlstr(Session("userUname")) &",getdate()," & sqlstr(djmx)&"," & sqlstr(bz)&"," & sqlstr(dj)&"," & sqlstr(dlip)&")"
cn.execute f
session("dj")=objrs("dj")+1
end if
else
d="Update member set dlhits=dlhits+1,dltime=getdate(),dlip='"&dlip&"',jifen=jifen+10,dj=dj+1 where userID=" & Session("UserID")
Cn.execute(d)
h="Update jf set jf=jf+10 where userID=" & Session("UserID")
Cn.execute(h)
j="Update dj set dj=dj+1 where userID=" & Session("UserID")
Cn.execute(j)
e="insert into jflog(userid,username,addtime,jfmx,bz,jf,ip) values(" & sqlstr(Session("UserID")) & "," & sqlstr(Session("userUname")) &",getdate()," & sqlstr(jfmx)&"," & sqlstr(bz)&"," & sqlstr(jf)&"," & sqlstr(dlip)&")"
cn.execute e
session("jifen")=objrs("jifen")+10
g="insert into djlog(userid,username,addtime,djmx,bz,dj,ip) values(" & sqlstr(Session("UserID")) & "," & sqlstr(Session("userUname")) &",getdate()," & sqlstr(djmx)&"," & sqlstr(bz)&"," & sqlstr(dj)&"," & sqlstr(dlip)&")"
cn.execute g
session("dj")=objrs("dj")+1
end if
'======================================================
'用户每天登陆都可增加10积分,每天只计一次 ,每天重复登陆N次也只加一次积分