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

📄 user_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="admin.asp"-->
<!-- #include file="../inc/md5.asp" -->
<html>
<head>
<title>注册用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/admin.css" rel="stylesheet" type="text/css">
<script language=javascript src="inc/select.js"></script>
</head>
<body>
<%
username=Request("username")
select case Request("menu")
case "agreement"
agreement
case "upsiteconfig"
upsiteconfig
case "upsiteconfigok"
error2("网站资料已经更新！")
case "delapplication"
Application.Contents.RemoveAll()
error2("已经清除服务器上所有的application缓存！")
case "agreementok"
chk_admin_login(2)
rs.Open "select content from config",Conn,1,3
rs("content")=Request("content")
rs.update
rs.close
error2("用户注册协议更新成功！ ")
case "user2"
chk_admin_login(1)
user2
case "showall"
showall
case "showallok" '显示所有
chk_admin_login(2)
showallok
case "userdel" '单个删除
chk_admin_login(3)
userdel
case "activeuser" '单个开通
chk_admin_login(2)
activeuser
end select
if request("menu")="user3" then
select case request("Activation")
case "Activationok" '批量激活
chk_admin_login(2)
id=request("id")
Activationok
case "Activationno" '批量锁定
chk_admin_login(2)
id=request("id")
Activationno
case "userdels" '批量删除
chk_admin_login(3)
userdels
case else
error2("对不起，请选择要执行的操作！")
end select
end if
sub agreement
%>
<table cellspacing="1" cellpadding="2" width="99%" border="0" class="a2" align="center">
  <form name="coolform" method="post" action="?menu=agreementok" onSubmit="return CheckForm2(this);">
  <input name="content" type="hidden" value='<%=Conn.Execute("Select content From [config]")(0)%>'>
  <tr height=25>
    <td class=a1 align=middle>注册用户协议设置</td>
  </tr>
    <tr class="a3">
    <td height="250" align=center class=a3><SCRIPT src="inc/post.js"></SCRIPT><br>      </td>
  </tr>
    <tr class="a4">
      <td align=center class=a3><input name="EditSubmit" type="submit" id="EditSubmit" value=" 确 定 ">
      <input name="reset" type="reset" value=" 取 消 " onClick="javascript:history.back()"></td>
    </tr>
  </form>    
</table>
<%
end sub
sub upsiteconfig
%>
<table cellspacing="1" cellpadding="2" width="70%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>网站资料更新</td>
  </tr>
   <tr height=25>
    <td class=a3 align=middle colspan=2>
    全部功能购买  10元
地址；http://t14.cn



</td></tr></table><br>
<%
end sub
sub showall
%>
<div align="center">总会员数：<b><font color=red><%=conn.execute("select count(userid)from [user]")(0)%></font></b> 其中已开通会员：<b><font color=red><%=conn.execute("select count(userid)from [user] where state=1")(0)%></font></b> 未开通会员：<b><font color=red><%=conn.execute("select count(userid)from [user] where state=0")(0)%></font></b> 被锁定会员：<b><font color=red><%=conn.execute("select count(userid)from [user] where state=2")(0)%></font></b></div>
  <table cellspacing="1" cellpadding="2" width="99%" border="0" class="a2" align="center">
    <tr height=25>
      <td class=a1 colspan=2 align="center">用户管理</td>
    </tr>
    <tr class=a4>
      <form method="post" action="?menu=user2" target=_blank>
        <td colspan="2"> 请输入用户名:
          <input name="username" id="username" size="13">
            <input name="submit" type="submit" value=" 确 定 "></td>
      </form>
    </tr>
    <form method="post" action="?" onSubmit="this.submit2.disabled=true">
      <input type=hidden name=menu value=showallok>
      <tr height=25>
        <td class=a1 align=center colspan=2>高级查询</td>
      </tr>
      <tr height=25 class=a3>
        <td>快速搜索</td>
        <td><select onChange="javascript:submit()" size="1" name="userSearch">
            <option value="">请选择查询条件</option>
            <option value="logindate">24小时内登录的用户</option>
            <option value="regdate">24小时内注册的用户</option>
            <option value=" and state=1">已开通用户</option>
            <option value=" and isgood=True">酷站推荐</option>
            <option value=" and state=0">尚未激活的</option>
            <option value=" and state=2">已被锁定的</option>
            <option value=" stopdate<<%=Date()%>">已过期用户</option>
        </select></td>
      </tr>
      <tr height=25 class=a4>
        <td>空间类型</td>
        <td><select name="groups">
            <option value="">请选择</option>
            <%
			  set rshost=conn.Execute("select * from host")
			  if rshost.eof and rshost.bof then Response.Write("<option value=''>还没有空间开放注册</option>")
			  do while not rshost.eof
			  %>
            <option value=<%=rshost("id")%>><%=rshost("name")%></option>
            <%
			  rshost.movenext
              loop
              rshost.close
              %>
        </select></td>
      </tr>
      <tr height=25 class=a3>
        <td>最多显示记录数</td>
        <td><input name="pagetype" id="pagetype" value="20" size="45"></td>
      </tr>
      <tr height=25 class=a4>
        <td>用户名包含</td>
        <td><input name="username" id="username" size="45"></td>
      </tr>
      <tr height=25 class=a3>
        <td>真实姓名包含</td>
        <td><input name="truename" id="truename" size="45"></td>
      </tr>
      <tr height=25 class=a4>
        <td>年龄等于</td>
        <td><input name="age" id="age" size="45"></td>
      </tr>
      <tr height=25 class=a3>
        <td>Email包含</td>
        <td><input name="email" id="email" size="45"></td>
      </tr>
      <tr height=25 class=a4>
        <td>电话包含</td>
        <td><input name="tel" id="tel" size="45"></td>
      </tr>
      <tr height=25 class=a3>
        <td>网站名称包含</td>
        <td><input name="sitename" id="sitename" size="45"></td>
      </tr>
      <tr height=25 class=a4>
        <td>网站简介包含</td>
        <td><input name="intro" id="intro" size="45"></td>
      </tr>
      <tr height=25 class=a3>
        <td>超过多少天没有登录</td>
        <td><input name="logindays" id="logindays" size="45"></td>
      </tr>
      <tr height=25 class=a4>
        <td>登录次数少于</td>
        <td><input name="logins" id="logins" size="45"></td>
      </tr>
      <tr height=25 class=a3>
        <td colspan="2" align="center"><input name="submit2" type="submit" id="submit2" value="   搜  索   "></td>
      </tr>
    </form>
  </table>
  <br>
<%
end sub
sub showallok
if Request.form<>empty then
session("temp")=Request.form
else
session("temp")="menu=showallok&userSearch=active"
end if
%>
<table width="99%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
          <tr class="a1"> 
            <td width="5%" height="25" align="center">ID</td>
            <td width="11%" height="25" align="center">用户名</td>
            <td width="11%" align="center">级别</td>
            <td width="15%" height="25" align="center">注册日期</td>
            <td width="17%" align="center" nowrap>E-mail</td>
            <td width="8%" align="center">更新</td>
            <td width="11%" height="25" align="center">空间</td>
            <td width="6%" align="center">状态</td>
            <td width="16%" align="center">删除用户网站文件 </td>
          </tr>
<form name="useradmin" action="?menu=user3" method="post" onSubmit="document.useradmin.Submit.disabled=true;">
<%
item=Request("userSearch")
if item="logindate" then item=" and logindate >now()-1"
if item="regdate" then item=" and regdate >now()-1"
if item="active" then item=" and state=0 or state=2"
if Request("username")<>empty then item=""&item&" and username like '%"&Request("username")&"%'"
if Request("truename")<>empty then item=""&item&" and truename like '%"&Request("truename")&"%'"
if Request("groups")<>empty then item=""&item&" and groups="&Request("groups")&""
if Request("age")<>empty then item=""&item&" and age='"&Request("age")&"'"
if Request("email")<>empty then item=""&item&" and email like '%"&Request("email")&"%'"
12

⌨️ 快捷键说明

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