📄 adminuser.asp
字号:
<%@language=vbscript%>
<%
if session("admin")="" then
response.redirect "admin.asp"
end if
%>
<!--#include file="cheak.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/new.css">
</head>
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from admin where flag>="&Session("flag")&" order by id"
rs.Open sql,conn,1,1
%>
<script language="JavaScript1.2">
<!--
function confirm_delete(){
if (confirm("你确定要删除该用户吗？")){
return true;
}
return false;
}
//-->
</script>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<div align="center">
<p> </p>
<p>已授权用户一览表 | <a href="adminuser2.asp" target="_self">查看未授权用户</a></p>
<table width="501" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#333333" bordercolordark="#FFFFFF">
<tr bgcolor="#F7FDF8">
<td height="30" width="120">
<div align="center">授权用户名</div>
</td>
<td height="30" width="120" bgcolor="#F7FDF8">
<div align="center">密码</div>
</td>
<td height="30" width="100" bgcolor="#F7FDF8">
<div align="center">权限</div>
</td>
<td height="30" width="130">
<div align="center">改变权限</div>
</td>
</tr>
</table>
<%while not rs.EOF %>
<%if (rs("flag")>Session("flag")) or (rs("username")=Session("admin")) then%>
<form method="post" action="saveuser.asp" style="margin:0">
<table width="500" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#333333" bordercolordark="#FFFFFF">
<tr>
<td height="30" width="120">
<div align="center">
<input type="text" name="manager" value="<%=rs("username")%>" size="12" class="myin1">
</div>
</td>
<td height="30" width="120">
<div align="center">
<input type="password" name="newpin" value="<%=rs("password")%>" size="12" class="myin1">
</div>
</td>
<td height="30" width="100" align="center">
<select name="flag">
<option value=1 <%if rs("flag")=1 then%>selected<%end if%>>管理员</option>
<option value=2 <%if rs("flag")=2 then%>selected<%end if%>>高级用户</option>
<option value=3 <%if rs("flag")=3 then%>selected<%end if%>>普通用户</option>
</select>
</td>
<td height="30" width="130">
<div align="center">
<input type="submit" name="Submit" value="修改">
<input type="submit" name="Submit" value="删除" onClick="return confirm_delete()">
<input type="hidden" name="oldmanager" value="<%=rs("username")%>">
<input type="hidden" name="oldpin" value="<%=rs("password")%>">
<input type="hidden" name="oldflag" value="<%=rs("flag")%>">
</div>
</td>
</tr>
</table>
</form>
<%else%>
<table width="501" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="30" width="120">
<div align="center"> <%=rs("username")%> </div>
</td>
<td height="30" width="120">
<div align="center"> ****** </div>
</td>
<td height="30" width="100"> <%if rs("flag")=1 then%>
<div align="center">管理员</div>
<%else%>
<div align="center">高级用户</div>
<%end if%>
</td>
<td height="30" width="130">
<div align="center"> </div>
</td>
</tr>
</table>
<%end if
rs.MoveNext
Wend
%>
</div>
<%
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>
<table width="60%" border="0" align="center">
<tr>
<td height="39">
<p>管 理 员:可以进行所有功能的操作<br>
高级用户:可以添加文章，担任专栏斑竹，并审核其中的文章发表。<br>
一般用户:只有添加文章的权限。<br>
<font color="#FF3333">管理员之间不能修改</font> </p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -