📄 admin_admin.asp
字号:
<!--#include file="admin.asp"-->
<!--#include file="../inc/md5.asp"-->
<% chk_admin_login(3) %>
<%
if request("action")="add" then
user=request.form("user")
pass=request.form("pass")
pass2=request.form("pass2")
flag=request.Form("flag")
if user="" or pass="" or flag="" then
Response.write"<script>alert('管理员帐号、密码及等级均不能为空！');location.href='javascript:history.back()'</script>"
response.end
end if
if pass<>pass2 then
Response.write"<script>alert('两次输入的密码不一致！');location.href='javascript:history.back()'</script>"
response.end
end if
sql="select * from manage_user where username='"&user&"'"
rs.open sql,conn,1,3
if not rs.eof then
Response.write"<script>alert('管理员："&user&"已经存在，请使用其它名称！');location.href='admin_admin.asp'</script>"
response.end
rs.close
set rs=nothing
end if
set rs1=server.createobject("adodb.recordset")
sql1="select * from Manage_User"
rs1.open sql1,conn,1,3
'添加一个管理员帐号到数据库
rs1.addnew
rs1("userName")=user
rs1("passWord")=md5(pass)
rs1("flag")=flag
rs1("lock")=False
rs1.update
rs1.close
set rs=nothing
Response.write"<script>alert('新增管理员:"&user&"操作成功！');location.href='admin_admin.asp'</script>"
end if
%>
<%
deluser=request("deluser")
if deluser=Request.Cookies("name") then
response.write"<script>alert('错误：不能删除当前正在使用的帐号！');location.href='javascript:history.back()'</script>"
response.end
else
if request("deluser")<>"" then
set rs2=Server.CreateObject("adodb.recordset")
sql2="select * from manage_user where username='"&request("deluser")&"'"
rs2.open sql2,conn,1,3
rs2.delete
rs2.close
set rs2=nothing
response.write"<script>alert('管理员："&deluser&"的帐号已经删除！');location.href='admin_admin.asp'</script>"
end if
end if
if request("lockuser")<>"" then
if request("lockuser")=Request.Cookies("name") then
response.write"<script>alert('错误：不能锁定当前正在使用的帐号！');location.href='javascript:history.back()'</script>"
response.end
else
set rs2=Server.CreateObject("adodb.recordset")
sql2="select * from manage_user where username='"&request("lockuser")&"'"
rs2.open sql2,conn,1,3
rs2("lock")=True
rs2.update
rs2.close
set rs2=nothing
response.write"<script>alert('已经将此管理员锁定！');location.href='admin_admin.asp'</script>"
end if
end if
if request("unlockid")<>"" then
set rs2=Server.CreateObject("adodb.recordset")
sql2="select * from manage_user where id="&request("unlockid")
rs2.open sql2,conn,1,3
rs2("lock")=False
rs2.update
rs2.close
set rs2=nothing
response.write"<script>alert('已经重新启用该管理员帐号！');location.href='admin_admin.asp'</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
function Confirm()
{
if(confirm("确定要执行此操作吗？"))
return true;
else
return false;
}
//-->
</script>
</head>
<body>
<table width="300" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<form name="form1" action="?action=add" method="post">
<tr align="center">
<td colspan="2" class="td-title-color"><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="shadow">添加管理员</td>
</tr>
</table> </td>
</tr>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="right"> 管理员帐号：</td>
<td> <input name="user" type="text" id="user2" size="16" maxlength="20"></td>
</tr>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="right"> <div align="right">管理员密码：</div></td>
<td><input name="pass" type="password" id="pass" size="16"></td>
</tr>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="right">密码确认：</td>
<td><input name="pass2" type="password" id="pass2" size="16"></td>
</tr>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="right"> <div align="right">等级：</div></td>
<td><select name="flag">
<option value="">请选择</option>
<option value="1">输入员</option>
<option value="2">审核员</option>
<option value="3">管理员</option>
</select></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<INPUT type=submit value='确认添加' name=Submit2>
</div></td>
</tr>
</form>
</table>
<p></p>
<table width="95%" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<tr align="center" class="td-title-color">
<td width="14%" height="25"> 用户名</td>
<td width="16%">等级</td>
<td width="24%">登录时间 </td>
<td width="25%">登录IP </td>
<td width="21%">操 作</td>
</tr>
<%
sql="select * from manage_user"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
%>
<tr align="center" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td height="22"> <%=rs("UserName")%></td>
<td> <%select case rs("flag")
case "1"
response.write"输入员"
case "2"
response.write"审核员"
case else
response.write"管理员"
end select
%></td>
<td><%=rs("logintime")%></td>
<td><%=rs("loginip")%></td>
<td><a href="admin_edit.asp?id=<%=rs("id")%>">修改</a> | <a href="?deluser=<%=rs("username")%>" onClick="return Confirm();">删除</a> |
<%
if rs("lock")=False then
Response.Write("<a href=?lockuser="&rs("username")&" onClick='return Confirm();'>锁定</a>")
else
Response.Write("<a href=?unlockid="&rs("id")&" onClick='return Confirm();'><b>启用</b></a>")
end if
%></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
conn.close
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -