m_user.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 877 行 · 第 1/3 页
ASP
877 行
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<!-- #include file="../API/Class_API.asp" -->
<%
dim rs, sql,rsGroup,sGroups
dim UserID,cmd,Keyword,sField
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")
'整页级别
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 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
%>
<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>
</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)
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 order by UserID desc"
sGuide = sGuide & "最后注册的500个用户"
Case 2
sql = "select top 100 " & QryFields &" from oblog_user order by UserID"
sGuide = sGuide & "最早注册的500个用户"
Case 3
sql = "select top 100 " & QryFields &" from oblog_user order by log_count Desc"
sGuide = sGuide & "发表日志最多的100个用户"
Case 4
sql = "select top 100 " & QryFields &" from oblog_user order by log_count"
sGuide = sGuide & "发表日志最少的100个用户"
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 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 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)
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 top 500 " & QryFields &" from oblog_user where log_count < " & CLng(Keyword) & " 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) & " 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) & " order by userID desc"
Else
sql = "select top 500 " & QryFields &" from oblog_user where datediff('d',lastlogintime,now())>" & CLng(Keyword) & " 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"
sGuide = sGuide & "注册Email等于“ <font color=red>" & Keyword & "</font> ”的用户"
End If
Case "regdate"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?