📄 yeskt.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>
<script language="JScript">
function dongjie(id)
{
if(!confirm("确定要 冻结 所选用户吗？"))return false;
window.open("djuser.asp?id="+id,"_self");
}
function shanchu(id)
{
if(!confirm("确定要 删除 所选用户吗？"))return false;
window.open("deluser1.asp?del="+id,"_self");
}
</script>
</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="13"><font color="#FFFFFF"><%=sitename%> ---〉后台管理 ---〉开通用户</font></td>
</tr>
<form method="post" action="">
<tr bgcolor="#FFFFFF">
<td colspan="12"> 搜索：用户名
<input type="type" name="sname">
<input type="submit" value="搜索"> </td>
</tr>
</form>
<tr bgcolor="#66CC33">
<td colspan="13">[<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>
<td width="80" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
用户名</td>
<td width="104" align="center" background="images/greystrip.gif" bgcolor=#ffffff>密码</td>
<td width="85" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
空间类型</td>
<td width="95" align="center" background="images/greystrip.gif" bgcolor=#ffffff>网站名称</td>
<td width="96" align="center" background="images/greystrip.gif" bgcolor=#ffffff>网站类型</td>
<td width="82" align="center" background="images/greystrip.gif" bgcolor=#ffffff>开通日期</td>
<td width="83" align="center" background="images/greystrip.gif" bgcolor=#ffffff>最后登陆日期</td>
<td width="45" align="center" background="images/greystrip.gif" bgcolor=#ffffff>冻结</td>
<td width="49" align="center" background="images/greystrip.gif" bgcolor=#ffffff>删除</td>
</tr>
<tbody>
<%
on error resume next
sql="select * from user where kt='是' 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>
<td width="80" align="center" 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(i+1)%></a></td>
<td width="104" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
<%=rs(i+10)%> </td>
<td width="85" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
<%=rs("groups")%></td>
<td width="95" align="center" background="images/greystrip.gif" bgcolor=#ffffff><a href="<%=URLBasePath%>/<%=HPDIRName%>/<%=rs(i+1)%>" target="_blank"><%=rs("sitename")%></a></td>
<td width="96" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("sitetype")%></td>
<td width="82" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("ktdate")%></td>
<td width="83" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("enddate")%></td>
<td width="45" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
<input type="button" value="冻结" onclick="dongjie('<%=rs("num")%>');">
</td>
<td width="49" align="center" background="images/greystrip.gif" bgcolor=#ffffff>
<input type="button" onclick="shanchu('<%=rs("num")%>');" value="删除"></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="yeskt.asp?sname=<%=request("sname")%>" style="color:000000">首页</a></td>
<td width="22%"><%if page<>1 then%><a href="yeskt.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="yeskt.asp?page=<%=page+1%>&sname=<%=request("sname")%>" style="color:000000">下一页</a><%else%><font color="#999999">下一页</font><%end if%> </td>
<td width="17%"><a href="yeskt.asp?page=<%=rs.pagecount%>&sname=<%=request("sname")%>" style="color:000000">尾页</a></td>
</tr>
</table>
<%
else
%>
</body>
</html>
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -