m_user.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 907 行 · 第 1/3 页
ASP
907 行
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<!-- #include file="../API/Class_API.asp" -->
<%
dim rs, sql,rsGroup,sGroups,sGroupIds,SqlGroup,SqlGroup2
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")
'整页级别(默认admin)
Set rsGroup=oblog.Execute("Select groupid,g_name From oblog_groups Order By Groupid Desc")
Do While Not rsGroup.Eof
sGroups=sGroups & "<option value="&rsGroup(0)&">" & rsGroup(1) & "</option>" & vbcrlf
rsGroup.MoveNext
Loop
rsGroup.MoveFirst
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=""
Else
SqlGroup=" Where user_group In (" & sGroupIds & ") "
SqlGroup2=" And user_group In (" & sGroupIds & ") "
End If
End If
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>
<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>
</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="../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>内容管理员仅可管理自己被许可管理的用户等级。但敏感用户、锁定用户、待审用户不受限<br/>
用户积分重计计算方法：注册初始分+日志分+精华分+回复分+留言分+群组帖子分+创建圈子奖励分-创建圈子消耗<br/>
重计可能不准确，只能根据现有数据统计，不能统计因为删除等操作扣除的积分等过往情况
</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>
<%
If Action = "Add" Then
Call AddUser
ElseIf Action = "SaveAdd" Then
Call SaveAdd
ElseIf Action = "Modify" Then
Call Modify
ElseIf Action = "SaveModify" Then
Call SaveModify
ElseIf Action = "Del" Then
Call DelUser
ElseIf Action = "Lock" Then
Call LockUser
ElseIf Action = "UnLock" Then
Call UnLockUser
ElseIf Action = "Move" Then
Call MoveUser
ElseIf Action = "Update" Then
Call UpdateUser
ElseIf Action = "DoUpdate" Then
Call DoUpdate
ElseIf Action = "DoUpdatelog" Then
Call DoUpdatelog
ElseIf Action = "gouser1" Then
Call gouser1
ElseIf Action = "gouser2" Then
Call gouser2
ElseIf Action = "pass" Then
Call Passit(7)
ElseIf Action = "unpass" Then
Call Passit(6)
ElseIf Action="rescore" Then
Call ReScore
Else
Call main
End If
If FoundErr = True Then
Call WriteErrMsg
End If
Sub main()
Dim QryFields
sGuide=""
QryFields=" userid,username,user_icon1,regip,adddate,lockuser,user_level,user_group,lastloginip,lastlogintime,logintimes,istrouble,emailvalid,log_count "
Select Case cmd
Case 1
sql = "select top 500 " & QryFields &" from oblog_user " & SqlGroup &" order by UserID desc"
sGuide = sGuide & "最后注册的500个用户"
Case 2
sql = "select top 500 " & QryFields &" from oblog_user " & SqlGroup &" order by UserID"
sGuide = sGuide & "最早注册的500个用户"
Case 3
sql = "select top 100 " & QryFields &" from oblog_user " & SqlGroup &" order by log_count Desc"
sGuide = sGuide & "发表日志最多的100个用户"
Case 4
sql = "select top 100 " & QryFields &" from oblog_user " & SqlGroup &" order by log_count"
sGuide = sGuide & "发表日志最少的100个用户"
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 101
If request("groupid") = 0 Then
sql = "select top 500 " & QryFields &" from oblog_user where user_group is null"
Else
sql = "select top 500 " & QryFields &" from oblog_user where user_group=" & Int(request("groupid"))
End If
sGuide = sGuide & "按会员组查询"
Case 102
If Keyword = "" Then
sql = "select top 500 " & QryFields &" from oblog_user " & SqlGroup &" order by userID desc"
sGuide = sGuide & "所有用户"
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) & SqlGroup
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 lastloginip='" & 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 top 500 " & 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 top 500 " & QryFields &" from oblog_user where logintimes < " & CLng(Keyword) & SqlGroup2 &" order by userID desc"
sGuide = sGuide & "登录次数小于“ <font color=red>" & Keyword & "</font> ”的用户"
Case "lastlogintime"
If is_sqldata = 1 Then
sql = "select top 500 " & QryFields &" from oblog_user where datediff(d,lastlogintime,getdate())>" & CLng(Keyword) & SqlGroup2 &" order by userID desc"
Else
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?