登录成功后向数据库更新最后登录时间 登录IP 登录次数 进来帮小弟我看看

登录成功后向数据库更新最后登录时间 登录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