📄 admin_user.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="md5.asp"-->
<title><%=Forum_info(0)%>--管理页面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<%
dim admin_flag
admin_flag="21"
if not master or instr(session("flag"),admin_flag)=0 then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
call dvbbs_error()
response.end
end if
dim trs
dim userinfo
dim usertitle
%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th align=left colspan=6 height=23>用户管理</th>
</tr>
<tr>
<td width=20% class=forumrow>注意事项</td>
<td width=80% class=forumrow colspan=5>①点删除按钮将删除所选定的用户，此操作是不可逆的；②您可以批量移动用户到相应的组；③点用户名进行相应的资料操作；④点用户最后登陆IP可进行锁定IP操作；⑤点用户Email将给该用户发送Email</td>
</tr>
<form action="?action=userSearch" method=post>
<tr>
<td width=20% class=forumrow>快速搜索</td>
<td width=80% class=forumrow colspan=5>
<select size=1 name="userSearch" onchange="javascript:submit()">
<option value="0">请选择查询条件</option>
<option value="1" <%if request("userSearch")=1 then%>selected<%end if%>>列出所有用户</option>
<option value="2" <%if request("userSearch")=2 then%>selected<%end if%>>发贴最多TOP100</option>
<option value="3" <%if request("userSearch")=3 then%>selected<%end if%>>发贴最少的100个用户</option>
<option value="4" <%if request("userSearch")=4 then%>selected<%end if%>>最近24小时内登陆的用户</option>
<option value="5" <%if request("userSearch")=5 then%>selected<%end if%>>最近24小时内注册的用户</option>
<option value="6" <%if request("userSearch")=6 then%>selected<%end if%>>等待管理员认证的用户</option>
<option value="7" <%if request("userSearch")=7 then%>selected<%end if%>>等待邮件验证的会员</option>
<option value="8" <%if request("userSearch")=8 then%>selected<%end if%>>所有版主组以上用户</option>
</select>
</td>
</tr>
</form>
<%if request("action")="" or request("userSearch")="0" then%>
<form action="?action=userSearch" method=post>
<tr>
<th align=left colspan=6 height=23>高级查询</th>
</tr>
<tr>
<td width=20% class=forumrow>注意事项</td>
<td width=80% class=forumrow colspan=5>在记录很多的情况下搜索条件越多查询越慢，请尽量减少查询条件；最多显示记录数也不宜选择过大</td>
</tr>
<tr>
<td width=20% class=forumrow>最多显示记录数</td>
<td width=80% class=forumrow colspan=5><input size=45 name="searchMax" type=text value=100></td>
</tr>
<tr>
<td width=20% class=forumrow>用户名</td>
<td width=80% class=forumrow colspan=5><input size=45 name="username" type=text> <input type=checkbox name="usernamechk" value="yes" checked>用户名完整匹配</td>
</tr>
<tr>
<td width=20% class=forumrow>用户组</td>
<td width=80% class=forumrow colspan=5>
<select size=1 name="usergroups">
<option value=0>任意</option>
<%
set rs=conn.execute("select usergroupid,title from usergroups order by usergroupid")
do while not rs.eof
response.write "<option value="&rs(0)&">"&rs(1)&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td width=20% class=forumrow>用户等级</td>
<td width=80% class=forumrow colspan=5>
<select size=1 name="userclass">
<option value=0>任意</option>
<%
set rs=conn.execute("select usertitle from usertitle order by usertitleid")
do while not rs.eof
response.write "<option value="&rs(0)&">"&rs(0)&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td width=20% class=forumrow>Email包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="userEmail" type=text></td>
</tr>
<tr>
<td width=20% class=forumrow>主页包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="homepage" type=text></td>
</tr>
<tr>
<td width=20% class=forumrow>QQ包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="oicq" type=text></td>
</tr>
<tr>
<td width=20% class=forumrow>ICQ包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="icq" type=text></td>
</tr>
<tr>
<td width=20% class=forumrow>MSN包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="msn" type=text></td>
</tr>
<tr>
<td width=20% class=forumrow>头衔包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="usertitle" type=text></td>
</tr>
<tr>
<td width=20% class=forumrow>签名包含</td>
<td width=80% class=forumrow colspan=5><input size=45 name="sign" type=text></td>
</tr>
<tr>
<td width=100% class=forumrow align=center colspan=6><input name="submit" type=submit value=" 搜 索 "></td>
</tr>
<input type=hidden value="9" name="userSearch">
</form>
<%
elseif request("action")="userSearch" then
%>
<tr>
<th colspan=6 align=left height=23>搜索结果</th>
</tr>
<%
dim currentpage,page_count,Pcount
dim totalrec,endpage
currentPage=request("page")
if currentpage="" or not isInteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
Set rs= Server.CreateObject("ADODB.Recordset")
select case request("userSearch")
case 1
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid order by u.addDate desc"
case 2
sql="select top 100 u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid order by u.article desc"
case 3
sql="select top 100 u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid order by u.article"
case 4
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where datediff('h',u.LastLogin,Now())<25 order by u.lastlogin desc"
case 5
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where datediff('h',u.AddDate,Now())<25 order by u.addDate desc"
case 6
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.usergroupid=5 order by u.addDate desc"
case 7
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.usergroupid=6 order by u.addDate desc"
case 8
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.usergroupid<4 order by u.usergroupid"
case 9
sqlstr=""
if request("username")<>"" then
if request("usernamechk")="yes" then
sqlstr=" u.username='"&request("username")&"'"
else
sqlstr=" u.username like '%"&request("username")&"%'"
end if
end if
if cint(request("usergroups"))>0 then
if sqlstr="" then
sqlstr=" u.usergroupid="&request("usergroups")&""
else
sqlstr=sqlstr & " and u.usergroupid="&request("usergroups")&""
end if
end if
if request("userclass")<>"0" then
if sqlstr="" then
sqlstr=" u.userclass='"&request("userclass")&"'"
else
sqlstr=sqlstr & " and u.userclass='"&request("userclass")&"'"
end if
end if
if request("useremail")<>"" then
if sqlstr="" then
sqlstr=" u.useremail like '%"&request("useremail")&"%'"
else
sqlstr=sqlstr & " and u.useremail like '%"&request("useremail")&"%'"
end if
end if
if request("homepage")<>"" then
if sqlstr="" then
sqlstr=" u.homepage like '%"&request("homepage")&"%'"
else
sqlstr=sqlstr & " and u.homepage like '%"&request("homepage")&"%'"
end if
end if
if request("oicq")<>"" then
if sqlstr="" then
sqlstr=" u.oicq like '%"&request("oicq")&"%'"
else
sqlstr=sqlstr & " and u.oicq like '%"&request("oicq")&"%'"
end if
end if
if request("icq")<>"" then
if sqlstr="" then
sqlstr=" u.icq like '%"&request("icq")&"%'"
else
sqlstr=sqlstr & " and u.icq like '%"&request("icq")&"%'"
end if
end if
if request("msn")<>"" then
if sqlstr="" then
sqlstr=" u.msn like '%"&request("msn")&"%'"
else
sqlstr=sqlstr & " and u.msn like '%"&request("msn")&"%'"
end if
end if
if request("title")<>"" then
if sqlstr="" then
sqlstr=" u.title like '%"&request("title")&"%'"
else
sqlstr=sqlstr & " and u.title like '%"&request("title")&"%'"
end if
end if
if request("sign")<>"" then
if sqlstr="" then
sqlstr=" u.sign like '%"&request("sign")&"%'"
else
sqlstr=sqlstr & " and u.sign like '%"&request("sign")&"%'"
end if
end if
if sqlstr="" then
response.write "<tr><td colspan=6 class=forumrow>请指定搜索参数！</td></tr>"
response.end
end if
sql="select top "&request("searchmax")&" u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where "&sqlstr&" order by u.addDate desc"
case 10
sql="select u.userid,u.username,u.useremail,u.LastLogin,u.UserLastIP,u.article,u.UserGroupID from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.usergroupid="&request("usergroupid")&" order by u.addDate desc"
case else
response.write "<tr><td colspan=6 class=forumrow>错误的参数。</td></tr>"
response.end
end select
'response.write sql
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=6 class=forumrow>没有找到相关记录。</td></tr>"
else
%>
<FORM METHOD=POST ACTION="?action=touser">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -