admin_user.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 749 行 · 第 1/2 页
ASP
749 行
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/class_blog.asp"-->
<%
dim rs, sql
dim UserID,UserSearch,Keyword,strField
dim Action,FoundErr,ErrMsg
dim tmpDays
keyword=trim(request("keyword"))
if keyword<>"" then
keyword=oblog.filt_badstr(keyword)
end if
strField=trim(request("Field"))
UserSearch=trim(request("UserSearch"))
Action=trim(request("Action"))
UserID=trim(Request("UserID"))
'ComeUrl=Request.ServerVariables("HTTP_REFERER")
if UserSearch="" then
UserSearch=0
else
UserSearch=Clng(UserSearch)
end if
G_P_FileName="admin_user.asp?UserSearch=" & UserSearch
if strField<>"" then
G_P_FileName=G_P_FileName&"&Field="&strField
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
%>
<!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>注册用户管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<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>
<div id="main_body" style= "display:none">
<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="UserSearch" onChange="javascript:submit()">
<option value=>请选择查询条件</option>
<option value="0">最后注册的500个用户</option>
<option value="1">文章最多TOP100</option>
<option value="2">文章最少的100个用户</option>
<option value="3">VIP用户</option>
<option value="4">前台管理员</option>
<option value="5">推荐博客</option>
<option value="6">等待管理员认证的用户</option>
<option value="7">所有被锁住的用户</option>
</select>
<a href="admin_user.asp">用户管理首页</a> | <a href="../reg.asp" target="_blank">添加新用户</a></td>
</tr>
</form>
<form name="form2" method="post" 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="ip" >最后登录ip</option>
<option value="blogname" >blog名称</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="UserSearch" type="hidden" id="UserSearch" value="10">
若为空，则查询所有用户</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()
else
call UpdateUser()
end if
if FoundErr=true then
call WriteErrMsg()
end if
sub main()
dim G_P_Guide
G_P_Guide="<table width='100%'><tr><td align='left'>您现在的位置：<a href='admin_user.asp'>注册用户管理</a> >> "
select case UserSearch
case 0
sql="select top 500 * from oblog_user order by UserID desc"
G_P_Guide=G_P_Guide & "最后注册的500个用户"
case 1
sql="select top 100 * from oblog_user order by log_count desc"
G_P_Guide=G_P_Guide & "发表日志最多的前100个用户"
case 2
sql="select top 100 * from oblog_user order by log_count"
G_P_Guide=G_P_Guide & "发表日志最少的100个用户"
case 3
sql="select * from oblog_user where user_level=8 order by userid desc"
G_P_Guide=G_P_Guide & "所有VIP用户"
case 4
sql="select * from oblog_user where user_level=9 order by userid desc"
G_P_Guide=G_P_Guide & "前台管理员"
case 5
sql="select * from oblog_user where user_isbest=1 order by userid desc"
G_P_Guide=G_P_Guide & "推荐博客"
case 6
sql="select * from oblog_user where User_Level=6 order by userID desc"
G_P_Guide=G_P_Guide & "等待管理认证证的用户"
case 7
sql="select * from oblog_user where LockUser =1 order by userID desc"
G_P_Guide=G_P_Guide & "所有被锁住的用户"
case 10
if Keyword="" then
sql="select top 500 * from oblog_user order by userID desc"
G_P_Guide=G_P_Guide & "所有用户"
else
select case strField
case "UserID"
if IsNumeric(Keyword)=false then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>用户ID必须是整数！</li>"
else
sql="select * from oblog_user where userID =" & Clng(Keyword)
G_P_Guide=G_P_Guide & "用户ID等于<font color=red> " & Clng(Keyword) & " </font>的用户"
end if
case "UserName"
if is_sqldata=1 then
sql="select * from oblog_user where username like '%" & Keyword & "%' order by userID desc"
G_P_Guide=G_P_Guide & "用户名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
else
sql="select * from oblog_user where username= '" & Keyword & "' order by userID desc"
G_P_Guide=G_P_Guide & "用户名等于“ <font color=red>" & Keyword & "</font> ”的用户"
end if
case "nickname"
if is_sqldata=1 then
sql="select * from oblog_user where nickname like '%" & Keyword & "%' order by userID desc"
G_P_Guide=G_P_Guide & "用户昵称中含有“ <font color=red>" & Keyword & "</font> ”的用户"
else
sql="select * from oblog_user where nickname='" & Keyword & "' order by userID desc"
G_P_Guide=G_P_Guide & "用户昵称等于“ <font color=red>" & Keyword & "</font> ”的用户"
end if
case "ip"
if is_sqldata=1 then
sql="select * from oblog_user where lastloginip like '%" & Keyword & "%' order by userID desc"
G_P_Guide=G_P_Guide & "最后登录ip中含有“ <font color=red>" & Keyword & "</font> ”的用户"
else
sql="select * from oblog_user where lastloginip='" & Keyword & "' order by userID desc"
G_P_Guide=G_P_Guide & "最后登录ip等于“ <font color=red>" & Keyword & "</font> ”的用户"
end if
case "blogname"
if is_sqldata=1 then
sql="select * from oblog_user where blogname like '%" & Keyword & "%' order by userID desc"
G_P_Guide=G_P_Guide & "blog名中含有“ <font color=red>" & Keyword & "</font> ”的用户"
else
sql="select * from oblog_user where blogname='" & Keyword & "' order by userID desc"
G_P_Guide=G_P_Guide & "blog名等于“ <font color=red>" & Keyword & "</font> ”的用户"
end if
case "logcount"
sql="select top 500 * from oblog_user where log_count < " & clng(Keyword) & " order by userID desc"
G_P_Guide=G_P_Guide & "文章数小于“ <font color=red>" & Keyword & "</font> ”的用户"
case "logintimes"
sql="select top 500 * from oblog_user where logintimes < " & clng(Keyword) & " order by userID desc"
G_P_Guide=G_P_Guide & "登录次数小于“ <font color=red>" & Keyword & "</font> ”的用户"
case "lastlogintime"
If is_sqldata=1 Then
sql="select top 500 * from oblog_user where datediff(d,lastlogintime,getdate())>"&clng(Keyword)&" order by userID desc"
Else
sql="select top 500 * from oblog_user where datediff('d',lastlogintime,now())>"&clng(Keyword)&" order by userID desc"
End If
G_P_Guide=G_P_Guide & "“ <font color=red>" & Keyword & "</font> ”天内未登录的用户"
end select
end if
case else
FoundErr=true
ErrMsg=ErrMsg & "<br><li>错误的参数！</li>"
end select
G_P_Guide=G_P_Guide & "</td><td align='right'>"
if FoundErr=true then exit sub
if not IsObject(conn) then link_database
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
G_P_Guide=G_P_Guide & "共找到 <font color=red>0</font> 个用户</td></tr></table>"
response.write G_P_Guide
else
G_P_AllRecords=rs.recordcount
G_P_Guide=G_P_Guide & "共找到 <font color=red>" & G_P_AllRecords & "</font> 个用户</td></tr></table>"
response.write G_P_Guide
if G_P_This<1 then
G_P_This=1
end if
if (G_P_This-1)*G_P_PerMax>G_P_AllRecords then
if (G_P_AllRecords mod G_P_PerMax)=0 then
G_P_This= G_P_AllRecords \ G_P_PerMax
else
G_P_This= G_P_AllRecords \ G_P_PerMax + 1
end if
end if
if G_P_This=1 then
showContent
response.write oblog.showpage(true,true,"个用户")
else
if (G_P_This-1)*G_P_PerMax<G_P_AllRecords then
rs.move (G_P_This-1)*G_P_PerMax
dim bookmark
bookmark=rs.bookmark
showContent
response.write oblog.showpage(true,true,"个用户")
else
G_P_This=1
showContent
response.write oblog.showpage(true,true,"个用户")
end if
end if
end if
rs.Close
set rs=Nothing
end sub
sub showContent()
dim i
i=0
%>
<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">
<form name="myform" method="Post" action="admin_user.asp" onsubmit="return confirm('确定要执行选定的操作吗？');">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr class="title">
<td width="30" align="center"><font style="color:#000;font-weight:600;">选中</font></td>
<td width="30" align="center"><font style="color:#000;font-weight:600;">ID</font></td>
<td width="80" height="22" align="center"><font style="color:#000;font-weight:600;"> 用户名</font></td>
<td height="22" align="center"><font style="color:#000;font-weight:600;">所属用户组</font></td>
<td height="22" align="center"><font style="color:#000;font-weight:600;">最后登录IP</font></td>
<td align="center"><font style="color:#000;font-weight:600;">最后登录时间</font></td>
<td width="60" height="22" align="center"><font style="color:#000;font-weight:600;">登录次数</font></td>
<td width="40" height="22" align="center"><font style="color:#000;font-weight:600;"> 状态</font></td>
<td width="120" height="22" align="center"><font style="color:#000;font-weight:600;">
操作</font></td>
</tr>
<%do while not rs.EOF %>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="30" align="center"><input name='UserID' type='checkbox' onclick="unselectall()" id="UserID" value='<%=cstr(rs("userID"))%>'></td>
<td width="30" align="center"><%=rs("userID")%></td>
<td width="80" align="center"><%
response.write "<a href='../blog.asp?name=" & rs("userName") & "'"
response.write """ target='_blank'>" & rs("userName") & "</a>"
%> </td>
<td align="center"> <%
select case rs("User_Level")
case 6
response.write "<font color=green>等待管理员认证的用户</font>"
case 7
response.write "普通注册用户"
case 8
response.write "<font color=blue>VIP用户</font>"
case 9
response.write "<font color=blue>前台管理员</font>"
case else
response.write "<font color=red>异常用户</font>"
end select
%> </td>
<td align="center"> <%
if rs("LastLoginIP")<>"" then
response.write rs("LastLoginIP")
else
response.write " "
end if
%> </td>
<td align="center"> <%
if rs("LastLoginTime")<>"" then
response.write rs("LastLoginTime")
else
response.write " "
end if
%> </td>
<td width="60" align="center"> <%
if rs("LoginTimes")<>"" then
response.write rs("LoginTimes")
else
response.write "0"
end if
%> </td>
<td width="40" align="center"><%
if rs("LockUser")=1 then
response.write "<font color=red>已锁定</font>"
else
response.write "正常"
end if
%></td>
<td width="120" align="center"><%
response.write "<a href='admin_user.asp?Action=Modify&UserID=" & rs("userID") & "'>修改</a> "
response.write "<a href='admin_user.asp?Action=gouser2&username=" & rs("username") & "' target='blank'>进后台</a> "
if rs("LockUser")=0 then
response.write "<a href='admin_user.asp?Action=Lock&UserID=" & rs("userID") & "'>锁定</a> "
else
response.write "<a href='admin_user.asp?Action=UnLock&UserID=" & rs("userID") & "'>解锁</a> "
end if
response.write "<a href='admin_user.asp?Action=Del&UserID=" & rs("userID") & "' onClick='return confirm(""确定要删除此用户吗？"");'>删除</a> "
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?