⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 djusers.asp

📁 多用户个人主页系统(ASP)
💻 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>
<script language="JScript">
function jiedong(id)
{
	if(!confirm("确定要 解冻 所选用户吗?"))return false;
	window.open("jduser.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 bgcolor=#ffffff background="images/greystrip.gif" width="87"> <div align="center">用户名</div></td>
    <td bgcolor=#ffffff background="images/greystrip.gif" width="114"><div align="center">密码</div></td>
    <td bgcolor=#ffffff background="images/greystrip.gif" width="125"> <div align="center">空间类型</div></td>
    <td bgcolor=#ffffff background="images/greystrip.gif" width="179"><div align="center">网站类型</div></td>
    <td width="89" align="center" background="images/greystrip.gif" bgcolor=#ffffff>开通日期</td>
    <td width="90" align="center" background="images/greystrip.gif" bgcolor=#ffffff>最后登陆日期</td>
    <td width="92" align="center" background="images/greystrip.gif" bgcolor=#ffffff>用户主页预览</td>
    <td width="46" align="center" background="images/greystrip.gif" bgcolor=#ffffff>冻结</td>
    <td width="46" 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 kt='冻' and username='"& 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="87" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs(i+1)%></div></td>
      <td width="114" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs(i+10)%> </div></td>
      <td width="125" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("groups")%></div></td>
      <td width="179" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("sitetype")%> </div></td>
      <td width="89" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("ktdate")%></td>
      <td width="90" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("enddate")%></td>
      <td width="92" align="center" background="images/greystrip.gif" bgcolor=#ffffff><a href="<%=URLBasePath%><%=HPDIRName%>/<%=rs(i+1)%>" target="_blank">查看主页</a> 
      </td>
      <td width="46" align="center" background="images/greystrip.gif" bgcolor=#ffffff> 
        <input type="button" value="解冻" onclick="jiedong('<%=rs("num")%>');">
      </td>
      <td width="46" 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" style="color:000000">首页</a></td>
                      <td width="22%"><%if page<>1 then%><a href="yeskt.asp?page=<%=page-1%>" 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%>" style="color:000000">下一页</a><%else%><font color="#999999">下一页</font><%end if%>  </td>
                      <td width="17%"><a href="yeskt.asp?page=<%=rs.pagecount%>" style="color:000000">尾页</a></td>
                    </tr>
                  </table>
<%
		  else
%>
</body>
</html>

<script language="vbs">     
<!--     
MsgBox "请不要使用非法方法进入!",,"亮点软件"     
window.location.href="index.asp"    
-->     
</script>     
<%
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -