📄 m_user.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<!-- #include file="../API/Class_API.asp" -->
<%
If CheckAccess("r_user_all")=False Then Response.Write "无权操作":Response.End
dim rs, sql,rsGroup,sGroups,allGroups,sGroupIds,SqlGroup,SqlGroup2,SqlGroup3
dim UserID,cmd,Keyword,sField,sMail,sMobile
keyword=Trim(Request("keyword"))
if keyword<>"" then
keyword=oblog.filt_badstr(keyword)
end if
sField=Trim(Request("Field"))
cmd=Trim(Request("cmd"))
Action=Trim(Request("Action"))
UserID=Trim(Request("UserID"))
'ComeUrl=Request.ServerVariables("HTTP_REFERER")
If Session("roleid")<>"" And Session("roleid")<>"0" Then
Set rs=oblog.Execute("select r_groups From oblog_roles Where roleid=" & Session("roleid"))
If Not rs.Eof Then sGroupIds=rs(0)
Set rs=Nothing
End If
If Right(sGroupIds,1)="," Then sGroupIds=Left(sGroupIds,Len(sGroupIds)-1)
If sGroupIds<>"" Then
If sGroupIds="," Then
SqlGroup=""
SqlGroup2=""
SqlGroup3=""
Else
SqlGroup=" Where user_group In (" & sGroupIds & ") "
SqlGroup2=" And user_group In (" & sGroupIds & ") "
SqlGroup3=" Where groupid In (" & sGroupIds & ")"
End If
End If
'整页级别(默认admin)
Set rsGroup=oblog.Execute("select groupid,g_name From oblog_groups "&SqlGroup3&" Order By Groupid Desc")
Do While Not rsGroup.Eof
allGroups=allGroups&rsGroup(0)&"!!??(("&rsGroup(1)&"##))=="
sGroups=sGroups & "<option value="&rsGroup(0)&">" & rsGroup(1) & "</option>" & vbcrlf
rsGroup.MoveNext
Loop
rsGroup.MoveFirst
if cmd="" then
cmd=0
else
cmd=CLng(cmd)
end if
G_P_FileName="m_user.asp?cmd=" & cmd
if sField<>"" then
G_P_FileName=G_P_FileName&"&Field="&sField
end if
if keyword<>"" then
G_P_FileName=G_P_FileName&"&keyword="&keyword
end if
if Request("page")<>"" then
G_P_This=cint(Request("page"))
else
G_P_This=1
end if
If cmd = 101 Then
G_P_FileName = G_P_FileName & "&groupid="&Int(Request("groupid"))
End if
%>
<script language=javascript>
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.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>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>oBlog--后台管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<%If action<>"Update" Then%>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">注 册 用 户 管 理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<form name="form1" action="m_user.asp" method="get">
<tr class="tdbg">
<td width="100" height="30"><strong>快速查询：</strong></td>
<td width="687" height="30">
<select size=1 name="cmd">
<option value=>请选择查询条件</option>
<option value="1">最后注册的500个用户</option>
<option value="2">最早注册的500个用户</option>
<option value="3">文章最多的100个用户</option>
<option value="4">文章最少的100个用户</option>
<option value="5">推荐博客</option>
<option value="6">所有待审核用户</option>
<!-- <option value="7">等待管理员认证的用户</option> -->
<option value="8">所有被锁住的用户</option>
<option value="10">所有被前台屏蔽的用户</option>
</select>
<input type="submit" value=" 查 询 ">
<a href="m_user.asp">用户管理首页</a> | <a href="m_user.asp?cmd=6">待审核用户</a>| <a href="m_user.asp?cmd=9"><font color=red>敏感用户</font></a>| <a href="m_user.asp?cmd=10" target="_blank">被前台屏蔽的用户</a>| <a href="../reg.asp" target="_blank">添加新用户</a></td>
</tr>
</form>
<form name="form2" action="m_user.asp?cmd=101" method="post">
<tr class="tdbg">
<td width="100" height="30"><strong>按用户组查询：</strong></td>
<td width="687" height="30">
<select size=1 name="groupid">
<option value="0">------尚未分组------</option>
<%=sGroups%>
</select>
<input type="submit" value=" 查 询 "></td>
</tr>
</form>
<form name="form3" method="post" action="m_user.asp">
<tr class="tdbg">
<td width="120"><strong>用户高级查询：</strong></td>
<td >
<select name="Field" id="Field">
<option value="UserName" selected>用户名</option>
<option value="UserID">用户ID</option>
<option value="nickname">用户昵称</option>
<option value="blogname">blog名称</option>
<option value="email">注册用Email</option>
<option value="regip">注册用ip</option>
<option value="regdate">注册时间(格式YYYYMMDD,如20060601)</option>
<option value="birthday">生日(格式YYYYMMDD,如20060601)</option>
<option value="regcity">所在省市(请手工填写,省市之间用,隔开,如山东,威海)</option>
<option value="loginip" >最后登录ip</option>
<option value="lastlogintime" >多少天内未登录</option>
<option value="logcount">文章数小于</option>
<option value="logintimes">登录次数小于</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 ">
<input name="cmd" type="hidden" id="cmd" value="102">
若为空，则查询所有用户</td>
</tr>
</form>
<tr><td colspan=2><b>内容管理员仅可管理自己被许可管理的用户等级。但敏感用户、锁定用户、待审用户不受限<br/>
用户积分重计计算方法：注册初始分+日志分+精华分+回复分+留言分+群组帖子分+创建圈子奖励分-创建圈子消耗<br/>
重计可能不准确，只能根据现有数据统计，不能统计因为删除等操作扣除的积分等过往情况 </b>
</td></tr>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%End If%>
<%
Select Case LCase(action)
Case "add"
call adduser
Case "saveadd"
call saveadd
Case "modify"
call modify
Case "savemodify"
call savemodify
Case "del"
call deluser
Case "lock"
call lockuser
Case "unlock"
call unlockuser
Case "block"
call blockuser
Case "unblock"
call unblockuser
Case "move"
call moveuser
Case "update"
call updateuser
Case "doupdate"
call doupdate
Case "doupdatelog"
call doupdatelog
Case "gouser1"
call gouser1
Case "gouser2"
call gouser2
Case "pass"
call passit(7)
Case "unpass"
call passit(6)
Case "rescore"
call rescore
Case else
call main
End Select
If FoundErr = True Then
Call WriteErrMsg
End If
Sub main()
Dim QryFields
Dim sDate
sGuide=""
QryFields=" top 500 userid,username,user_icon1,regip,adddate,lockuser,user_level,user_group,lastloginip,lastlogintime,logintimes,istrouble,emailvalid,log_count,is_log_default_hidden "
select Case cmd
Case 1
sql = "select " & QryFields &" from oblog_user " & SqlGroup &" order by UserID desc"
sGuide = sGuide & "最后注册的500个用户"
Case 2
sql = "select " & QryFields &" from oblog_user " & SqlGroup &" order by UserID"
sGuide = sGuide & "最早注册的500个用户"
Case 3
sql = "select " & QryFields &" from oblog_user " & SqlGroup &" order by log_count Desc"
sGuide = sGuide & "发表日志最多的500个用户"
Case 4
sql = "select " & QryFields &" from oblog_user " & SqlGroup &" order by log_count"
sGuide = sGuide & "发表日志最少的500个用户"
Case 5
sql = "select " & QryFields &" from oblog_user where user_isbest=1 " & SqlGroup2 &" order by userid desc"
sGuide = sGuide & "推荐博客"
Case 6
sql = "select " & QryFields &" from oblog_user where User_Level=6 order by userid desc"
sGuide = sGuide & "等待管理审核的用户"
Case 8
sql = "select " & QryFields &" from oblog_user where LockUser =1 order by userID desc"
sGuide = sGuide & "被锁住的用户"
Case 9
sql = "select " & QryFields &" from oblog_user where istrouble >0 order by userID desc"
sGuide = sGuide & "<font color=red>敏感用户(任何发布过敏感/反动关键字的用户将被归入此类)</font>"
Case 10
sql = "select " & QryFields &" from oblog_user where is_log_default_hidden =1 order by userID desc"
sGuide = sGuide & "被系统前台屏蔽锁的用户"
Case 101
If Request("groupid") = 0 Then
sql = "select " & QryFields &" from oblog_user where user_group is null " & SqlGroup2
Else
sql = "select " & QryFields &" from oblog_user where user_group=" & Int(Request("groupid"))& SqlGroup2
End If
sGuide = sGuide & "按会员组查询"
Case 102
If Keyword = "" Then
sql = "select " & QryFields &" from oblog_user " & SqlGroup &" order by userID desc"
'sGuide = sGuide & "所有用户"
sGuide = sGuide & "最新注册的500个用户"
Else
select Case LCase(sField)
Case "userid"
If IsNumeric(Keyword) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>用户ID必须是整数！</li>"
Else
sql = "select " & QryFields &" from oblog_user where userID =" & CLng(Keyword) & SqlGroup2
sGuide = sGuide & "用户ID等于<font color=red> " & CLng(Keyword) & " </font>的用户"
End If
Case "username"
'If is_sqldata = 1 Then
sql = "select " & QryFields &" from oblog_user where username like '%" & Keyword & "%' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "用户名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
'Else
' sql = "select " & QryFields &" from oblog_user where username= '" & Keyword & "' " & SqlGroup2 &" order by userID desc"
' sGuide = sGuide & "用户名等于“ <font color=red>" & Keyword & "</font> ”的用户"
'End If
Case "nickname"
If is_sqldata = 1 Then
sql = "select " & QryFields &" from oblog_user where nickname like '%" & Keyword & "%' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "用户昵称中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where nickname='" & Keyword & "' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "用户昵称等于“ <font color=red>" & Keyword & "</font> ”的用户"
End If
Case "regip"
If is_sqldata = 1 Then
sql = "select " & QryFields &" from oblog_user where regip like '%" & Keyword & "%' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "注册ip中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where regip='" & Keyword & "' " & SqlGroup2&" order by userID desc"
sGuide = sGuide & "注册ip等于“ <font color=red>" & Keyword & "</font> ”的用户"
End If
Case "loginip"
If is_sqldata = 1 Then
sql = "select " & QryFields &" from oblog_user where lastloginip like '%" & Keyword & "%' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "最后登录ip中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where lastloginip='" & Keyword & "' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "最后登录ip等于“ <font color=red>" & Keyword & "</font> ”的用户"
End If
Case "blogname"
If is_sqldata = 1 Then
sql = "select " & QryFields &" from oblog_user where blogname like '%" & Keyword & "%' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "blog名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where blogname='" & Keyword & "' " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "blog名等于“ <font color=red>" & Keyword & "</font> ”的用户"
End If
Case "logcount"
sql = "select " & QryFields &" from oblog_user where log_count < " & CLng(Keyword) & " " & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "文章数小于“ <font color=red>" & Keyword & "</font> ”的用户"
Case "logintimes"
sql = "select " & QryFields &" from oblog_user where logintimes < " & CLng(Keyword) & " " & SqlGroup2 &"order by userID desc"
sGuide = sGuide & "登录次数小于“ <font color=red>" & Keyword & "</font> ”的用户"
Case "lastlogintime"
sql = "select " & QryFields &" from oblog_user where "
If Is_Sqldata = 0 Then
sql = sql & " datediff("&G_Sql_d&",lastlogintime,"&G_Sql_Now&")>" & Int(Keyword) & SqlGroup2 &" order by userID desc"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -