📄 usermanage.asp
字号:
<!--#include file=conn.asp -->
<%
IF Session("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
END IF
dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息管理系统</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF">
<div align="center" class="unnamed1">
<center> <p> </p>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#304D7C">
<td bgcolor="#abb8d6" class="unnamed1" height="30" align="left">
<center>
<font color="#FFFFFF" size="2"><a href="../default.asp" target="_top"> </a></font>
用户管理
</center>
</td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#abb8d6" width="168" height="143" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#DFDFDF">
<td class="unnamed2" height="2" bgcolor="#FFFFFF">
<div align="center" class="unnamed1"> 增 加 用 户</div>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<FORM METHOD=POST ACTION="UserADD.asp">
<div align="center">
<table width="98%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td>
<div align="center">用 户 名: <br>
<input type=text name=UserName2 size="15" class="smallInput">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">用 户 权 限: <br>
<select name="select" style="font-family: 宋体; font-size: 9pt">
<option value="super">系统管理员</option><option value="check">文章审核员</option>
<option value="input" selected>文章录入员</option>
</select>
</div>
</td>
</tr>
<tr>
<td>
<div align="center">密 码： <br>
<input type=text name=Passwd2 size="15" class="smallInput">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type=submit value=增加 name="submit" class="smallInput">
<input type="submit" name="Submit" value="取消" class="smallInput">
</div>
</td>
</tr>
</table>
</div>
</FORM>
</td>
</tr>
</table>
</td>
<td colspan="2" height="143" valign="top" align="right" bgcolor="#FFFFFF">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
SET DATABASE=Server.CreateObject("ADODB.connection")
%>
<p>用户列表<br>
<%
rst.open "select * from admin ",conn,1
if rst.EOF then
response.write "没有栏目：（"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#abb8d6">
<td width="8%">
<div align="center">ID号</div>
</td>
<td width="21%">
<div align="center">用户名</div>
</td>
<td width="30%">
<div align="center">密码</div>
</td>
<td width="18%">
<div align="center">权限</div>
</td>
<td width="12%">
<div align="center">修改</div>
</td>
<td width="11%">
<div align="center">删除</div>
</td>
</tr>
<%do while NOT rst.EOF%>
<tr>
<td width="8%" align="center" bgcolor="#FFFFFF"><%=rst("id")%></td>
<td width="21%" align="center" bgcolor="#FFFFFF"><%=rst("Username")%></td>
<td width="30%" align="center" bgcolor="#FFFFFF"><%=rst("Passwd")%></td>
<td width="18%" align="center" bgcolor="#FFFFFF"><%if rst("oskey")="super" then%>系统管理员<%end if%><%if rst("oskey")="check" then%>文章审核员<%end if%><%if rst("oskey")="input" then%>文章录入员<%end if%></td>
<td width="12%" align="center" bgcolor="#FFFFFF"><font color="#FFFFFF"><a href="useredit.asp?id=<%=rst("id")%>">修改</a></font></td>
<td width="11%" align="center" bgcolor="#FFFFFF"><font color="#FFFFFF"><a href="userdel.asp?id=<%=rst("id")%>&name=del">删除</a></font></td>
</tr>
<%
rst.MoveNext
loop
end if
rst.close
%>
</table>
<p><font color="#FF0000">大类管理员设置请在“大类管理”中设置，系统管理员具有所有权限，文章审核员可进行大类管理，可不必在大类中添加。</font></p>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</center></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -