📄 admin_user.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<!-- #include file="../API/Class_API.asp" -->
<%
dim rs, sql,rsGroup,sGroups,allGroups
dim UserID,UserSearch,Keyword,strField,cmd,sField,sGuide,sMail,sMobile
dim Action,FoundErr,ErrMsg
keyword=Trim(Request("keyword"))
if keyword<>"" then
keyword=oblog.filt_badstr(keyword)
end If
cmd=Trim(Request("cmd"))
sField=Trim(Request("Field"))
strField=Trim(Request("Field"))
UserSearch=Trim(Request("UserSearch"))
Action=Trim(Request("Action"))
UserID=Trim(Request("UserID"))
'ComeUrl=Request.ServerVariables("HTTP_REFERER")
'整页级别
Set rsGroup=oblog.Execute("select groupid,g_name From oblog_groups 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="admin_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>
<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="admin_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="admin_user.asp">用户管理首页</a> | <a href="admin_user.asp?cmd=6">待审核用户</a>| <a href="admin_user.asp?cmd=9"><font color=red>敏感用户</font></a>| <a href="admin_user.asp?cmd=10" target="_blank">被前台屏蔽的用户</a>| <a href="../reg.asp" target="_blank">添加新用户</a></td>
</tr>
</form>
<form name="form2" action="admin_user.asp" method="get">
<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 name="cmd" type="hidden" id="cmd" value="101">
<input type="submit" value=" 查 询 "></td>
</tr>
</form>
<form name="form3" method="get" action="admin_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>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
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 order by UserID desc"
sGuide = sGuide & "最后注册的500个用户"
Case 2
sql = "select " & QryFields &" from oblog_user order by UserID"
sGuide = sGuide & "最早注册的500个用户"
Case 3
sql = "select " & QryFields &" from oblog_user order by log_count Desc"
sGuide = sGuide & "发表日志最多的500个用户"
Case 4
sql = "select " & QryFields &" from oblog_user order by log_count"
sGuide = sGuide & "发表日志最少的500个用户"
Case 5
sql = "select " & QryFields &" from oblog_user where user_isbest=1 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"
Else
sql = "select " & QryFields &" from oblog_user where user_group=" & Int(Request("groupid"))
End If
sGuide = sGuide & "按会员组查询"
Case 102
If Keyword = "" Then
sql = "select " & QryFields &" from oblog_user 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)
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 & "%' order by userID desc"
sGuide = sGuide & "用户名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where username= '" & Keyword & "' 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 & "%' order by userID desc"
sGuide = sGuide & "用户昵称中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where nickname='" & Keyword & "' 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 & "%' order by userID desc"
sGuide = sGuide & "注册ip中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where lastloginip='" & Keyword & "' 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 & "%' order by userID desc"
sGuide = sGuide & "最后登录ip中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where lastloginip='" & Keyword & "' 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 & "%' order by userID desc"
sGuide = sGuide & "blog名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where blogname='" & Keyword & "' 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) & " order by userID desc"
sGuide = sGuide & "文章数小于“ <font color=red>" & Keyword & "</font> ”的用户"
Case "logintimes"
sql = "select " & QryFields &" from oblog_user where logintimes < " & CLng(Keyword) & " 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) & " order by userID desc"
Else
sDate = DateAdd ("d",-1*Abs(Keyword),Date())
sDate = GetDateCode(sDate,0)
sql = sql & " lastlogintime < '"&sDate&"' ORDER BY userid DESC"
End if
sGuide = sGuide & "“ <font color=red>" & Keyword & "</font> ”天内未登录的用户"
'New
Case "email"
If is_sqldata = 1 Then
sql = "select " & QryFields &" from oblog_user where useremail like '%" & Keyword & "%' order by userID desc"
sGuide = sGuide & "注册Email名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
Else
sql = "select " & QryFields &" from oblog_user where useremail='" & Keyword & "' order by userID desc"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -