登录成功后向数据库更新最后登录时间 登录IP 登录次数 进来帮我看看
<%
A_LoginDate=now()
A_LoginIp=Request.ServerVariables("REMOTE_ADDR")
sql="update Ad_admin set A_LoginDate='"&now()&"' and A_LoginIp='"&Request.ServerVariables
("REMOTE_ADDR")&"' and A_logins=A_logins+1 where A_UserName='"&request("A_UserName")&"'"
conn.execute(sql)
%>
这句是向数据库更新最后登录时间 登录IP 登录次数
<%
select case request("action")
case "login"
A_UserName=request("A_UserName")
A_PassWord=md5(request("A_PassWord"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Ad_admin where A_UserName='"&A_UserName&"' and
A_PassWord='"&A_PassWord&"'"
rs.open sql,conn,1,1
if rs.eof then%>
<SCRIPT language="javascript">
alert("用户名或密码不正确!");
history.back();
</SCRIPT>
<%else
Session("Passed")=true '定义passed对象,表示用户已登录
session("A_Power")=rs("A_Power")
session("A_UserName")=rs("A_UserName")
session("A_PassWord")=rs("A_PassWord")
Response.Redirect("index.asp")
end if
end select%>
这是登录后台并定义session对象
向数据库更新最后登录时间 登录IP 登录次数 那条代码应该放在哪才能让登录成功后向数据库更新记录
试了很多次登录后都没更新记录 哪位大虾能帮我解决一下
------解决方案--------------------
VBScript code
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from Ad_admin where A_UserName='"&A_UserName&"'"
rs2.open sql2,conn,1,3
rs2("A_LoginDate")=A_LoginDate
rs2("A_LoginIp")=A_LoginIp
rs2("A_Logins")=rs2("A_Logins")+1
rs2.update
rs2.close
set rs2 = nothing