📄 adminmanager.asp
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:214297587 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=../css.css rel=stylesheet>
<body background="../back.gif" style='cursor:url("Mouse.ani")'>
<%
if session("qx")<>1 then
response.write "对不起，您没有操作权限！"
else
%><center>
添加管理员：
<form action='admin_do.asp?action=addadmin' method=post>
<table border="1" bordercolor=#3399ff bgcolor=#ffeeee>
<tr><td>账号：</td><td><input type=text name=zh></td></tr>
<tr><td>密码：</td><td><input type=text name=mm></td></tr>
<tr><td>权限：</td><td><select name=qx>
<option value=3> 登记员</option>
<option value=2> 管理员</option>
<option value=1>超级管理员</option>
</select>
</td></tr>
<tr><td colspan=2>备注：<br><textarea name=back rows=5 cols=20></textarea></td></tr>
<tr align="center"><td colspan=2><input type=submit value="提交" class=ibox><input type=reset class=ibox></td></tr>
</table></form>
<p align=center>管理员列表-[系统设定显示<%=glynum%>条数据]
<p>
<%
rs.PageSize=glynum
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from adminboss "
rs.Open sql,cn,1,1
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
if (rs.eof and rs.bof) then
response.write "没有记录"
else
response.write"<table border=1 bordercolor=#3399ff bgcolor=#ffeeee>"
response.write "<tr><td align=center bgcolor=#eeeeee>管理员账号</td><td align=center width=25% bgcolor=#eeeeee> 备注</td><td bgcolor=#eeeeee align=center>权限</td><td bgcolor=#eeeeee align=center>操作</td></tr>"
do while not rs.eof and glynum>0
back=rs("jl")
pname=rs("username")
qxd=rs("qx")
id=rs("id")
k=rs("king")
%>
<!--#include file="qx.asp"-->
<tr><td align=center><%if session("name")=pname then %><font color=red title="你自己">+<b><%=pname %></b>+<%else%><%=pname %><%end if%></td> <td align=center><%=back%></td><td align=center> <%=qxcn1%></td><td align=center><a href=admin_xiugai.asp?name=<%=pname%>&id=<%=id%>>修改</a><% if session("qx")=1 then %><%if k=0 then%>/<a href=admin_do.asp?action=admindel&name=<%=pname%>&id=<%=id%>&isdel=<%=k%> onclick="{if(confirm('想清楚了吗？\n\n真的删除吗?')){return true;}return false;}">删除</a><%end if%><%end if%></td></tr>
<% rs.movenext
glynum=glynum-1
loop
response.write"</table>"
end if
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=adminmanager.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=adminmanager.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=adminmanager.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=adminmanager.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
%>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -