UC知道用asp,怎么设定用户登陆一天只获得一次积分，下面是一部分程序帮我看下，解决后我再给200积分谢谢了
来源：百度知道 编辑：UC知道 时间：2024/06/03 19:05:23
'用户登陆
sub user_login()
dim username,password,cookiesdate
checkgetcode()
username=YC_post("用户名",request.form("username"),0,10,2)
password=YC_post("密码",request.form("password"),0,16,6)
cookiesdate=replace(trim(request("cookiesdate")),"'","")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [YC_user] where user_name='"&username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！没有此用户！"))
Response.End
YC("<script>alert('');history.back();</script>")
Response.End
end if
if rs("user_pass")<>md5(password) then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！您的密码不正确！"))
Response.End
end if
sub user_login()
dim username,password,cookiesdate
checkgetcode()
username=YC_post("用户名",request.form("username"),0,10,2)
password=YC_post("密码",request.form("password"),0,16,6)
cookiesdate=replace(trim(request("cookiesdate")),"'","")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [YC_user] where user_name='"&username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！没有此用户！"))
Response.End
YC("<script>alert('');history.back();</script>")
Response.End
end if
if rs("user_pass")<>md5(password) then
response.redirect("error.asp?action=back&text="&server.urlencode("对不起！您的密码不正确！"))
Response.End
end if
Response.Cookies(yecaocookies).Expires=date()+1
把 Cookies 设置成功一天过期
或者你在数据库里建个表来判断
一般在进行登陆成后，我们都会把用户最后登陆时间进行入库保存。那么我们这里就可以这样做。
在登陆成功后，再没有更新用户最后登时间，我们进行提取出来给变量和当前登陆时间进行匹配，如果不为同一天，进行加分；为同一天则不加分。
user_last_login_time=rs("user_last_login_time")
if Date(user_last_login_time)<>Date(now()) then
'这里为加积程序
end if
上面代码加在用户登陆成功，更新用户登陆信息之间