📄 adminspower.asp
字号:
<!--#include file="conn.asp"-->
<%
dim myself,error
if request.form("add")<>"" then
sql="select * from cadre_info where userid="&request.form("adduserid")
rs.open sql,conn,3,2
if not rs.eof then
rs("spower")=request.form("addspower")
rs.update
rs.close
set rs=nothing
else
error="该用户不存在！"
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../DEFAULT.CSS">
<script language="JavaScript1.2" src="../js/lock.js"></script>
<script language="javascript">
function edit(i)
{
document.all.adduserid.value=i;
}
</script>
</head>
<body oncontextmenu="self.event.returnValue=false" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" height="25">
<tr>
<td width="100%">当前位置： 系统管理 > <font color="#FF0000">授权管理</font></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%">
<form method="POST" action="<%=myself%>">
<tr>
<td width="100%" bgcolor="#F1F1F1" class="border_blue"> 新增有权用户</td>
</tr>
<tr>
<td width="100%" bgcolor="#F1F1F1" style="height: 30">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber4">
<tr>
<td> <select size="1" name="addspower">
<option selected>[请选择权限]</option>
<option value="S">超级用户</option>
<option value="L">领导</option>
<option value="A">管理员</option>
<option value="U">普通用户</option>
</select></td>
<td> 人员编号：<input type="text" name="adduserid" size="16" class="s01"></td>
<td> <input type="submit" value="授 权" name="add" class="s02"> <%=error%></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<form>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" id="AutoNumber3" class="withborder" bgcolor="#F1F1F1" width="100%">
<tr>
<td height="20" class="border" align="center" width="80">编号</td>
<td class="border" align="center">姓名</td>
<td class="border" align="center">部门</td>
<td class="border" align="center">管理权限</td>
<td class="border" align="center" width="60">编辑</td>
</tr>
<% sql="select * from cadre_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
do while not rs.eof
if instr(rs("spower"),"U")=0 then
dim editspower
if instr(rs("spower"),"S")<>0 then editspower="超级用户"
if instr(rs("spower"),"L")<>0 then editspower="领导"
if instr(rs("spower"),"A")<>0 then editspower="管理员" %>
<tr>
<td height="20" align="center"><%=rs("userid")%></td>
<td align="center"><%=rs("username")%> </td>
<td align="center"><%=rs("department")%> </td>
<td align="center"><%=editspower%> </td>
<td align="center" width="60">
<a title="编辑" href="javascript:edit(<%=rs("userid")%>)">
<img border="0" src="../images/edit.gif"></a></td>
</tr>
<% end if
rs.MoveNext
loop
rs.close
set rs=nothing
set conn=nothing %>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -