📄 alluser.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/dataconn.inc"-->
<!--#include file="includes/setup.asp"-->
<html>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<head>
<title><%=sitename%> ---〉后台管理---〉所有用户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="includes/main.css" rel=stylesheet type=text/css>
</head>
<body bgcolor="#FFFFFF" background="images/greystrip.gif" text="#000000">
<%
if adminlogin=session("username") and adminpassword=session("password") then
%>
<br>
<div align="center"></div>
<table width=958 border=0 align="center" cellpadding=8 cellspacing=1 bgcolor=#000000>
<tr bgcolor="#669900">
<td colspan="6"><font color="#FFFFFF"><%=sitename%> ---〉后台管理---〉所有用户</font></td>
</tr>
<form method="post" action="">
<tr bgcolor="#FFFFFF">
<td colspan="6"> 搜索：用户名
<input type="type" name="sname"> <input type="submit" value="搜索"> </td>
</tr>
</form>
<tr bgcolor="#66CC33">
<td colspan="6">[<a href="alluser.asp">所有用户</a>] [<a href="yeskt.asp">开通用户</a>]
[<a href="nokt.asp">未开通用户</a>] [<a href="deluser.asp">删除用户</a>] [<a href="djusers.asp">被冻结用户</a>]
[<a href="changegroup.asp">等级管理</a>] [<a href="email.asp">邮件群发</a>] [<a href="paylist.asp">定单管理</a>]
[<a href="loginout.asp">退出管理</a>]</td>
</tr>
<tr align="center">
<td background="images/greystrip.gif" bgcolor=#ffffff> 用户名</td>
<td background="images/greystrip.gif" bgcolor=#ffffff>网站名称</td>
<td background="images/greystrip.gif" bgcolor=#ffffff>网站类型</td>
<td background="images/greystrip.gif" bgcolor=#ffffff> 注册日期</td>
<td background="images/greystrip.gif" bgcolor=#ffffff> 级别</td>
<td background="images/greystrip.gif" bgcolor=#ffffff>是否开通</td>
</tr>
<tbody>
<%
on error resume next
sql="select * from user order by regdate"
if request("sname")<>"" then
sql="select * from user where username like '%"& request("sname") &"%' or kt like '%"& request("sname") &"%' or regip like '%"& request("sname") &"%' or name like '%"& request("sname") &"%' or sitetype like '%"& request("sname") &"%' order by regdate"
end if
rs.open sql,Conntemp,1,3
rs.pagesize=20
page=request("page")
if page="" then
page=1
end if
rs.absoluteposition=rs.recordcount-(page-1)*rs.pagesize
for ipag=1 to rs.pagesize
%>
<tr align="center">
<td background="images/greystrip.gif" bgcolor=#ffffff> <a href="javascript:;" onClick="MM_openBrWindow('show.asp?username=<%=rs(i+1)%>','','scrollbars=no,width=455,height=470')"><%=rs("username")%></a></td>
<td background="images/greystrip.gif" bgcolor=#ffffff> <a href="<%=URLBasePath%>/<%=HPDIRName%>/<%=rs(i+1)%>" target="_blank"><%=rs("sitename")%></a></td>
<td background="images/greystrip.gif" bgcolor=#ffffff><%=rs("sitetype")%></td>
<td background="images/greystrip.gif" bgcolor=#ffffff><%=rs("regdate")%></td>
<td background="images/greystrip.gif" bgcolor=#ffffff><%=rs("groups")%></td>
<td background="images/greystrip.gif" bgcolor=#ffffff><%=rs("kt")%></td>
</tr>
<%
rs.moveprevious
if rs.bof Then exit for
next
%>
</tbody>
</table>
<table width="958" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="CENTER" valign="BOTTOM">
<td width="33%"> 共 <%=rs.recordcount%> 条记录 第 <%=page%>/<%=rs.pagecount%> 页 </td>
<td width="14%"><a href="deluser.asp?sname=<%=request("sname")%>" style="color:000000">首页</a></td>
<td width="22%"><%if page<>1 then%><a href="deluser.asp?page=<%=page-1%>&sname=<%=request("sname")%>" style="color:000000">上一页</a><%else%><font color="#999999">上一页</font><%end if%></td>
<td width="14%"><%
rs.absolutepage=page+1
if not rs.EOF then
%> <a href="deluser.asp?page=<%=page+1%>&sname=<%=request("sname")%>" style="color:000000">下一页</a><%else%><font color="#999999">下一页</font><%end if%> </td>
<td width="17%"><a href="deluser.asp?page=<%=rs.pagecount%>&sname=<%=request("sname")%>" style="color:000000">尾页</a></td>
</tr>
</table>
<%
else
%>
</body>
</html>
<script>alert('您的操作非法，已被系统记录！');location.href='javascript:self.close()'</script>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -