📄 user_list.asp
字号:
<%Admin="UserSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_user.asp"-->
<html>
<head>
<title>MyFlash管理系统</title>
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #4D9CC8; text-decoration: none }
a:hover { color: #4D9CC8; text-decoration: underline}
a.JyDownSort:link { color: #FFFFFF; text-decoration: none }
a.JyDownSort:visited { color: #FFFFFF; text-decoration: none }
a.JyDownSort:hover { color: #DFDFDF; text-decoration: underline}
</style>
</head>
<script language="javascript">
function JyDown() {
for (var i=0;i<document.JyDownH.JyDownID.length;i++) {
var e=document.JyDownH.JyDownID[i];
e.checked=!e.checked;
}
}
</script>
<body bgcolor="#FFFFFF" topmargin="1" leftmargin="1">
<table border="0" cellspacing="1" style="border-collapse: collapse" width="100%" bgcolor="#cococo">
<tr>
<td width="100%" bgcolor="#4D9CC8"><font color="#FFFFFF"><b>会员管理-> <%
if request("dj")="0" then response.write "普通会员"
if request("dj")="1" then response.write "高级会员"
if request("dj")="2" then response.write "管 理 员"
if request("k")<>"" then response.write "所有用户-> 搜索结果("&request("k")&")"
if request("dj")<>"0" and request("dj")<>"1" and request("dj")<>"2" and request("k")="" then response.write "所有用户"%></b></font> <font color="#FFFFFF">
①:普通会员 ②:高级会员 ③:管理员</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<%
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
MaxPerPage=20 '###每页显示条数
set rs=server.CreateObject("ADODB.RecordSet")
if request("k")<>"" then
kkk=" and user like '%"&request("k")&"%'"
end if
if request("dj")<>"" then
sql="select * from userinfo where dj="&request("dj")&" and dj<>3"&kkk&" order by id desc"
else
sql="select * from userinfo where dj<>3"&kkk&" order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>还没找到任何用户</p>"
else
totalPut=rs.recordcount
rs.move (currentPage-1)*MaxPerPage
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
%>
<table border="0" cellspacing="1" width="100%">
<form action="user_save.asp?dj=<%=request("dj")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="JyDownH">
<tr>
<td width="102%" colspan="10" bgcolor="#FFFFFF"><%call page()%></td>
</tr>
<tr align="center">
<td width="8%" bgcolor="#C0C0C0">ID</td>
<td width="8%" bgcolor="#C0C0C0"><a href="javascript:JyDown()">选择</a></td>
<td bgcolor="#C0C0C0">用户名</td>
<td width="4%" bgcolor="#C0C0C0">性别</td>
<td width="4%" bgcolor="#C0C0C0">头象</td>
<td width="15%" bgcolor="#C0C0C0">OICQ</td>
<td width="8%" bgcolor="#C0C0C0">级别</td>
<td width="20%" bgcolor="#C0C0C0">注册时间</td>
<td width="8%" bgcolor="#C0C0C0">状态</td>
</tr>
<%
i=0
do while not rs.EOF%>
<tr align="center" bgcolor="#FFFFFF">
<td width="8%"><%=rs("id")%></td>
<td width="8%"><input type="checkbox" name="JyDownID" value="<%=rs("id")%>"></td>
<td><a href="user_edit.asp?id=<%=rs("id")%>"><%=rs("user")%></a></td>
<td width="4%"><%=rs("sex")%></td>
<td width="4%"><a href="/images/face/<%=rs("face")%>.gif"><%=rs("face")%></a></td>
<td width="15%"><%=rs("oicq")%></td>
<td width="8%"><%
if rs("dj")=0 then response.write "<font color=""#808080"">①</font>"
if rs("dj")=1 then response.write "<font color=""#0000FF"">②</font>"
if rs("dj")=2 then response.write "<font color=""#4D9CC8"">③</font>"
%></td>
<td width="20%"><%=rs("regdate")%></td>
<td width="8%"><%if rs("lock")=1 then%><font color=#4D9CC8>锁定</font><%else%>正常<%end if%></td>
</tr>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop %><tr align="center">
<td width="8%" bgcolor="#C0C0C0">ID</td>
<td width="8%" bgcolor="#C0C0C0"><a href="javascript:JyDown()">选择</a></td>
<td bgcolor="#C0C0C0">用户名</td>
<td width="4%" bgcolor="#C0C0C0">性别</td>
<td width="4%" bgcolor="#C0C0C0">头象</td>
<td width="15%" bgcolor="#C0C0C0">OICQ</td>
<td width="8%" bgcolor="#C0C0C0">级别</td>
<td width="20%" bgcolor="#C0C0C0">注册时间</td>
<td width="8%" bgcolor="#C0C0C0">状态</td>
</tr>
<tr>
<td width="98%" colspan="10"><input onClick="{if(confirm('确定删除选定用户吗!?')){this.document.JyDownH.submit();return true;}return false;}" type="submit" value="删除" name="JyDownDo">
| <input onClick="{if(confirm('确定锁定选定用户吗!?')){this.document.JyDownH.submit();return true;}return false;}" type="submit" value="锁定" name="JyDownDo">
|
<input onClick="{if(confirm('确定激活选定用户吗!?')){this.document.JyDownH.submit();return true;}return false;}" type="submit" value="激活" name="JyDownDo">
| <select size="1" name="newdj">
<option value=""></option>
<option value="0">①:普通会员</option>
<option value="1">②:高级会员</option>
<option value="2">③:管 理 员</option>
</select><input onClick="{if(confirm('确定修改选定用户级别吗!?')){this.document.JyDownH.submit();return true;}return false;}" type="submit" value="等级" name="JyDownDo">
| <input type="text" name="k" size="13"><input type="submit" value="搜索用户名" name="JyDownDo"></td>
</tr>
<tr>
<td width="98%" colspan="10" bgcolor="#FFFFFF"><%
call page()
sub page()%>页次：<b><font color="#4D9CC8"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,<%if request("k")<>"" then%><font color="#4D9CC8">搜到</font><%else%>当前<%end if%>用户<b><%=totalPut%></b>个
<%
pageno=currentPage
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
%>
[ <%if cint(pageno)>1 then%><a href=user_list.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=user_list.asp?id=<%=request("id")%>&page=<%=pageno-1%>&k=<%=request("k")%>><%end if%><-</a><%
pp=cint(pageno)-3
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno=cint(pageno) then%> <font color="#4D9CC8"><%=pno%></font><%else%> <a href=user_list.asp?id=<%=request("id")%>&page=<%=pno%>&k=<%=request("k")%>><%=pno%></a><%end if%>
<%
if p>=7 then exit for
next%> <%if cint(pageno)< mpage then%> <a href=user_list.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=user_list.asp?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>->></a> ]<%
end sub%></td>
</tr>
</form>
</table>
<%end if%>
</td>
</tr>
</table>
<%
set rs=nothing
conn.close
set conn=nothing%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -