登录代码
<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>
审核代码
<!--#include file="conn.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
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天内，这个用户是不能成功登录的
我希望高手们帮忙解决一下吧
谢谢了
2008-04-15 22:50
