📄 userlist1.asp
字号:
<!--#include file="filetou.asp"-->
<!--#include file="../FUN.asp"-->
<%
b=request("b")
PX=" 身份,积分"
if b<>"" then
select case b
case "管理团队"
TJ=" AND 身份<>'用户' "
PX=" 身份,积分"
CASE "所有用户"
TJ=" "
PX=" 身份,积分"
case "积分高手"
TJ=" "
PX=" -积分,身份,id"
CASE "前辈长老"
TJ=" "
PX=" ID "
CASE "网站常客"
TJ=" "
PX=" -登录次数 "
CASE "新手上路"
TJ=" "
PX=" -ID"
CASE "发送留言"
C1=request.form("C1")
SET CONN=NOTHING
IF C1="" THEN response.redirect "../EVER.ASP?LR=请选择发送对象"
response.redirect "LYOUT.ASP?USER="&C1
CASE "封锁"
TJ=" "
PX=" 身份,积分"
IF SESSION("USERDSF")=" 系统管理员" OR SESSION("USERDSF")="管理员" THEN
del=request.form("C1")
del=replace(del," ","")
del=replace(del,","," or id=")
SQL="SELECT IP,状态 from user1 where id="&del
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
if not rs.eof then
do while not rs.eof
rs("状态")="封"
IP=IP&""&RS("IP")&","
RS.MOVENEXT
loop
RS.UPDATEBATCH
LIP=READTEXT("IP.INI")
LIP=LIP&IP
LIP=REPLACE(LIP,CHR(13)&CHR(10),"")
CALL SAVETEXT("IP.INI",LIP)
RS.CLOSE
end if
END IF
CASE "解封"
TJ=" "
PX=" 身份,积分"
IF SESSION("USERDSF")=" 系统管理员" OR SESSION("USERDSF")="管理员" THEN
del=request.form("C1")
del=replace(del," ","")
del=replace(del,","," or id=")
SQL="SELECT IP,状态 from user1 where id="&del
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
if not rs.eof then
lIP=READTEXT("IP.INI")
do while not rs.eof
rs("状态")="已"
LIP=REPLACE(LIP,","&REPLACE(RS("IP"),CHR(13)&CHR(10),"")&",",",")
RS.MOVENEXT
loop
RS.UPDATEBATCH
CALL SAVETEXT("IP.INI",LIP)
RS.CLOSE
end if
END IF
end select
end if
if session("userdsf")<>"用户" THEN
TJ=" WHERE ID<>0 "&TJ
ELSE
TJ=" WHERE ID<>0 AND 状态='已' "&TJ
END IF
sql="SELECT * FROM USER1 " &TJ &" order by " &PX
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<Link Rel="STYLESHEET" Href="index.CSS" Type="text/css">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>用户列表</title>
</head>
<body bgcolor="#99CCFF">
<div align="center">
<center>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#C0C0C0">
<tr>
<td width="100%" align="center">
<table border="0" width="100%" bgcolor="#000080" cellspacing="0">
<tr>
<td width="50%"> <font color="#FFFFFF"> 用户列表</font></td>
</center>
<td width="50%">
<p align="right"><a href="../../index.asp"><font color="#FFFFFF">返回首页</font></a> </p>
</td> <form method="POST" action="?id=" >
</tr>
</table>
<center><%
IF NOT RS.EOF THEN
pagen=20 '每页显示数量为20条.
pagesn=request("pagesn")
if pagesn<=0 or pagesn="" then pagesn=1
rs.pagesize=pagen
pagezs=rs.pagecount
IF cint(PAGESN)>pagezs THEN pagesn=PAGEZS
zs=rs.recordcount
page=(pagesn-1)*pagen
rs.move page,1
Response.Write "<TABLE WIDTH='100%'> <TR><TD>一共有用户"&ZS&"人,分"&PAGEZS&"页,当前第"&PAGESN&"页</TD>"
Response.Write "<TD>跳转到："
FOR I=1 TO PAGEZS
Response.Write "[<A HREF='?b="&b&"&PAGESN="&I&"'>"&I&"</A>] "
NEXT
Response.Write "</TD></TR></TABLE>"
END IF
%>
<table border="1" width="99%" bordercolorlight="#356286" cellspacing="0" cellpadding="2" bordercolordark="#D5D5D5" bgcolor="#D5D5D5">
<tr>
<td align="center" bgcolor="#B8C2D3">用户名</td>
<td align="center" bgcolor="#B8C2D3">发文章数量</td>
<td align="center" bgcolor="#B8C2D3">注册日期</td>
<td align="center" bgcolor="#B8C2D3">浏览级别</td>
<td align="center" bgcolor="#B8C2D3">身份</td>
<td align="center" bgcolor="#B8C2D3">登录次数</td>
<td align="center" bgcolor="#B8C2D3">状态</td>
<td align="center" bgcolor="#B8C2D3">选择</td>
</tr>
<%
if rs.eof then
Response.Write " <tr>"
Response.Write " <td align='center' colspan='7'>暂无记录</td>"
Response.Write " </tr>"
else
for i=1 to pagen
Response.Write " <tr>"
Response.Write " <td align='center'><a href='userxxlr.asp?name="&rs("user")&"'>"&RS("USER")&"</a></td>"
Response.Write " <td align='center'> </td>"
Response.Write " <td align='center'>"&FORMATDATETIME(RS("注册日期"),1)&"</td>"
Response.Write " <td align='center'>"&RS("浏览级别")&"</td>"
Response.Write " <td align='center'>"&RS("身份")&"</td>"
Response.Write " <td align='center'>"&RS("登录次数")&"</td>"
if rs("状态")="已" THEN
Response.Write " <td align='center'>正常</td>"
ELSE
Response.Write " <td align='center'>查封</td>"
END IF
Response.Write " <td align='center'><input type='checkbox' name='C1' value='"&RS("ID")&"'></td>"
Response.Write " </tr>"
rs.movenext
if rs.eof then exit for
next
end if
%> <tr>
<td align="center" colspan="8"><input type="submit" value="管理团队" name="B">
<%IF SESSION("USERDSF")=" 系统管理员" OR SESSION("USERDSF")="管理员" THEN %>
<input type="submit" value="新手上路" name="B"> <input type="submit" value="前辈长老" name="B">
<input type="submit" value="网站常客" name="B">
<input type="submit" value="所有用户" name="B">
<input type="submit" value="发送留言" name="B">
<input type="submit" value="封锁" name="B">
<input type="submit" value="解封" name="B">
<%END IF%>
</td>
</tr>
</table></form>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -