admin_adminmana.asp

庐江二中

<%PageName="admin_AdminMana"%>
<!--#include file="session.asp"-->
<%checkAdmin3%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"--><br>
<table border="1" width="80%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td align=center valign=top>
<table border="1" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>" width="100%">
<tr>
<td colspan=9 bgcolor="<%=MainTColor%>" height="22" align=center background="images/admin/b3.gif">管理员列表</td>
</tr>
<tr>
<td width="5%" align="center">ID号</td>
<td width="10%" align="center">名称</td>
<td width="13%" align="center">权限</td>
<td width="18%" align="center">最后登陆IP</td>
<td width="22%" align="center">最后登陆时间</td>
<td width="9%" align="center">登陆次数</td>
<td width="9%" align="center">共发文章</td>
<td width="7%" align="center">修改</td>
<td width="7%" align="center">删除</td>
</tr>
<%

sql="select * from admin order by id"
rs.open sql,conn,1
if rs.EOF then
%>
<tr>
<td colspan=9 align=center>没有用户：（</td>
</tr>
<%
else
do while NOT rs.EOF
set rsU=server.CreateObject("ADODB.RecordSet")
sqlU="select UserName from News Where UserName='"&rs("username")&"'"
rsU.open sqlU,conn,1
if not rsU.EOF then
NewsCount=rsU.RecordCount
else
NewsCount=0
end if
rsU.close
set rsU=nothing	
if rs("oskey")="super" then oskey="超级管理员"
if rs("oskey")="senior" then oskey="高级管理员"
if rs("oskey")="inter" then oskey="大类管理员"
if rs("oskey")="check" then oskey="小类审核员"
if rs("oskey")="input" then oskey="小类录入员"
%>
<tr>
<td width="5%" align="center"><%=rs("id")%>　</td>
<td width="10%" align="center"><%=rs("Username")%></td>
<td width="13%" align="center"><%=oskey%></td>
<td width="18%" align="center"><%=rs("LoginIP")%></td>
<td width="22%" align="center"><%=rs("LoginTime")%></td>
<td width="9%" align="center"><%=rs("LoginTimes")%></td>
<td width="9%" align="center"><%=NewsCount%></td>
<td width="7%" align="center"><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a></td>
<td width="7%" align="center"><a href="admin_AdminDel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
%>
</table>
<FORM METHOD=POST ACTION="admin_AdminSave.asp">
<table border="1" width="40%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td align="center" bgcolor="<%=MainTColor%>" height=20 colspan=2 background="images/admin/b3.gif">添 加 管 理 员</td>
</tr>
<tr>
<td align="right">管 理 员 名：</td>
<td><input type=text name=UserName size="15"  value=""></td>
</tr>
<tr>
<td align="right">管 理 权 限：</td>
<td>
<select name="oskey">
<option value="super">超级管理员</option>
<option value="senior">高级管理员</option>
<option value="inter">大类管理员</option>
<option value="check">小类审核员</option>				
<option value="input">小类录入员</option>
</select>
</td>
</tr>
<tr>
<td align="right">管 理 密 码：</td>
<td><input type=text name=Password size="15"  value=""></td>
</tr>
<tr>
<td align="center" colspan=2>
<input type=hidden value="add" name="act">
<input type=submit value=增加 name="submit">
<input type=reset name="Submit" value="取消">
</td>
</tr>
</table>
</FORM>
</td>
</tr>
</table><%
set rs=nothing%>