登录限制问题 - 编程论坛

#2

不惑2008-04-15 23:29

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

#3

gzbhappy2008-04-16 16:30

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

#4

yms1232008-04-16 16:39

其实使用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

FFEEDD2008-04-16 16:53

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

#6

gzbhappy2008-05-12 13:09

登录代码
<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天内，这个用户是不能成功登录的
我希望高手们帮忙解决一下吧
谢谢了

#7

gzbhappy2008-05-12 18:25

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

#8

gzbhappy2008-05-12 21:34

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

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

#9

acnch12008-05-13 01:49

加上一个登陆时间的字段
假设为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

acnch12008-05-13 01:57

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


<%
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
%>

#11

gzbhappy2008-05-13 17:37

谢谢了，
问题解决了