📄 deluser.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/dataconn.inc"-->
<!--#include file="includes/setup.asp"-->
<html>
<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="14"><font color="#FFFFFF"><%=sitename%> ---〉后台管理 ---〉删除用户</font></td>
</tr>
<form method="post" action="">
<tr bgcolor="#FFFFFF">
<td colspan="13"> 搜索：用户名
<input type="type" name="sname"> <input type="submit" value="搜索"> </td>
</tr>
</form>
<tr bgcolor="#66CC33">
<td colspan="14">[<a href="alluser.asp">所有用户</a>] [<a href="yeskt.asp">开通用户</a>]
[<a href="nokt.asp">未开通用户</a>] [<a href="deluser.asp">删除用户</a>] [<a href=deluser.asp?nokt=yes>只显示未开通用户</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><form method="post" action="deluser1.asp" name="del">
<tr>
<td bgcolor=#ffffff background="images/greystrip.gif" width="99"> <div align="center">用户名</div></td>
<td width="83" align="center" background="images/greystrip.gif" bgcolor=#ffffff>真实姓名</td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="26"><div align="center">性别</div></td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="75"><div align="center">网站类型</div></td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="82"> <div align="center">空间类型</div></td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="94"> <div align="center">注册日期</div></td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="83"><div align="center">注册IP</div></td>
<td width="136" align="center" background="images/greystrip.gif" bgcolor=#ffffff>Email</td>
<td width="34" align="center" background="images/greystrip.gif" bgcolor=#ffffff>开通</td>
<td width="75" align="center" 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
if request("nokt")="yes" then
sql="select * from user where kt='否'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>
<td width="99" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><a href="<%=URLBasePath%>/<%=HPDIRName%>/<%=rs(i+1)%>" target="_blank"><%=rs(i+1)%></a></div></td>
<td width="83" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs(i+2)%></td>
<td width="26" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs(i+3)%> </div></td>
<td width="75" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("sitetype")%> </div></td>
<td width="82" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("groups")%></div></td>
<td width="94" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs(i+11)%></div></td>
<td width="83" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("regip")%> </div></td>
<td width="136" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("email")%>
</td>
<td width="34" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
<%if rs("kt")="是" then%>
<font color=0000ff><b>是</b></font>
<%else%>
否
<%end if%>
</td>
<td width="75" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
<input type='checkbox' name='del' value='<%=rs("num")%>'>
<input type='submit' value='删除' name='B1'> </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></form>
<%
else
%></tbody>
</body>
</html>
<script language="vbs">
<!--
MsgBox "请不要使用非法方法进入!",,"九酷软件"
window.location.href="index.asp"
-->
</script>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -