📄 adminmanage.asp
字号:
end if
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/PageSize)+1
if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a class=black href='" & Url & "page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a class=black href='" & Url & "page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a class=black href='" & Url & "page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if
if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
end if
if PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a class=black href='" & Url & "page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
if PageLink = MaxPages Then Exit for
next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "<a class=black href='" & Url & "page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if
if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A class=black href='" & Url & "page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a class=black href='" & Url & "page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
end if
%>
</td>
</tr>
</table>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="50%" id="AutoNumber1">
<tr>
<td>
<font color="#FF0000">
<li><p>注意：与将被添加的管理员相对应的权限必须为大类管理员以上。</li>
</font>
</td>
</tr>
</table>
<%dim SeachUserName,SeachModel,Sea_Mod
SeachUserName=CheckStr(request.form("UserName"))
SeachModel=CheckStr(request.form("SeachModel"))
%>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%" id="AutoNumber1">
<form method="POST" action="AdminManage.asp" name="SeahUser" onSubmit="return CheckFormUserLogin();">
<tr align="center" height=20>
<td colspan=13>
<%if oskey<>"" then
Response.write "<input type=hidden name='oskey' value="& oskey &">"
end if%>
<input type=hidden name="page" value=<%=MyPage%>>
管理用户名：<input name="UserName" <%if SeachUserName<>"" then%>value=<%=SeachUserName%><%end if%> size="15" font face="宋体" style="font-size: 9pt; background-color:#EAEAF4">
<input type="submit" name="Submit" value="查找" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="查找管理用户">
<%if SeachModel="" or SeachModel=1 then
Response.write "<input type=radio name=SeachModel checked value=1>精确 "
Response.write "<input type=radio name=SeachModel value=0>模糊"
rstsql="select * from "& db_Manage_Table &" where "& db_ManageUser_Name &" like '"& SeachUserName &"' order by "& db_ManageUser_ID
Sea_Mod="精确查找："
else
Response.write "<input type=radio name=SeachModel value=1>精确 "
Response.write "<input type=radio name=SeachModel checked value=0>模糊"
rstsql="select * from "& db_Manage_Table &" where "& db_ManageUser_Name &" like '%"& SeachUserName &"%' order by "& db_ManageUser_ID
Sea_Mod="模糊查找："
end if%>
</td>
</tr>
</form>
<%
if SeachUserName<>"" then
set rst1=server.CreateObject("ADODB.RecordSet")
rst1.Open rstsql,Conn,3,1
if not rst1.eof then
%>
<form method="POST" action="AdminManage.asp" name="SeahUsertest" >
<tr align="center" class="TDtop">
<td width="4%">ID号</td>
<td width="11%">管理者</td>
<td width="10%">权限</td>
<td width="14%">最后登录地址</td>
<td width="15%">最后登录时间</td>
<td width="5%">登录</td>
<td width="6%">发文数</td>
<td width="6%">修改</td>
<td width="6%">删除</td>
<td width="9%">会员等级</td>
<td width="10%">会员状态</td>
<td width="4%" >选择</td>
</tr>
<%response.write "<form name='formdel1' method='post' action='AdminManage.asp'>"
do while not rst1.eof
if rst1("purview")<>"99999" or request.cookies(eChuang)("ManagePurview")="99999" then
response.write "<tr align='center' height=20>"& chr(10)
response.write "<td align='center'>" &(rst1(db_ManageUser_ID))& "</td>"
response.write "<td align='center' bgcolor='#FFFFFF'>"
response.write "<a href='AdminList.asp?id=" &(rst1(db_ManageUser_ID)) &"' title=" &(rst1(db_ManageUser_Password)) &">"
if rst1(db_ManageUser_Name)=request.cookies(eChuang)("username") then
response.write "<font color=red>" &(rst1("Username"))& "</font>"
else
response.write (rst1("Username"))
end if
response.write "</a>"
response.write "</td>"& chr(10)
response.write "<td align='center' bgcolor='#FFFFFF'>"
if rst1("oskey")="super" and rst1("purview")="99999" then
response.write "<font color='red'>超级用户</font>"
else
oskey2=rst1("oskey")
select case oskey2
case "super" response.write "系统用户"
case "check" response.write "<a href='AdminManage.asp?oskey="& oskey2 &"'>审核用户</a>"
case "typemaster" response.write "<a href='AdminManage.asp?oskey="& oskey2 &"'>总栏用户</a>"
case "bigmaster" response.write "<a href='AdminManage.asp?oskey="& oskey2 &"'>大类用户</a>"
case "smallmaster" response.write "<a href='AdminManage.asp?oskey="& oskey2 &"'>小类用户</a>"
case "selfreg" response.write "<a href='AdminManage.asp?oskey="& oskey2 &"'>注册用户</a>"
end select
end if
response.write "</td>"& chr(10)
response.write "<td align='center'>" &(rst1(db_ManageUser_LastLoginIP))& "</td>"& chr(10)
response.write "<td>" &(rst1(db_ManageUser_LastLoginTime))& "</td>"& chr(10)
response.write "<td align='center'>" &(rst1(db_ManageUser_LoginTimes))& "</td>"& chr(10)
response.write "<td align='center'>" &(rst1("number"))& "</td>"& chr(10)
response.write "<td align='center' bgcolor='#FFFFFF'>"
response.write "<a href='AdminEdit.asp?id=" &(rst1(db_ManageUser_ID))& "' title='修改用户“" &(rst1(db_ManageUser_Name))& "”的属性'>修改</a>"
response.write "</td>"& chr(10)
response.write "<td align='center' bgcolor='#FFFFFF'>"
if trim(request.cookies(eChuang)("username"))=trim(rst1(db_ManageUser_Name)) then
response.write "----"
else
response.write "<a href='AdminDel.asp?id=" &(rst1(db_ManageUser_ID))& "&name=del' title='删除用户“" &(rst1(db_ManageUser_Name))& "”'>删除</a>"
end if
response.write "</td>"& chr(10)
response.write "<td>"
if rst1("oskey")="selfreg" then
reglevel2=rst1("reglevel")
select case reglevel2
case 1
response.write "普通<br>"
case 2
response.write "高级<br>"
case 3
response.write "特级<br>"
end select
end if
response.write "</td>"
response.write "<td>"
if rst1("oskey")="selfreg" then
jingyong2=rst1("jingyong")
Select Case jingyong2
case 0 response.write "启用"
case 1 response.write "禁用"
end Select
end if
response.write "</td>"
response.write "<td align='center'>"
if trim(request.cookies(eChuang)("username"))=trim(rst1(db_ManageUser_Name)) then
response.write "--"
else
response.write "<input type=checkbox name=selectdel id=selectdel value=" &(rst1(db_ManageUser_ID))& ">"
end if
response.write "</td></tr>"& chr(10)
end if
rst1.MoveNext
loop
response.write "<tr align='right' ><td colspan=13 height=20>"%>
<input type=hidden name=action value='del'>
<input type=checkbox name=chkall value=on onClick="CheckAll(this.form)" style="font-size: 9pt; color: #000000; background-color: #ffff; solid #EAEAF4">选中所有显示管理用户
<input type=submit name=action1 onClick="{if(confirm('删除选定的管理用户吗？')){this.document.check.submit();return true;}return false;}" value="删除管理用户" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
<%response.write "</td></tr>"& chr(10)
else
response.write "<tr align='center'><td colspan=13 bgcolor='ffb100' height=90><font size=4>"& Sea_Mod &"未找到管理用户["& SeachUserName &"]</font></td></tr>"& chr(10)
end if
rst1.close
set rst1=nothing
end if%>
</form>
</table>
</body>
</html>
<!--#include file=Admin_Bottom.asp-->
<%else
Show_Err("<p>当前无管理用户！</p><p>请<a href='AdminAdd1.asp'>添加管理用户</a></p>")
response.end
end if
END IF
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -