📄 admin_userman.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="admin_Function.asp" -->
<%
dim uid,sql,sql1
uid=trim(request.form("uid"))
if uid<>"" then
sql="delete * from reguser where userid in("&uid&")"
conn.execute sql
sql1="delete * from userlogin where userid in("&uid&")"
conn.execute sql1
end if
%>
<%
dim rs,filepath,page,i,userlevel,searchuser,errmsg
userlevel=trim(request("userlevel"))
searchuser=trim(request("searchuser"))
set rs=server.createobject("ADODB.Recordset")
if userlevel<>"" then
rs.open "select * from Reguser where userlevel="&userlevel&" order by userid desc",conn,1,1
else
if searchuser<>"" then
rs.open "select * from Reguser where usid like '%"&searchuser&"%' order by userid desc",conn,1,1
else
rs.open "select * from Reguser order by userid desc",conn,1,1
end if
end if
if rs.bof or rs.eof then
rs.close
set rs=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>暂时还没有合适的用户可管理！</li>"
errmsg=errmsg + "<br><br><li>可能还没有用户注册或没有开放用户注册功能</li>"
errmsg=errmsg + "<br><br><li>你可以在［<a href='admin_WebConfig.asp'>网站设置</a>］中查看网站配置情况！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_UserMan.asp'>继续查看</a>］</li>"
errmsg=errmsg + "<br><br>"
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rs.pagesize=15
if not isempty(page) then
if not isnumeric(page) then
page=1
else
page=cint(page)
end if
if page>rs.pagecount then
rs.absolutepage=rs.pagecount
elseif page<=0 then
rs.absolutepage=1
else
rs.absolutepage=page
end if
else
rs.absolutepage=1
end if
page=rs.absolutepage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkdel()
{
if (confirm("你确定要删除这个用户吗？一旦删除，将不能恢复！"))
return true;
else
return false;
}
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt1">欢迎来到注册用户管理面板</td>
</tr>
<tr>
<td align="center" class="tbbgtitle">［<a href="../RegRead.asp" target="_blank">添加新用户</a>］［<a href="admin_UserPasList.asp">未审核的用户</a>］</td>
</tr>
<tr>
<td><form name="form2" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt03">按用户名查询：
<input name="searchuser" type="text" class="but" id="searchuser" value="请输入用户名" maxlength="20">
<input name="Submit" type="submit" class="but" value="查找">
按用户等级查询：
<select name="selectuser" id="selectuser" onChange="window.open(this.options[this.selectedIndex].value,'_self')">
<option>请选择用户等级</option>
<option value="admin_UserMan.asp?userlevel=1">注册用户</option>
<option value="admin_UserMan.asp?userlevel=2">普通会员</option>
<option value="admin_UserMan.asp?userlevel=3">中级会员</option>
<option value="admin_UserMan.asp?userlevel=4">高级会员</option>
<option value="admin_UserMan.asp?userlevel=5">特级会员</option>
</select></td>
</tr>
<tr>
<td align="center"><span class="txt03">
<%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>
</span></td>
</tr>
<tr>
<td align="center"><table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#f5f8f5">
<tr align="center">
<td class="txt1">选定</td>
<td class="txt1">帐号</td>
<td class="txt1">性别</td>
<td class="txt1">Email</td>
<td class="txt1">注册时间</td>
<td class="txt1">作家等级</td>
<td class="txt1">用户等级</td>
<td class="txt1">文章</td>
<td class="txt1">评论</td>
<td class="txt1">BBS</td>
<td class="txt1">回复</td>
<td class="txt1">图片</td>
<td class="txt1">审核</td>
<td class="txt1">操作</td>
</tr>
<% for i=1 to rs.pagesize
if rs.eof then
exit for
end if %>
<tr align="center" class="txt05">
<td class="txt1"><input name="uid" type="checkbox" class="but" id="uid" value="<%=rs("userid")%>"></td>
<td><%=rs("usid")%></td>
<td><%=rs("sex")%></td>
<td><a href="mailto:<%=rs("useremail")%>"><%=rs("useremail")%></a></td>
<td><%=rs("lastlogin")%></td>
<td><%select case rs("workerclass")
case 1
response.write"高级作家"
case 2
response.write"中级作家"
case 3
response.write"初级作家"
case else
response.write"无"
end select
%></td>
<td><%select case rs("userlevel")
case 1
response.write"注册用户"
case 2
response.write"普通会员"
case 3
response.write"中级会员"
case 4
response.write"高级会员"
case 5
response.write"特级会员"
end select
%>
</td>
<td><%=rs("articles")%></td>
<td><%=rs("softs")%></td>
<td><%=rs("bbss")%></td>
<td><%=rs("flashs")%></td>
<td><%=rs("imgs")%></td>
<td><%if rs("userpassed")=true then%>
是
<%else%>
<font class="txt04">否</font>
<%end if%></td>
<td><a href="admin_UserMod.asp?userid=<%=rs("userid")%>">修改</a> | <a href="admin_UserDel.asp?userid=<%=rs("userid")%>&userdel=del" onclick="return checkdel();">删除</a>
<input name="userdel" type="hidden" id="userdel2" value="del"> </td>
</tr>
<% rs.movenext
next
%>
</table></td>
</tr>
<tr>
<td align="center"><span class="txt03">
<%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>
</span></td>
</tr>
<tr>
<td align="center" class="tbbgtitle"><input name="chkAll" type="checkbox" class="but" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
单击选定所有文章
<input name="Submit2" type="submit" class="but" onclick="return checkdel();" value="删除所有被选中的用户"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%rs.close
set rs=nothing
call closeconn()
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -