📄 admin_usergroup.asp
字号:
<!--#include file="Admin_Common.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 = "UserGroup" '其他权限
Dim rsUserGroup, GroupSetting
GroupID = PE_CLng(Trim(Request("GroupID")))
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<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
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
Call ShowPageTitle("会 员 组 管 理", 10042)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'>管理导航：</td>" & vbCrLf
Response.Write " <td height='30'><a href='?'>会员组管理首页</a> | <a href='?Action=Add'>新增会员组</a> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Add"
Call Add
Case "Modify"
Call Modify
Case "SaveAdd", "SaveModify"
Call SaveGroup
Case "Del"
Call Del
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 strSql, i
strSql = "SELECT GroupID,GroupName,GroupIntro,GroupType,GroupSetting,arrClass_Browse,arrClass_View,arrClass_Input FROM PE_UserGroup ORDER by GroupType asc,GroupID asc"
Set rsUserGroup = Server.CreateObject("adodb.recordset")
rsUserGroup.Open strSql, Conn, 1, 1
If rsUserGroup.BOF And rsUserGroup.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>对不起，数据库中没有找到任何会员组资料，您的数据库已经损坏，请从默认数据库中导入PE_UserGroup表。</li>"
rsUserGroup.Close
Set rsUserGroup = Nothing
Exit Sub
End If
totalPut = rsUserGroup.recordcount
CurrentPage = Trim(Request("page"))
If CurrentPage = "" Then
CurrentPage = 1
Else
CurrentPage = PE_CLng(CurrentPage)
End If
MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))
If MaxPerPage <= 0 Then MaxPerPage = 20
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsUserGroup.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr align='center' height='22' class='title'>" & vbCrLf
Response.Write " <td width='35'>ID</td>" & vbCrLf
Response.Write " <td width='120'>会员组名</td>" & vbCrLf
Response.Write " <td>会员组简介</td>" & vbCrLf
Response.Write " <td width='120'>会员组类型</td>" & vbCrLf
Response.Write " <td width='60'>会员数量</td>" & vbCrLf
Response.Write " <td width='150'>操 作</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Dim UserGroupNum
UserGroupNum = 0
Do While Not rsUserGroup.EOF
Response.Write " <tr align='center' class='tdbg' onMouseOut=""this.className='tdbg'"" onMouseOver=""this.className='tdbg2'"">" & vbCrLf
Response.Write " <td width='35'>" & rsUserGroup("GroupID") & "</td>" & vbCrLf
Response.Write " <td width='120'>" & rsUserGroup("GroupName") & "</td>" & vbCrLf
Response.Write " <td align='left'>" & rsUserGroup("GroupIntro") & "</td>" & vbCrLf
Response.Write " <td width='120'>" & GetGroupType(rsUserGroup("GroupType")) & "</td>" & vbCrLf
Response.Write " <td width='60'>" & GetGroupNum(rsUserGroup("GroupID")) & "</td>" & vbCrLf
Response.Write " <td width='150'><a href='Admin_UserGroup.asp?Action=Modify&GroupID=" & rsUserGroup("GroupID") & "'>修改</a>"
If rsUserGroup("GroupType") > 2 Then
Response.Write " | <a href='?Action=Del&GroupID=" & rsUserGroup("GroupID") & "' onclick=""return confirm('确实要删除此会员组吗？');"">删除</a>" & vbCrLf
Else
Response.Write " | <font color='#CCCCCC'>删除</font>"
End If
Response.Write " | <a href='Admin_User.asp?SearchType=11&GroupID=" & rsUserGroup("GroupID") & "'>列出会员</a></td>"
Response.Write " </tr>" & vbCrLf
rsUserGroup.MoveNext
UserGroupNum = UserGroupNum + 1
If UserGroupNum >= MaxPerPage Then Exit Do
Loop
rsUserGroup.Close
Set rsUserGroup = Nothing
Response.Write "</table>" & vbCrLf
Response.Write ShowPage("Admin_UserGroup.asp", totalPut, MaxPerPage, CurrentPage, True, True, "个会员组", True)
End Sub
Function GetGroupType(GroupType)
Select Case GroupType
Case 0
GetGroupType = "等待邮件验证会员"
Case 1
GetGroupType = "等待管理员审核会员"
Case 2
GetGroupType = "默认会员组"
Case 3
GetGroupType = "注册会员"
Case 4
GetGroupType = "代 理 商"
Case Else
GetGroupType = "未知会员组"
End Select
End Function
Sub ShowJS_Check()
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "function GetClassPurview(){" & vbCrLf
Dim rsChannel, ChannelDir
Set rsChannel = Conn.Execute("SELECT ChannelDir FROM PE_Channel WHERE ChannelType<=1 And ModuleType<>4 And ModuleType<>5 And ModuleType<>7 And ModuleType<>8 And Disabled=" & PE_False & " ORDER BY OrderID")
Do While Not rsChannel.EOF
ChannelDir = rsChannel(0)
Response.Write "if(document.form1." & ChannelDir & "purview[1].checked==true){" & vbCrLf
Response.Write " document.form1.arrClass_Browse_" & ChannelDir & ".value='';" & vbCrLf
Response.Write " document.form1.arrClass_View_" & ChannelDir & ".value='';" & vbCrLf
Response.Write " document.form1.arrClass_Input_" & ChannelDir & ".value='';" & vbCrLf
Response.Write " for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Browse.length;i++){" & vbCrLf
Response.Write " if (frm" & ChannelDir & ".document.myform.Purview_Browse[i].disabled==false&&frm" & ChannelDir & ".document.myform.Purview_Browse[i].checked==true){" & vbCrLf
Response.Write " if (document.form1.arrClass_Browse_" & ChannelDir & ".value=='')" & vbCrLf
Response.Write " document.form1.arrClass_Browse_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Browse[i].value;" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " document.form1.arrClass_Browse_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Browse[i].value;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -