📄 usermanage.asp
字号:
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<%
IF not(Session("KEY")="super") THEN
response.redirect "error.asp?id=065"
response.end
END IF
%>
<%
dim rs,tsql
dim rst
dim total
%>
<html>
<head>
<title>寂寞百合----->用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
a:link { text-decoration: underline; color: #000000; font-family: 宋体 }
a:visited { text-decoration: underline; color: #000000; font-family: 宋体 }
a:hover { text-decoration: underline; color: #cc0000 }
body {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
table {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
-->
</style>
</head>
<body bgcolor="#C0C0C0" text="#000000">
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width="80%" align=center border=1 bordercolor="#454545">
<tr>
<td width="33%" height="21">
<p align="center">用户级别</td>
<td width="22%" height="21">
<p align="center">英文</td>
<td width="45%" height="21">
<p align="center">说明</td>
</tr>
<tr>
<td width="33%" height="1">系统管理员</td>
<td width="22%" align="center" height="1">
<p align="center">super</td>
<td width="45%" height="1" align="center">超级用户，具有所有权限</td>
</tr>
<tr>
<td width="33%" height="23">录入审核员</td>
<td width="22%" align="center" height="23">check</td>
<td width="45%" height="23" align="center">文章审核员，负责审核工作，有录入功能</td>
</tr>
<tr>
<td width="33%" height="19">文章录入员</td>
<td width="22%" align="center" height="19">input</td>
<td width="45%" height="19" align="center">普通用户，有发表权限</td>
</tr>
</table>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width="80%" align=center border=1 bordercolor="#454545">
<tr>
<td width="7%">
<div align="center">ID号</div>
</td>
<td width="20%">
<div align="center">用户名</div>
</td>
<td width="17%">
<div align="center">密码</div>
</td>
<td width="29%">
<div align="center">权限</div>
</td>
<td colspan="2">
<div align="center">操作</div>
</td>
</tr> <%
mmm=request("mmm")
if mmm="" then mmm=0
ttt=request("ttt")
set rst=server.createobject("adodb.recordset")
rst.open "select * from admin order by id desc ",conn,1
total=rst.recordcount
%>
<% i=0 %>
<%
if mmm<>0 then
for iisf=1 to mmm *20
if rst.eof then exit for
rst.movenext
next
end if
do while not rst.eof
%>
<tr>
<td width="7%" align="center"><%=rst("id")%> </td>
<td width="20%" align="center"><%=rst("Username")%> </td>
<td width="17%" align="center"><%=rst("Passwd")%> </td>
<td width="29%" align="center"><%=rst("oskey")%> </td>
<td width="12%" align="center"><font color="#FFFFFF"> <a href="deluser.asp?id=<%=rst("id")%>&name=del">删除</a></font></td>
<td width="15%" align="center"> <a href="edituser.asp?id=<%=rst("id")%>&name=<%=rst("Username")%>">修改</a></td>
<% i=i+1
rst.movenext
if i=20 then exit do
loop
%>
</tr>
</table>
<table width="80%" border="0" align="center">
<tr>
<td> 共<font color="#FF0000"><%=total%></font>位用户
每页<font color="#FF0000">20</font>名 第 <%=mmm+1%>
页
<!--上页-->
<%if mmm<>0 then%>
<%="<a href=usermanage.asp?mmm=" & mmm-1 & ">上页</a>"%>
<%end if%>
<!--下页-->
<%if not rst.eof then%>
<%="<a href=usermanage.asp?mmm=" & mmm+1 & ">下页</a>"%>
<%end if%>
</td>
</tr>
</table>
<table width="80%" border="0" align="center">
<tr>
<td align="center" width="50%"> <font color="#FF0000"><b>增
加 用 户</b></font></td>
<td align="center"> <font color="#FF0000"><b>删 除 用 户</b></font></td>
</tr>
<tr>
<td>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="80%" cellpadding="0" height="1" align="center">
<form METHOD=POST ACTION="adduser.asp"><tr>
<td height="1" width="178">
<div align="left">用 户 名：<font color="#008000">
<input type=text name=UserName2 size="12" style="border: 1px solid #000000">
</font></div>
</td>
</tr>
<tr>
<td height="1" width="178">
<div align="left">用户权限：<font color="#008000">
<select name="select" >
<option value="super" selected>系统管理员</option>
<option value="check">系统审核员</option>
<option value="input">系统录入员</option>
</select>
</font><font color="#008000"> </font></div>
</td>
</tr>
<tr>
<td height="18" width="178">
<div align="left">用户密码：<font color="#008000">
<input type=password name=Passwd2 size="12" style="border: 1px solid #000000">
</font><font color="#008000"> </font></div>
</td>
</tr>
<tr>
<td height="1" width="178">
<div align="center">
<font color="#008000">
<input type=submit value=增加 name="submit" >
<input type="submit" name="rest" value="取消" >
</font>
</div>
</td>
</tr>
<tr><input type="hidden" name=method value="added">
<td width="178" height="1" align="center"></td>
</tr></form>
</table>
</td>
<td align="center">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="80%" cellpadding="0" height="1">
<form METHOD=POST ACTION="deluser1.asp"><tr>
<td height="1" width="186">
<div align="center">用 户 名：<font color="#008000">
<input type=text name=UserName2 size="15" style="border: 1px solid #000000">
</font><font color="#008000"> </font></div>
</td>
</tr>
<tr>
<td height="1" width="186">
</td>
</tr>
<tr>
<td height="18" width="186">
</td>
</tr>
<tr>
<td height="1" width="186">
<div align="center">
<font color="#008000">
<input type=submit value=删除 name="submit" >
<input type="submit" name="rest" value="取消" >
</font>
</div>
</td>
</tr>
<tr>
<td width="186" height="1" align="center"></td>
</tr></form>
</table>
</td>
</tr>
</table>
<%rst.close
set rst=nothing
conn.close
set conn=nothinh%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -