标题:求帮助,登陆的时候增加记录登陆时间(ACCESS数据库)
只看楼主
lm339lm
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-7-12
结帖率:0
已结贴  问题点数:20 回复次数:2 
求帮助,登陆的时候增加记录登陆时间(ACCESS数据库)
login.asp
程序代码:
<html>
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<body>
<!--#include file="top.asp"-->

<%
session("user_name")=""
%>

<script language=javascript>
function check()
{if (document.loginform.user_name.value=="")
{alert("请输入用户名");
document.loginform.user_name.focus();
return false;}
if (document.loginform.user_password.value=="")
{alert("请输入用户密码");
document.loginform.user_password.focus();
return false;}
document.loginform.submit();
}
</script>

<div align="center">
  <center>
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="100">
  <tr>
    <td align="center">
    <div align="center">
      <center>

      <form name="loginform" action="check.asp">
      <br>
      <table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="300">
    <tr>
          <td></td>
          <td></td>
        </tr>
        <tr>
          <td width="100" align="right">用户名:</td>
          <td width="200"><input type="text" name="user_name" size="20"></td>
        </tr>
        <tr>
          <td align="right">&nbsp;&nbsp;码:</td>
          <td><input type="password" name="user_password" size="20"></td>
        </tr>
        <tr>
          <td><div align="right">登陆时间:</div></td>
          <td><input type="text" name="sj" value="<%response.write formatdatetime(now())%>"readonly onClick="alert('禁止修改')" size="20"></td>
        </tr>
        <tr>
          <td></td>
          <td><input type="button" class="button" value="登录" name="B1" onClick="check()">
              <input type="reset" class="button" value="重置" name="B2">
              <input type="button" class="button" value="注册" name="B12" onClick="window.location.href('user_res.asp')"></td>
        </tr>
      </table>
      </form>
      </center>
    </div>
    </td>
  </tr>
</table>
  </center>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
check.asp
程序代码:
<html>
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<body>
<!--#include file="top.asp"-->
<!--#include file="menu.asp"-->
<div align="center">
  <center>
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="350">
  <tr>
    <td align="center">
    <div align="center">
      <center>


<%
sql="select * from tbUser where user_name='" & Request("user_name") & "' and user_password='" & Request("user_password") & "'"
Set Rs=conn.Execute(sql)
If Rs.Bof OR Rs.Eof Then
    Response.Write "用户名或密码错误!请重新登录!<br>"
    Response.Write "<a href='login.asp'>返回</a>"
else
    session("user_name")=Request("user_name")

     sql = "update tbUser set sj='" & Request("sj") & "' where user_id=" & Request("user_id")
      conn.Execute(sql)
    Response.Redirect "index.asp"
end if
%>



      </center>
    </div>
    </td>
  </tr>
</table>
  </center>
</div>
</body>
</html>

tbuesr表里
user_name
user_password
quanxian(帐号的权限)
sj(用来记录登陆时间时间)

就想把每次的登陆时间,都在access数据库里记录。
新登陆一次把上次的登陆时间替换了

搜索更多相关主题的帖子: 数据库 记录 
2011-07-12 22:14
lm339lm
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-7-12
得分:0 
回复 楼主 lm339lm
我注册就的时候加入数据库的时间就可以了。但是登陆就不行
程序代码:
<html>
<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<body>
<!--#include file="top.asp"-->


<div align="center">
  <center>
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="350">
  <tr>
    <td align="center">
    <div align="center">
      <center>

<%

user_name=replace(request.form("user_name"),"'","''")
set rs=server.CreateObject("ADODB.RecordSet")
sql = "Select * from tbUser where user_name= '"&user_name&"'"
'response.write sql
'response.end
rs.open sql,conn,1,3
if not rs.eof then
response.write("<script>alert('错误:用户名已存在,请改名!');history.go(-1)</script>")
else
into_db = "insert into tbUser ( user_name,user_password,quanxian,sj ) values('"+Request.Form("user_name")+"','"+Request.Form("user_password")+"','"+Request.Form("quanxian")+"','"+Request.Form("sj")+"')"
      conn.Execute(into_db)
      response.redirect("user_r.asp")
end if



%>



      </center>
    </div>
    </td>
  </tr>
</table>
  </center>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>

这个是注册的时候的chack.asp

这个写入数据库正常....
2011-07-12 22:17
liang198207
Rank: 5Rank: 5
等 级:职业侠客
帖 子:70
专家分:300
注 册:2011-5-10
得分:20 
sql = "update tbUser set sj='" & Request("sj") & "' where user_id=" & Request("user_id")
sql = "update tbUser set sj='" & Request("sj") & "' where user_name=" & Request("user_name")
user_id这个参数在传递的参数中没有,它不能作为查找的依据啊。
2011-07-17 12:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-345357-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056693 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved