📄 admin_list.asp
字号:
<%
pageadmin=1
%>
<!--#include file="../login/check.asp"-->
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/function.asp"-->
<!--#include file="../../inc/sql.asp"-->
<head>
<link rel="stylesheet" type="text/css" href="../../inc/lbstyle.css">
</head>
<body bgcolor="#4473A5" marginheight=0 marginwidth=0 leftmargin=0>
<%
Dim maxperpage
maxperpage=20
Dim tablename
tablename="admin"
Dim condition
condition="order by adminpower"
Dim Totalput
Dim Currentpage
Dim Totalpages
Dim I,j
If Not Isempty(request("page")) Then
Currentpage=cint(request("page"))
Else
Currentpage=1
End If
Dim Rs
Dim Sql
Dim Idlist,menu
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
Call DeleteSql_id(tablename,id)
next
else
Call DeleteSql_id(tablename,clng(idlist))
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from ["&tablename&"] "&condition&""
rs.open sql,conn,1,1
totalcount=rs.recordcount
'***********************************分页
count=40
if count<=0 then
count=40
end if
if not rs.eof then
rs.pagesize=count
pagecount=rs.pagecount
if request("page")="" then
nowpage=1
else
nowpage=int(request("page"))
end if
if nowpage>=rs.pagecount then
nowpage=rs.pagecount
elseif nowpage<=1 then
nowpage=1
end if
rs.absolutepage=nowpage
else
pagecount=1
nowpage=1
end if
a=1
Call showContent()
sub showContent
%>
<center>
<Form name="search" method="POST" action="admin_list.asp">
<br><br>
<TABLE border="0" cellspacing="1" width="600" cellpadding="4" bgcolor="#efefef" class="table">
<TR height=25 bgcolor="#235497">
<TD width="41" align="center" class="headtr"><font face="Arial" size="2"><b>ID号</b></font></td>
<TD width="78" align="center" class="headtr"><font face="Arial" size="2"><b>用户名</b></td>
<TD width="150" align="center" class="headtr"><font face="Arial" size="2"><b>密码</b></td>
<TD width="235" align="center" class="headtr"><font face="Arial" size="2"><b>管理权限</b></td>
<TD width="75" align="center" class="headtr"><font face="Arial" size="2"><b>修改</b></td>
<TD width="75" align="center" class="headtr"><font color="#Ff6600"><input type='submit' value='删除'></td>
</TR>
<%do while not rs.eof%>
<TR height="20" bgcolor="#ffffff">
<TD width="41" align="center" class="tr"><font face="Arial"><b><%=rs("id")%></b></font></td>
<TD width="78" align="center" class="tr"><%=rs("adminname")%></td>
<%if Session("adminpower")>=10 then%>
<TD width="150" align="center" class="tr"><%=rs("adminpassword")%></td>
<%else%>
<TD width="150" align="center" class="tr">********</td>
<%end if%>
<%if rs("adminpower")="10" then%>
<TD width="235" align="center" class="tr">超级管理员</td>
<%else%>
<TD width="235" align="center" class="tr">普通管理员</td>
<%end if%>
<%if Session("adminpower")>=10 then%>
<TD width="75" align="center" class="tr"><a href="admin_edit.asp?action=edit&id=<%=rs("id")%>"><img alt="修改信息" border="0" src="../images/edit.gif"></a></td>
<%else%>
<TD width="75" align="center" class="tr"><img alt="你不是超级管理员，不能修改此项改信息" border="0" src="../images/edit.gif"></a></td>
<%end if%>
<%if Session("adminpower")>=10 then%>
<TD width="75" align="center" class="tr"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>'></td>
<%else%>
<TD width="75" align="center" class="tr"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>' Disabled></td>
<%end if%>
</TR>
<% a=a+1
RS.movenext
LOOP
%>
<TR><TD colspan="6" bgcolor="#ffffff" class="tr1"><%showpage totalcount,pagecount,currentpage,"admin_list.asp"%></TD></TR>
</TABLE>
<%
end sub
Call rsclose()
Call connclose()
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="600">
<tr>
<td width="100%">
<p><br>
</td>
</tr>
</table>
</CENTER>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -