登录限制问题 - ASP技术论坛

问题点数：0 回复次数：10

登录限制问题

是这样子的，我正在做一个毕业生就业调查系统，
我想控制指定用户限制登录时间，是这个意思，比如说一个用户
第一次成功登录后，进行过相应的操作，我想让这个用户在100天后才能
再次成功登录，而在这100天内，这个用户是不能成功登录
这段限制代码怎么写？
请高手们指点！
谢谢了

搜索更多相关主题的帖子: 毕业生就业　系统　用户　登录　

第 2 楼

得分:0

加一个登陆时间的字段啊
每次它登陆时只要把当天时间减一下这个时间，然后与100做比较。大于通过，小于不通过并提交还差多少天。

第 3 楼

得分:0

具体代码如何写啊
请高手们明示
指点一下就行了
谢谢了

第 4 楼

得分:0

其实使用DateDiff函数还是很好实现这个功能的
DateDiff 函数返回两个日期之间的时间间隔。格式：
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

参数
interval
必选项。String expression 表示用于计算 date1 和 date2 之间的时间间隔。date1, date2
必选项。日期表达式。用于计算的两个日期。
Firstdayofweek
可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
Firstweekofyear
可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

yyyy 年
q 季度
n 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒

例子：
DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)

第 5 楼

得分:0

有思路了还要代码?`````

Behind the glory of a lonely words
荣耀的背后刻着一道孤独......

第 6 楼

得分:0

登录代码
<body bgcolor="#FFFFFF">
<form method="post" action="chklogin.asp" >
  <div  align="center">
    <p>登     录</p>
    <p>用户名称:
      <input class="TextBorder"  name="username" size=13 value="">
    </p>
    <p> 管理密码:
      <input class="TextBorder"
            name="password" size=13 type="password" value="">
    </p>
    <p>

          <input type="radio" value="admin" checked name="key">管理员
          <input type="radio" name="key" value="root">用户
    </p>
    <p>    
      <input type="submit" value="登录" class="buttonface">
          
       <input type="reset" value="重置"  class="buttonface">
        </p>
  </div>
</form>
</body>

审核代码


<%
dim rs,sql
dim username,password,key
username=htmlencode2(request.form("username"))
password=htmlencode2(request.form("password"))
key=htmlencode2(request.form("key"))
if key="admin"then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'and key='"&key&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
   response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
   response.write"javascript:history.go(-1)</script>"
else
response.cookies("adminok")=true
response.Redirect "manage.asp"
   end if
else
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'and key='"&key&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
response.write"javascript:history.go(-1)</script>"
else
response.cookies("adminok")=true
response.Redirect "user.asp"
   end if
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
数据库为下图
我想了几天还是添加不成，使第一次成功登录后，进行过相应的操作，我想让这个用户在100天后才能
再次成功登录，而在这100天内，这个用户是不能成功登录的
我希望高手们帮忙解决一下吧
谢谢了

Image00000.gif (4.43 KB)

图片附件: 游客没有浏览图片的权限，请登录或注册

第 7 楼

得分:0

有没有会的
帮忙指点一下吧
谢谢各位了

第 8 楼

得分:0

高手何要啊
小弟我好久没有上网
我摆弄了好一阵子了
还是不可以实现这个功能
就是我想控制指定用户限制登录时间，是这个意思，比如说一个用户
第一次成功登录后，进行过相应的操作，我想让这个用户在100天后才能
再次成功登录，而在这100天内，这个用户是不能成功登录

真的麻烦大家啊
帮忙参考一下吧
谢谢了

第 9 楼

得分:0

加上一个登陆时间的字段
假设为datetime 默认值为date()



<%
dim rs,sql
dim username,password,key
username=htmlencode2(request.form("username"))
password=htmlencode2(request.form("password"))
key=htmlencode2(request.form("key"))
if DateDiff("d",rs("datetime"),date())>100 then
if key="admin"then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'and key='"&key&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
   response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
   response.write"javascript:history.go(-1)</script>"
else
response.cookies("adminok")=true
response.Redirect "manage.asp"
   end if
else
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'and key='"&key&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
response.write"javascript:history.go(-1)</script>"
else
rs("datetime")=date()
rs.update  '如果登陆成功就更改一下登陆日期
response.cookies("adminok")=true
response.Redirect "user.asp"
   end if
end if
else
response.write"<SCRIPT language=JavaScript>alert('距离上次登陆时间没到100天！');"
response.write"javascript:history.go(-1)</script>"
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
你真的很懒

第 10 楼

得分:0

发错了。没看到你的有管理员和用户的区别。而且我位置也错了


<%
dim rs,sql
dim username,password,key
username=htmlencode2(request.form("username"))
password=htmlencode2(request.form("password"))
key=htmlencode2(request.form("key"))
if key="admin"then
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'and key='"&key&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
   response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
   response.write"javascript:history.go(-1)</script>"
else
response.cookies("adminok")=true
response.Redirect "manage.asp"
   end if
else
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'and password='"&password&"'and key='"&key&"'"
rs.open sql,conn,3,3
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
response.write"javascript:history.go(-1)</script>"
else
if DateDiff("d",rs("datetime"),date())>100 then
rs("datetime")=date()
rs.update  '如果登陆成功就更改一下登陆日期
response.cookies("adminok")=true
response.Redirect "user.asp"
else
response.write"<SCRIPT language=JavaScript>alert('距离上次登陆时间没到100天！');"
response.write"javascript:history.go(-1)</script>"
end if
   end if
end if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>