📄 admin_vipuser.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="md5.asp"-->
<%function vipshow(expression)
if expression=1 then
vipshow="VIP会员"
elseif expression=2 then
vipshow="已被限制"
elseif expression=3 then
vipshow="已被锁定"
elseif expression=4 then
vipshow="等待审批"
end if
end function
%>
<html>
<head>
<title><%=Forum_info(0)%>--管理页面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
</head>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<%
if not master or session("flag")="" 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>VIP用户管理</th>
</tr>
<tr>
<td width=20% class=forumrow>注意事项</td>
<td width=80% class=forumrow colspan=5>①点删除按钮将从VIP用户表中删除所选定的VIP用户，并不会将此用户从论坛中真正删除；<br>
②限制用户可以限制被删除的用户再次申请加为VIP会员；<br>
③点用户名进行相应的资料操作；<br>
④点用户最后登陆IP可进行锁定IP操作；<br>
⑤<font color="#FF0000">请仔细阅读相关操作的说明</font></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%>>列出所有VIP用户</option>
<option value="2" <%if request("userSearch")=2 then%>selected<%end if%>>所有被锁定的VIP用户</option>
<option value="3" <%if request("userSearch")=3 then%>selected<%end if%>>所有被限制的VIP用户</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="8" <%if request("userSearch")=8 then%>selected<%end if%>>所有版主组以上VIP用户</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.* from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.vip>0 and u.vip<4 order by u.addDate desc"
case 2
sql="select u.* from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.vip=3 order by u.addDate desc"
case 3
sql="select u.* from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.vip=2 order by u.addDate desc"
case 4
sql="select u.vip,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 and u.vip>0 and u.vip<4 order by u.lastlogin desc"
case 5
sql="select u.vip,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 and u.vip>0 and u.vip<4 order by u.addDate desc"
'case 6
'sql="select u.* from [user] u inner join UserGroups G on u.usergroupid=g.usergroupid where u.vip=4 order by u.addDate desc"
case 7
sql="select u.vip,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 and u.vip>0 and u.vip<4 order by u.addDate desc"
case 8
sql="select u.vip,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 and u.vip>0 and u.vip<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")&"%'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -