📄 admin_userpaslist.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 userpass,userid,userdel,errmsg,uid,sql,successmsg
userpass=trim(request("userpass"))
userdel=trim(request("userdel"))
userid=trim(request("userid"))
if userid<>"" then
if userpass="pass" then
conn.execute"update reguser set userpassed=true where userid="&userid&""
else if userid<>"" then
dim n,h
n=split(userid,",")
for h=0 to ubound(n)
conn.execute"update reguser set userpassed=true where userid="&n(h)
next
end if
end if
if userdel="del" then
conn.execute"delete * from reguser where userid="&userid&""
end if
successmsg=successmsg + "<br><br><li>审核成功！</li>"
successmsg=successmsg +"<br><br><li>你可以：［<a href='admin_UserPasList.asp'>继续审核</a>］［<a href='admin_UserMan.asp'>返回用户管理面板</a>］</li>"
call ShowSuccessMsg()
end if
%>
<%
dim rs,filepath,page,i,userlevel,searchuser
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&" and userpassed=false order by userid desc",conn,1,1
else
if searchuser<>"" then
rs.open "select * from reguser where usid like '%"&searchuser&"%' and userpassed=false order by userid desc",conn,1,1
else
rs.open "select * from reguser where userpassed=false 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>你可以：［<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.form2.chkAll.checked){
document.form2.chkAll.checked = document.form2.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form2.elements.length;i++)
{
var e = form2.elements[i];
if (e.Name != "chkAll")
e.checked = form2.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="admin_UserMan.asp">返回用户管理面板</a>］</td>
</tr>
<tr>
<td align="center" class="txt03"><form name="form2" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="tbbgtitle">按用户名查询：
<input name="searchuser" type="text" class="but" id="searchuser" value="请输入用户名" maxlength="20">
<input name="Submit" type="submit" class="but" value="查找">
按用户等级查询：
<select name="selectuser" class="but" id="selectuser" onChange="window.open(this.options[this.selectedIndex].value,'_self')">
<option>请选择用户等级</option>
<option value="admin_UserPasList.asp?userlevel=1">注册用户</option>
<option value="admin_UserPasList.asp?userlevel=2">普通会员</option>
<option value="admin_UserPasList.asp?userlevel=3">中级会员</option>
<option value="admin_UserPasList.asp?userlevel=4">高级会员</option>
<option value="admin_UserPasList.asp?userlevel=5">特级会员</option>
</select></td>
</tr>
<tr>
<td align="center" class="txt03"><%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%></td>
</tr>
<tr>
<td><table width="98%" 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>
</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="userid" type="checkbox" class="but" id="userid" value="<%=rs("userid")%>"></td>
<td><%=rs("usid")%></td>
<td><%=rs("sex")%></td>
<td><%=rs("useremail")%></td>
<td><%=rs("lastlogin")%></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><%select case rs("workerclass")
case 1
response.write"高级作家"
case 2
response.write"中级作家"
case 3
response.write"初级作家"
case else
response.write"无"
end select
%></td>
<td><a href="admin_UserPasList.asp?userid=<%=rs("userid")%>&userpass=pass">审核</a>
<input name="userpass" type="hidden" id="userpass2" value="pass"></td>
<td><a href="admin_UserPasList.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" class="txt03"><%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%></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" 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 + -