📄 admin_user.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.Bankroll.asp"-->
<!--#include file="../Include/PowerEasy.ConsumeLog.asp"-->
<!--#include file="../Include/PowerEasy.RechargeLog.asp"-->
<!--#include file="../Include/PowerEasy.SMS.asp"-->
<!--#include file="../Include/PowerEasy.MD5.asp"-->
<!--#include file="../Include/PowerEasy.MD5_New.asp"-->
<!--#include file="../API/API_Config.asp"-->
<!--#include file="../API/API_Function.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim xmlHttp
'检查管理员操作权限
If AdminPurview > 1 Then
arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "User_View")
arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "User_ModifyInfo")
arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "User_MofidyPurview")
arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "User_Lock")
arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "User_Del")
arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "User_Update")
arrPurview(6) = CheckPurview_Other(AdminPurview_Others, "User_Money")
arrPurview(7) = CheckPurview_Other(AdminPurview_Others, "User_Point")
arrPurview(8) = CheckPurview_Other(AdminPurview_Others, "User_Valid")
arrPurview(9) = CheckPurview_Other(AdminPurview_Others, "UserGroup")
arrPurview(10) = CheckPurview_Other(AdminPurview_Others, "Card")
arrPurview(11) = CheckPurview_Other(AdminPurview_Others, "ConsumeLog")
arrPurview(12) = CheckPurview_Other(AdminPurview_Others, "RechargeLog")
arrPurview(13) = CheckPurview_Other(AdminPurview_Others, "Message")
arrPurview(14) = CheckPurview_Other(AdminPurview_Others, "MailList")
arrPurview(15) = CheckPurview_Other(AdminPurview_Others, "AddPayment")
For PurviewIndex = 0 To 15
If arrPurview(PurviewIndex) = True Then
PurviewPassed = True
Exit For
End If
Next
If PurviewPassed = False Then
Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>对不起，你没有此项操作的权限。</font></p>"
Call WriteEntry(6, AdminName, "越权操作")
Response.End
End If
End If
Dim iGroupType
Response.Write "<html><head><title>会员管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
'call ShowJS_Check()
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <form name='searchmyform' action='Admin_User.asp' method='get'>"
Call ShowPageTitle("会 员 管 理", 10041)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='100' height='30'>快速查找会员：</td>" & vbCrLf
Response.Write " <td width='687' height='30'>"
Response.Write " <select size=1 name='SearchType' onChange=""javascript:submit()"">"
Response.Write " <option value='0' "
If SearchType = 0 Then Response.Write " selected"
Response.Write ">列出所有会员</option>"
Response.Write " <option value='1' "
If SearchType = 1 Then Response.Write " selected"
Response.Write ">文章最多TOP100</option>"
Response.Write " <option value='2' "
If SearchType = 2 Then Response.Write " selected"
Response.Write ">文章最少的100个会员</option>"
Response.Write " <option value='3' "
If SearchType = 3 Then Response.Write " selected"
Response.Write ">最近24小时内登录的会员</option>"
Response.Write " <option value='4' "
If SearchType = 4 Then Response.Write " selected"
Response.Write ">最近24小时内注册的会员</option>"
Response.Write " <option value='5' "
If SearchType = 5 Then Response.Write " selected"
Response.Write ">所有被锁住的会员</option>"
Response.Write " <option value='6' "
If SearchType = 6 Then Response.Write " selected"
Response.Write ">" & PointName & "数大于0的会员</option>"
Response.Write " <option value='7' "
If SearchType = 7 Then Response.Write " selected"
Response.Write ">积分大于0的会员</option>"
Response.Write " <option value='8' "
If SearchType = 8 Then Response.Write " selected"
Response.Write ">资金余额大于0的会员</option>"
Response.Write " <option value='9' "
If SearchType = 9 Then Response.Write " selected"
Response.Write ">资金余额小于0的会员</option>"
Response.Write " <option value='21' "
If SearchType = 21 Then Response.Write " selected"
Response.Write ">最近一个月没有登录过的会员</option>"
Response.Write " <option value='22' "
If SearchType = 22 Then Response.Write " selected"
Response.Write ">最近三个月没有登录过的会员</option>"
Response.Write " <option value='23' "
If SearchType = 23 Then Response.Write " selected"
Response.Write ">最近半年没有登录过的会员</option>"
Response.Write " </select>"
Response.Write " <a href='Admin_User.asp'>会员管理首页</a> | <a href='Admin_User.asp?Action=AddUser'>添加新会员</a> | <a href='Admin_User.asp?Action=Update'>更新会员数据</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "AddUser", "Modify"
Call ShowForm
Case "SaveAddUser", "SaveModify"
Call SaveUser
Case "ModifyPurview"
Call ModifyPurview
Case "SavePurview"
Call SavePurview
Case "Show"
Call Show
Case "Lock", "UnLock"
Call LockUser
Case "BatchMove"
Call BatchMove
Case "DoBatchMove"
Call DoBatchMove
Case "Update"
Call UpdateUser
Case "DoUpdate"
Call DoUpdate
Case "ExchangePoint", "AddPoint", "MinusPoint", "ExchangeValid", "AddValid", "MinusValid"
Call Exchange
Case "DoExchangePoint", "DoAddPoint", "DoMinusPoint", "DoExchangeValid", "DoAddValid", "DoMinusValid"
Call SaveExchange
Case "AddRemit"
Call AddIncome(1)
Case "SaveRemit"
Call SaveRemit
Case "AddPayment"
Call AddPayment
Case "SavePayment"
Call SavePayment
Case "AddIncome"
Call AddIncome(2)
Case "SaveIncome"
Call SaveIncome
Case "BatchAddMoney", "BatchMinusMoney", "BatchAddPoint", "BatchMinusPoint", "BatchAddValid", "BatchMinusValid", "BatchDel"
Call Batch
Case "DoBatchAddMoney", "DoBatchMinusMoney", "DoBatchAddPoint", "DoBatchMinusPoint", "DoBatchAddValid", "DoBatchMinusValid", "DoBatchDel"
Call DoBatch
Case "RegCompany"
Call RegCompany
Case "Join"
Call JoinCompany
Case "SaveRegCompany"
Call SaveRegCompany
Case "Up2Client"
Call Up2Client
Case "SaveClient"
Call SaveClient
Case "Agree", "Reject", "RemoveFromCompany", "AddToAdmin", "RemoveFromAdmin"
Call MemberManage
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim GroupID
Dim sql, Querysql, rsUserList
Dim OrderType, strOrderType
GroupID = PE_CLng(Trim(Request.QueryString("GroupID")))
OrderType = Trim(Request("OrderType"))
If OrderType <> "" Then
OrderType = ReplaceBadChar(OrderType)
End If
strFileName = "Admin_User.asp?SearchType=" & SearchType & "&Field=" & strField & "&keyword=" & Keyword & "&GroupID=" & GroupID
Call ShowJS_Main("会员")
Dim rsGroup, i
i = 1
Response.Write "<br><table width='100%' class='border' border='0' cellpadding='2' cellspacing='1'><tr class='title'><td>| <a href='Admin_User.asp'>所有会员</a> |"
Set rsGroup = Conn.Execute("select GroupID,GroupName,GroupIntro from PE_UserGroup order by GroupType asc,GroupID asc")
Do While Not rsGroup.EOF
Response.Write " <a href='Admin_User.asp?SearchType=11&GroupID=" & rsGroup(0) & "' title='" & rsGroup(2) & "'>" & rsGroup(1) & "</a> |"
rsGroup.MoveNext
i = i + 1
If i Mod 10 = 0 And Not rsGroup.EOF Then Response.Write "<br>|"
Loop
rsGroup.Close
Set rsGroup = Nothing
Response.Write "</td></tr></table>"
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_User.asp'>注册会员管理</a> >> "
Select Case OrderType
Case "Balance"
strOrderType = "U.Balance desc,"
Case "Point"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -