
1个回答
展开全部
给用户表加字段logins
然后在判断用户和密码正确的地方加上这一行语句
rs("logins")=rs("logins")+1 '登陆数加1
例如:
dim admin,password
admin=checkstr(trim(request.form("admin")))
password=checkstr(trim(request.form("password")))
if admin="" or password="" then
call mb("请输入登陆帐号或登陆密码!","",0)
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin='"&admin&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
call mb("对不起,您的帐号或密码有误!","",0)
elseif rs("password")<>md5(password,"long") then
call mb("对不起,您的帐号或密码有误!","",0)
else
'登陆成功
rs("logins")=rs("logins")+1 '登陆数加1
rs("lastlogin")=now() '最后登陆
rs("lastip")=request.servervariables("remote_addr") '写入最后登陆IP
session("flag")=rs("flag") '管理员帐号
rs.update
session("admin")=admin
rs.close
set rs=nothing
response.redirect("admin_index.asp")
end if
然后在判断用户和密码正确的地方加上这一行语句
rs("logins")=rs("logins")+1 '登陆数加1
例如:
dim admin,password
admin=checkstr(trim(request.form("admin")))
password=checkstr(trim(request.form("password")))
if admin="" or password="" then
call mb("请输入登陆帐号或登陆密码!","",0)
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin='"&admin&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
call mb("对不起,您的帐号或密码有误!","",0)
elseif rs("password")<>md5(password,"long") then
call mb("对不起,您的帐号或密码有误!","",0)
else
'登陆成功
rs("logins")=rs("logins")+1 '登陆数加1
rs("lastlogin")=now() '最后登陆
rs("lastip")=request.servervariables("remote_addr") '写入最后登陆IP
session("flag")=rs("flag") '管理员帐号
rs.update
session("admin")=admin
rs.close
set rs=nothing
response.redirect("admin_index.asp")
end if
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询