📄 users.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="../inc/page_cls.asp"-->
<%
response.write("<body>")
select case request("action")
case "update"
updateuserdata
case "useredit"
useredit
case "edituser"
edituser
case "addadmin"
addadmin
case "saveadmin"
saveadmin
case "admin"
admin
case "editadmin"
editadmin
case "saveeditadmin"
saveeditadmin
case "deladmin"
deladmin
case "classadd"
userclassadd
case "saveaddclass"
saveaddclass
case "userclass"
userclass
case "classedit"
userclassedit
case "saveeditclass"
saveeditclass
case "deluserclass"
deluserclass
case "addgrade"
usergradeadd
case "saveaddgrade"
saveaddgrade
case "usergrade"
usergrade
case "updategrade"
updateusergrade
case "delusergrade"
delusergrade
case "delmoreuser"
delmoreuser
case else
showuserlist
end select
adminfooter()
sub showuserlist()
dim action,wheresql,ordersql,order,pageinfo,keyword,search,classid
order=request.querystring("order")
keyword=request.querystring("keyword")
search=request.querystring("search")
classid=request.querystring("classid")
action=lcase(request.querystring("action"))
wheresql="id<>0"
if classid<>"" then wheresql=wheresql&" and classid="&classid
if keyword<>"" then
if search="1" then
wheresql=wheresql&" and mail like '%"&keyword&"%'"
else
wheresql=wheresql&" and name like '%"&keyword&"%'"
end if
end if
select case action
case"sex"
ordersql="sex"
case"coin"
ordersql="coin"
case"essay"
ordersql="essaynum"
case"mark"
ordersql="mark"
case"regtime"
ordersql="regtime"
case"grade"
ordersql="gradenum"
case"isdel"
wheresql="isdel=FALSE"
case else
ordersql="id"
end select
if order<>"1" then ordersql =ordersql&" desc"
if order="3" then ordersql =""
%>
<form>
<div class="ta"><div class="th jz">查找用户</div><div class="tf"><font color="#800000">搜索 <select size="1" name="search">
<option value=0>用户名</option>
<option value=1>email</option>
</select> <input type="text" name="keyword" size="20">
<input type="submit" value="查找" name="b1"></font></div><div style="clear: both;"></div></div>
</form>
<%
response.write "<form method=""post"" action=""?action=update"" name=""recycle""><div class=""ta""><div class=""th jz"">用户信息管理</div><div class=""tf w470"" style=""float: left;"">查看按：<a href=?action=sex&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">性别</a> / <a href=?action=essay&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">贴数</a> / <a href=?action=coin&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">金钱</a> / <a href=?action=mark&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">y币</a> / <a href=?action=regtime&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">注册时间</a> / <a href=?action=grade&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid&">等级</a> / <a href=?action=isdel&order=3>审核</a></div><div class=""tf w280"" style=""float: left;"">排序方式：<a href=?action="&action&"&order=1&search="&search&"&keyword="&keyword&"&classid="&classid&">顺</a> / <a href=?action="&action&"&order=2&search="&search&"&keyword="&keyword&"&classid="&classid&">倒</a></div>"
dim pages,page,arr_rs,i,temp,content
page = request.querystring("page")
set pages = new cls_pageview
pages.strtablename = "[yx_user]"
pages.strpageurl = "?action="&action&"&order="&order&"&search="&search&"&keyword="&keyword&"&classid="&classid
pages.strfieldslist = "id,name,sex,mail,essaynum,coin,mark,regtime,GradeNum,isdel"
pages.strcondiction = wheresql
pages.strorderlist = ordersql
pages.strprimarykey = "id"
pages.intpagesize = 20
pages.intpagenow = page
pages.strcookiesname = "members"&keyword&search&classid
pages.reloadtime=3
pages.strpagevar = "page"
pages.initclass
arr_rs = pages.arrrecordinfo
pageinfo = pages.strpageinfo
page=pages.intpagenow
set pages = nothing
response.write "<div class=""td1 h20 jz w131"">用户名</div><div class=""td1 jz h20 w50"">性别</div><div class=""td1 h20 jz w87"">e-mail</div><div class=""td1 jz h20 w87"">发帖数</div><div class=""td1 jz h20 w50"">金钱</div><div class=""td1 jz h20 w50"">y币</div><div class=""td1 jz h20 w100"">注册时间</div><div class=""td1 jz h20 w94"">等级</div><div class=""td1 jz h20 w50""><input type=checkbox value=""on"" name=""chkall"" onclick=""checkall(this.form)""></div>"
if isarray(arr_rs) then
for i = 0 to ubound(arr_rs, 2)
SET Rs=YxBBs.Execute("Select GradeName,GradePic From [YX_UserGrade] where GradeNum="&Arr_Rs(8,i)&"")
if arr_rs(2,i) then temp="男" else temp="女"
response.write "<div class=""td1 h20 jz w131""><a href='?action=useredit&userid="&arr_rs(0,i)&"'>"&arr_rs(1,i)&"</a></div><div class=""td1 jz h20 w50"">"&temp&"</div><div class=""td1 h20 jz w87""><a href='mailto:"&arr_rs(3,i)&"'><img src='../images/mail.gif' border='0' /></a></div><div class=""td1 jz h20 w87"">"&arr_rs(4,i)&"</div><div class=""td1 jz h20 w50"">"&arr_rs(5,i)&"</div><div class=""td1 jz h20 w50"">"&arr_rs(6,i)&"</div><div class=""td1 jz h20 w100"">"&formatdatetime(arr_rs(7,i),2)&"</div><div class=""td1 jz h20 w94""><img src='../"&Rs("Gradepic")&"' alt="&Rs("GradeName")&"></div><div class=""td1 jz h20 w50""><input type=""checkbox"" name=""userid"" value="""&arr_rs(0,i)&"""></div>"
next
end if
response.write "<div class=""td2 w770""><input type=""radio"" value=""0"" name=""useraction""> 审核用户 <input type=""radio"" value=""1"" name=""useraction""> 屏蔽用户 <input type=""radio"" value=""2"" name=""useraction""> 解除屏蔽 <input type=""radio"" value=""3"" name=""useraction""> 删除用户资料 <input type=""radio"" value=""4"" name=""useraction""> 删除用户帖子 <input type=""radio"" value=""5"" name=""useraction"" checked=""true""> 移动到用户组 <select size=""1"" name=""classid"">"
dim ucl
set ucl=conn.execute("select classid,classname from yx_userclass where classid<>6 order by classid asc")
while not ucl.eof
if ucl(0)=5 then
response.write "<option value="&ucl(0)&" selected>"&ucl(1)&"</option>"
else
response.write "<option value="&ucl(0)&">"&ucl(1)&"</option>"
end if
ucl.movenext
wend
set ucl=nothing
response.write "</select> <input type=""submit"" value=""执行操作"" name=""b1"" onclick=""{if(confirm('确定执行选择的操作吗?')){this.document.recycle.submit();return true;}return false;}""></div>"
response.write "<div class=""tf h20"">"&pageinfo&"</div><div style=""clear: both;""></div></div></form>"
%>
<form method="post" action="?action=delmoreuser">
<div class="ta"><div class="th jz">批量删除用户</div><div class="tf"><font color="#800000">发帖数 <select size="1" name="EssayNum">
<option value=0>0帖</option>
<option value=1>1帖</option>
<option value=3>3帖</option>
<option value=5>5帖</option>
</select> 登陆次数<select size="1" name="LoginNum">
<option value=0>0次</option>
<option value=1>1次</option>
<option value=3>3次</option>
<option value=5>5次</option>
</select>
<input type="submit" value="删除" name="b1"></font></div><div style="clear: both;"></div></div>
</form>
<script language="javascript">
<!--
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>
<%
end sub
Sub delmoreuser
dim EssayNum,LoginNum
EssayNum=request.form("EssayNum")
LoginNum=request.form("LoginNum")
yxbbs.execute("delete from[yx_user] where EssayNum<="&EssayNum&" and LoginNum<="&LoginNum&"")
call suc("","成功的删除了帖子少于"&EssayNum&",并且登陆少于"&LoginNum&"次的用户！","users.asp")
end sub
sub updateuserdata
dim useraction,userid,classid,succstr,topiccount,flag,i,urs,alltable
useraction=request.form("useraction")
userid=request.form("userid")
classid=request.form("classid")
if replace(userid,",","")="" then
call goback("","请选择相应的用户！")
exit sub
end if
select case useraction
case 0
yxbbs.execute("update [yx_user] set isdel=1 where id in (" &userid& ")")
call suc("","用户审核通过！","users.asp")
case 1
yxbbs.execute("update [yx_user] set isshow=true where id in (" &userid& ")")
call suc("","成功屏蔽用户发言！","users.asp")
case 2
yxbbs.execute("update [yx_user] set isshow=false where id in (" &userid& ")")
call suc("","成功解除屏蔽用户发言！","users.asp")
case 3
'计算被删贴子数
set urs=conn.execute("select name from [yx_user] where id in (" &userid& ")")
while not urs.eof
alltable=split(yxbbs.bbstable(0),",")
for i=0 to ubound(alltable)
yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where name='"&urs(0)&"'")
yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where replytopicid in (select topicid from[yx_topic] where name='"&urs(0)&"')")
next
yxbbs.execute("delete from[yx_topic] where name='"&urs(0)&"'")
yxbbs.execute("delete from[yx_sms] where myname='"&urs(0)&"'")
yxbbs.execute("delete from[yx_admin] where username='"&urs(0)&"'")
yxbbs.execute("delete from[yx_user] where name='"&urs(0)&"'")
urs.movenext
wend
set urs=nothing
call suc("","所选用户（包括所有帖子、留言等）已经被彻底删除！","users.asp")
case 4
'计算被删贴子数
set urs=conn.execute("select name from [yx_user] where id in (" &userid& ")")
while not urs.eof
alltable=split(yxbbs.bbstable(0),",")
for i=0 to ubound(alltable)
yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where name='"&urs(0)&"'")
yxbbs.execute("delete from[yx_bbs"&alltable(i)&"] where replytopicid in (select topicid from[yx_topic] where name='"&urs(0)&"')")
next
yxbbs.execute("delete from[yx_topic] where name='"&urs(0)&"'")
urs.movenext
wend
set urs=nothing
call suc("","成功删除所选用户发表的所有帖子！","users.asp")
case 5
set rs=conn.execute("select gradenum,gradename,gradepic from yx_usergrade where classid="&classid)
if rs.eof or rs.bof then
call goback("错误提示","没有此用户组或已被删除。")
exit sub
end if
conn.execute("update yx_user set gradenum="&rs("gradenum")&",classid="&classid&" where id in (" &userid& ")")
set rs=nothing
call suc("","成功转移所选用户!","users.asp")
end select
end sub
sub useredit
dim rs,i,classid,username,userid,password,question,answer,sex,gradename,email,homepage,qq,icq,msn,headfile,headwidth
dim usertitle,mark,coin,banksave
dim headheight,sign,birthday,registtime,lastlogintime,useraction
userid=request("userid")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -