📄 admin_user.asp
字号:
<!--#include file="Inc/Const.asp"-->
<!--#include file="../inc/Cl_Md5.asp"-->
<%
if Not Cl.TrueOtherPurview("User") then
Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
const PageSize=20
dim UserSearch,Keyword,Field
dim Action
dim ValidDays,tmpDays,BeginID,EndID
'定义用户所需要变量
Dim rsUser,sqlUser
Dim UserID, UserName, UserReName, UserSex, UserGroupID,UserEmail,Question, Answer
Dim UserIM, UserHome, UserQQ, UserICQ, UserMSN, UserAIM, UserYahoo, UserUC
Dim CityInfo, UserBirthDay, IDCard, UserWorking, SchoolAge, UserHomePhone, UserMobile, UserTelePhone, ZipCode, UserAddRess
Dim ChargeType, BeginDate, ValidNum, UserPoint, ElitePoint, AdvPoint, UserMoney, DataCount, UserReMark, LockUser
keyword = Trim(request("keyword"))
Field = Trim(request("Field"))
UserSearch = Cl.GetClng(request("UserSearch"))
Action = Trim(request("Action"))
UserID = Trim(Request("UserID"))
ComeUrl = Request.ServerVariables("HTTP_REFERER")
FileName = "Admin_User.asp?UserSearch=" & UserSearch
CurrentPage = Cl.GetClng(request("page"))
if keyword<>"" then keyword=Cl.ReplaceBadChar(keyword)
Header
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>注 册 用 户 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="100"><strong>注意事项：</strong></td>
<td>
<li>①点删除按钮将删除所选定的用户，此操作是不可逆的；</li>
<li>②您可以批量移动用户到相应的组；</li>
<li>③点用户名进行相应的资料操作；</li>
<li>④点用户最后登陆IP可进行锁定IP操作；</li>
<li>⑤点用户Email将给该用户发送Email</li>
</td>
</tr>
<tr class="tdbg">
<td width="100" height="30"><strong>快速查找：</strong></td>
<td>
<a href="Admin_User.asp">用户管理首页</a> | <a href="Admin_User.asp?UserSearch=10">所有管理员</a> | <a href="Admin_User.asp?UserSearch=7">被锁住的用户</a> | <a href="Admin_User.asp?UserSearch=12">所有用户</a> | <a href="Admin_User.asp?Action=Add">添加新用户</a>[<a href="Admin_User.asp?Action=AddMore"><font color="blue">批量</font></a>]<br />
<a href="Admin_User.asp?UserSearch=6">待管理员认证</a> | <a href="Admin_User.asp?UserSearch=5">待邮件验证</a> | <a href="Admin_User.asp?UserSearch=4">24小时内注册</a> | <a href="Admin_User.asp?UserSearch=3">24小时内登录</a> | <a href="Admin_User.asp?UserSearch=2">文章最少的100个</a> | <a href="Admin_User.asp?UserSearch=1">文章最多的100个</a>
</td>
</tr>
</table>
<br />
<%
Select Case Action
Case "Add", "Modify", "AddMore"
call EditUserInfo()
Case "SaveModify", "SaveAdd", "SaveAddMore"
call SaveUserInfo()
Case "Del"
call DelUser()
Case "Lock"
call DoLockUser()
Case "UnLock"
call UnLockUser()
Case "Move"
call MoveUser()
Case "Update"
call UpdateUser()
Case "DoUpdate"
call DoUpdate()
Case "AddMoney"
call AddMoney()
Case "SaveAddMoney"
call SaveAddMoney()
Case Else
call main()
End Select
Footer
Sub Main()
if UserSearch=0 then
Call ShowSearch()
Else
UserID = Cl.GetClng(UserID)
dim strGuide ,sSQL, WhereStr
strGuide="<table width='100%' align='center' border='0' cellpadding='0' cellspacing='1'><tr><td align='left'>您的位置：<a href='Admin_User.asp'>注册用户管理</a> >> "
sSQL = " UserID," & Db.UserName & "," & Db.UserGroupID & "," & Db.ChargeType & "," & Db.UserPoint & "," & Db.UserMoney & "," & Db.ValidNum & "," & Db.BeginDate & "," & Db.UserLastIP & "," & Db.UserLastLogin & "," & Db.UserLogins & "," & Db.UserLock & " "
Select Case UserSearch
Case 1
sql="select top 100 "&sSQL&" from " & Db.UserTable & " order by " & Db.DataCount & " desc"
strGuide=strGuide & "发表文章最多的前100个用户"
Case 2
sql="select top 100 "&sSQL&" from " & Db.UserTable & " order by " & Db.DataCount & ""
strGuide=strGuide & "发表文章最少的100个用户"
Case 3
If IsSqlDataBase_U=1 Then
WhereStr = "Where datediff(hour," & Db.UserLastLogin & "," & SqlNowString_U & ")<25 "
else
WhereStr = "Where datediff('h'," & Db.UserLastLogin & "," & SqlNowString_U & ")<25 "
end if
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by " & Db.UserLastLogin & " desc"
strGuide=strGuide & "最近24小时内登录的用户"
Case 4
If IsSqlDataBase_U=1 Then
WhereStr="Where datediff(hour," & Db.UserJoinDate & "," & SqlNowString_U & ")<25"
else
WhereStr="Where datediff('h'," & Db.UserJoinDate & "," & SqlNowString_U & ")<25"
end if
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by " & Db.UserJoinDate & " desc"
strGuide=strGuide & "最近24小时内注册的用户"
Case 5
WhereStr="Where " & Db.UserGroupID & "=7"
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by UserID desc"
strGuide=strGuide & "待邮件验证的用户"
Case 6
WhereStr="Where " & Db.UserGroupID & "=6"
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by UserID desc"
strGuide=strGuide & "待管理员认证用户"
Case 7
WhereStr="Where " & Db.UserLock & "<>0"
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by UserID desc"
strGuide=strGuide & "所有被锁住的用户"
Case 8
WhereStr="Where " & Db.UserGroupID & "=3"
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by UserID desc"
strGuide=strGuide & "所有收费用户"
Case 9
WhereStr="Where " & Db.UserGroupID & "=2"
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by UserID desc"
strGuide=strGuide & "所有VIP用户"
Case 10
WhereStr="Where " & Db.UserGroupID & "=1"
sql="select "&sSQL&" from " & Db.UserTable & " "&WhereStr&" order by UserID desc"
strGuide=strGuide & "所有管理员"
Case 11
if UserID>0 then'ID
Sql = "Select "&sSQL&" From "&Db.UserTable&" Where UserID="&UserID&""
else''''ID
Dim strsql
strsql=""
if request("username")<>"" then
if request("usernamechk")="yes" then
strsql=strsql & " username='"&request("username")&"'"
else
strsql=strsql &" username like '%"&request("username")&"%'"
end if
end If
if request("userip")<>"" then
if strsql="" then
strsql=strsql & " "&Db.UserLastIP&"='"&Cl.CheckStr(request("userip"))&"'"
else
strsql=strsql & " and "&Db.UserLastIP&"='"&Cl.CheckStr(request("userip"))&"'"
end if
strFileName=strFileName&"&UserIP="&request("userip")&""
end if
if cint(request("UserGroupID"))>0 then
if strsql="" then
strsql=strsql & " "&Db.UserGroupID&"="&request("UserGroupID")&""
else
strsql=strsql & " and "&Db.UserGroupID&"="&request("UserGroupID")&""
end if
FileName=FileName&"&UserGroupID="&request("UserGroupID")&""
end if
if request("useremail")<>"" then
if strsql="" then
strsql=strsql & " "&Db.UserEmail&" like '%"&request("useremail")&"%'"
else
strsql=strsql & " and "&Db.UserEmail&" like '%"&request("useremail")&"%'"
end if
FileName=FileName&"&useremail="&request("useremail")&""
end if
'======特殊搜索=======
dim Tsqlstr
if request("loginT")<>"" then
if request("loginR")="more" then
Tsqlstr=" "&Db.UserLogins&" >= "&request("loginT")&""
else
Tsqlstr=" "&Db.UserLogins&" <= "&request("loginT")&""
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
FileName=FileName&"&loginR="&request("loginR")&"&loginT="&request("loginT")
end if
if request("vanishT")<>"" then
if request("vanishR")="more" then
If IsSqlDataBase_U=1 Then
Tsqlstr=" datediff(d,"&Db.UserLastLogin&","&SqlNowString_U&") >= "&request("vanishT")&""
Else
Tsqlstr=" datediff('d',"&Db.UserLastLogin&","&SqlNowString_U&") >= "&request("vanishT")&""
End If
else
If IsSqlDataBase_U=1 Then
Tsqlstr=" datediff(d,"&Db.UserLastLogin&","&SqlNowString_U&") <= "&request("vanishT")&""
Else
Tsqlstr=" datediff('d',"&Db.UserLastLogin&","&SqlNowString_U&") <= "&request("vanishT")&""
End If
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
FileName=FileName&"&vanishR="&request("vanishR")&"&vanishT="&request("vanishT")
end if
if request("regT")<>"" then
if request("regR")="more" then
If IsSqlDataBase_U=1 Then
Tsqlstr=" datediff(d,"&Db.UserJoinDate&","&SqlNowString_U&") >= "&request("regT")&""
Else
Tsqlstr=" datediff('d',"&Db.UserJoinDate&","&SqlNowString_U&") >= "&request("regT")&""
End If
else
If IsSqlDataBase_U=1 Then
Tsqlstr=" datediff(d,"&Db.UserJoinDate&","&SqlNowString_U&") <= "&request("regT")&""
Else
Tsqlstr=" datediff('d',"&Db.UserJoinDate&","&SqlNowString_U&") <= "&request("regT")&""
End If
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
FileName=FileName&"®R="&request("regR")&"®T="&request("regT")
end if
if request("artcleT")<>"" then
if request("artcleR")="more" then
Tsqlstr=" "&Db.DataCount&" >= "&request("artcleT")&""
else
Tsqlstr=" "&Db.DataCount&" <= "&request("artcleT")&""
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
FileName=FileName&"&artcleR="&request("artcleR")&"&artcleT="&request("artcleT")
end if
'======特殊搜索结束======
If strsql = "" Then Cl.OutMsg 0,"请指定搜索参数！","-1"
If Request("Searchmax") = "" Or Not Isnumeric(Request("Searchmax")) Then
Sql = "Select top 1 "&sSQL&" From "&Db.UserTable&" Where " & strsql & " order by UserID Desc"
Else
Sql = "Select top "&Request("Searchmax")&" "&sSQL&" From "&Db.UserTable&" Where " & strsql & " order by UserID desc"
End If
WhereStr ="Where " & strsql
FileName=FileName&"&Searchmax="&request("Searchmax")
end if '''ID
strGuide=strGuide & "查询结果："
Case 12
WhereStr=""
sql="Select "&sSQL&" From " & Db.UserTable & " Order by UserID Desc"
strGuide=strGuide & "所有用户"
Case Else
Cl.OutMsg 0,"错误的参数！","-1"
End Select
strGuide=strGuide & "</td><td align='right'>"
if FoundErr=True then Cl.OutMsg 0,ErrMsg,"-1"
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn_U : rs.Open sql,Conn_U,1,1
if rs.eof and rs.bof then
TotalPut=0
Response.Write strGuide & "共找到 <font color=#ff6600>0</font> 个用户</td></tr></table>"
rs.Close:set rs=Nothing
Else
If UserID>0 Then
TotalPut = 1
else
Dim rsTotalPut
Set rsTotalPut= Cl.Execute_U("Select count(*) from "&Db.UserTable&" " & WhereStr)
TotalPut = rsTotalPut(0)
rsTotalPut.Close : Set rsTotalPut=Nothing
End if
Response.Write strGuide & "共找到 <font color=#ff6600>" & TotalPut & "</font> 个用户</td></tr></table>"
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 2 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -