📄 userlist.asp
字号:
<!--#include virtual="/include/check.asp"-->
<% CheckAdminIsLogin("用户管理") %>
<!--#include virtual="/include/conn.asp"-->
<!--#include virtual="/include/FunctionManage.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript" src="../../js/Manage.js" type="text/javascript"></script>
<link href="../css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th colspan="5">== 管理用户 ==</th>
</tr>
<% RecordSearch "AdminName|用户名","" %>
<tr>
<th width="4%" nowrap>选择</th><th width="10%">用户名</th>
<th width="25%">用户权限</th>
<th width="10%" nowrap>
操 作</th>
<th width="8%" nowrap>更新时间</th>
</tr>
<form name="form3" method="post" action="?action=<%=request("action")%>&page=<%=int(request("page"))%>&keyword=<%=request("keyword")%>&class=<%=request("class")%>">
<tr align="right">
<td height="22" colspan="5" class="forumRowHighlight"></td>
</tr>
<%
if request.querystring("action")="search" then
sql="select * from SysAdmin where " &request("class")&" like '%"&request("keyword")&"%' order by AdminID desc"
url="action=search&keyword="&request("keyword")&"&class="&request("class")&"&"
else
sql="Select * from SysAdmin order by AdminID desc"
end if
set rs=Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
page = request("page")
intPageSize=15
rs.pagesize = intpagesize
intcount = rs.recordcount
intpagecount = rs.pagecount
if int(page)>rs.pagecount then
page=rs.pagecount
end if
if page="" or page=0 then
page=1
else
page=int(page)
end if
if intcount > 0 then
rs.AbsolutePage=page
end if
for i=1 to intPageSize
%>
<tr>
<td class=forumrow align="center"><input type="checkbox" name="selectid" id="selectid" value="<%=rs("AdminID")%>"></td>
<td height="22" class="forumrow"><%=rs("AdminName")%></td>
<td height="22" class="forumrow"><%=rs("QuanXian")%></td>
<td class=forumrow align="center"><a href="ModifyUser.asp?<%=url%>id=<%=rs("AdminID")%>&page=<%=page%>">编 辑</a></td>
<td class=forumrow align="center" nowrap><font color="#FF3300"><%=rs("ChangeDate")%></font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
Response.Write "<tr><td class='forumRow' colspan='10' align='center'><font color=red>暂无记录!</font></td></tr>"
end if
RsClose()
%>
<% DelRecord "SysAdmin","AdminID" %>
</form>
<% ChangePage() %>
</table>
</body>
</html>
<% ConnClose() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -