📄 admin_user_list.asp
字号:
<!--#include file =conn.asp-->
<!--#include file="ChkURL.asp"-->
<%if session("pass")<>"ok" then
Response.Redirect "index.asp"
Response.End
end if
%>
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<script src="../js/js_user.js"></script>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" >
<%
sql="select * from user_reg order by user_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
rs.pagesize=10
'实现分页
if rs.Eof then
rs_total = 0
else
rs_total = rs.RecordCount
end if
dim pageno
maxpage=rs.pagecount
getpageno = (Request("pageno"))
if(getpageno = "")then
pageno = 1
else
pageno = getpageno
End if
if(not rs.Eof)then
rs.AbsolutePage = pageno
End if
%>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="TableBorder" align=center>
<tr align="center">
<td height=30 colspan=2 class="TableTitle1"><strong>用 户 管 理</strong>
</tr>
<tr>
<td width="100" class="TableRow2" height=25><strong>管理快捷方式：</strong></td>
<td height="30" class="TableRow2"><a href="Admin_system.asp">网站信息设置</a> | <A href="admin_user_add.asp" target="main">添加用户</A> | <A href="admin_user_list.asp" target="main">用户列表</A><A href="admin_manager_list.asp" target="main"></A></td>
</tr>
</table>
<table border="0" width="98%" cellspacing="0" cellpadding="0" height="72" align="center">
<tr>
<td height="20" align=center>
<tr>
<td align=center>
<table cellspacing="0" bordercolorlight="#FFFFFF" width="100%">
<tr align="center">
<td valign="top" colspan="3">
<form name="Del_User" method="post">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="TableBorder">
<tr>
<td width="56" height="25" align="center" bgcolor="#F7F7F7" class="TableTitle1">编号</td>
<td width="118" height="25" align="center" bgcolor="#F7F7F7" class="TableTitle1">登录用户名</strong></td>
<td width="151" align="center" bgcolor="#F7F7F7" class="TableTitle1">用户真实姓名</td>
<td width="128" align="center" bgcolor="#F7F7F7" class="TableTitle1">权限</td>
<td width="155" align="center" bgcolor="#F7F7F7" class="TableTitle1">注册IP</td>
<td width="153" align="center" bgcolor="#F7F7F7" class="TableTitle1">注册时间</td>
<td width="73" align="center" bgcolor="#F7F7F7" class="TableTitle1">登录次数</td>
<td width="48" align="center" bgcolor="#F7F7F7" class="TableTitle1">修改</td>
<td width="41" height="25" align="center" bgcolor="#F7F7F7" class="TableTitle1" >删除</td>
</tr>
<%
If(rs.Eof)Then
%>
<tr>
<td height="120" colspan="9" align="center" class="TableRow2">没有用户记录！</td>
</tr>
<!--#include file="copyright.asp" -->
<%
Response.End()
End If
repeat_rows = 0
While(repeat_rows < rs.PageSize and Not rs.Eof)
%>
<%user_id=rs("user_id")%>
<tr>
<td width="56" height="25" align="center" class="TableRow2" ><font color="#FF0000"><%=user_id%></font></td>
<td height="25" align="center" class="TableRow2" ><%=rs("user_name")%></td>
<td height="25" align="center" class="TableRow2" ><%=rs("zs_name")%></td>
<td height="25" align="center" class="TableRow2" ><%if rs("purview")=1 then%><font color="#FF0000">管理员</font><%else%>报修用户<%end if%></td>
<td height="25" align="center" class="TableRow2" ><%=rs("user_ip")%></td>
<td height="25" align="center" class="TableRow2" ><%=rs("date")%></td>
<td height="25" align="center" class="TableRow2" ><%=rs("cs")%></td>
<td height="25" align="center" class="TableRow2" ><a href="admin_user_edit.asp?user_id=<%=user_id%>" >修改</a></td>
<td width="41" align="center" class="TableRow2" ><input name="BoxUser" type="checkbox" value="<%=rs("user_id")%>"></td>
</tr>
<%
repeat_rows = repeat_rows + 1
rs.MoveNext
Wend
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td height="8" colspan=5></td>
</tr>
<tr>
<td><table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#799AE1" bordercolordark="#ffffff">
<tr>
<td><table width="98%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td width="69%">[<%=pageno%>/<%=rs.pagecount%>] | [共<font color=red><%=rs_total%></font>条]
<%
if(pageno <> 1)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>">第一页</a>
<%
end if
%>
<%
if(pageno <> 1)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>&pageno=<%=(pageno-1)%>">上一页</a>
<%
end if
%>
<%
'这里要判断一下pageno和rs.pagecount的值相等的情况，如果不判断，当它俩的值相等时，pageno<>cstr(rs.pagecount)还是true
if(instr(pageno,cstr(rs.pagecount)) = 0)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>&pageno=<%=(pageno+1)%>">下一页</a>
<%
end if
%>
<%
if(instr(pageno,cstr(rs.pagecount)) = 0)then
%>
<a href="?condition=<%=getcondition%>&key=<%=getkey%>&pageno=<%=rs.pagecount%>">最后一页</a>
<%
end if
rs.close
set rs = nothing
%></td>
<td width="3%"></td>
<td width="19%" align=right nowrap>[<a style="color:red;cursor:hand;" onClick="Check1(Del_User)">删除</a>]
<%'这里用这几个隐藏域是为了把显示这个页面所需的参数传递到删除页面，然后再由删除页面传回本页面。%>
<input type="hidden" name="condition2" value="<%=getcondition%>">
<input type="hidden" name="key" value="<%=getkey%>">
<input type="hidden" name="pageno" value="<%=getpageno%>"></td>
<td width="6%" align="right" nowrap>[全选/反选]</td>
<td width="3%" height="26" align=center nowrap><input type="checkbox" name="checkbox" onClick="CheckAll(this.form.BoxUser,this.form.checkbox)"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</table>
<!--#include file="copyright.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -