wm.user_group.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Group") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
    Dim WM_GroupName, WM_GroupUser, WM_GroupFlag, WM_OldGroupFlag,UserGroupFlag
	Dim Flag_1,Flag_2,Flag_3,Flag_4,Flag_5
	DIm Group1,Group2,GroupType,ID,i
	ID = WRMPS.CheckStr(Request("ID"), 1)
    Call DBConnBegin()
	Set Rs = Server.CreateObject("ADODB.RecordSet")
    Content = "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td>&nbsp;<a href=WM.User_Group.asp>管理首页</a> | <a href=?Action=Add>会员组添加</a> | <a href=?Action=Coalition>会员组合并</a></td></tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
	Select Case WRMPS.CheckStr(Request("Action"), 0)
	  Case "CoalitionSave"
	      Group1 = WRMPS.CheckStr(Request("Group1"), 1)
	      Group2 = WRMPS.CheckStr(Request("Group2"), 1)
		  If Group1 = "" OR Group2 = "" Then Call WRMPS.ErrView("·请选择被移动或待移动会员组", 0): Exit Sub
		  If Group1 = Group2 Then Call WRMPS.ErrView("·不能选择相同会员组", 0): Exit Sub
		  Set Rs = Conn.Execute("Select WM_GroupFlag From WM_UserGroup where WM_ID="&Group1&"")
          If Not Rs.EOF Then
		    WM_OldGroupFlag = Rs(0)
          End If
		  Rs.CLose
		  Set Rs = Conn.Execute("Select WM_GroupFlag From WM_UserGroup where WM_ID="&Group2&"")
          If Not Rs.EOF Then
		    WM_GroupFlag = Rs(0)
          End If
		  Rs.CLose
		  Rs.Open "Select WM_ID,WM_Flag from WM_Member Where WM_GroupID = " & Group1 & "", Conn, 1, 1
          Do While Not Rs.EOF
            If Rs(1) = WM_OldGroupFlag Then
              Conn.Execute ("Update WM_Member Set WM_GroupID = "&Group2&",WM_Flag = '" & WM_GroupFlag & "' Where WM_ID=" & Rs(0) & "")
            Else
              Conn.Execute ("Update WM_Member Set WM_GroupID = "&Group2&" Where WM_ID=" & Rs(0) & "")
			End If
          Rs.MoveNext
          Loop
          Rs.Close
		  Conn.Execute ("Delete From WM_UserGroup where WM_GroupType <> "" and WM_ID=" & Group1 & "")
	      Call WRMPS.SCache("FlagTime",Now())
		  Response.Redirect "?Action=Coalition"
	  
      Case "Coalition"
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td colspan=11><strong>会员组合并</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='from1' method='post' Action='?Action=CoalitionSave'>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>将会员组</strong> <select name=Group1 align=absmiddle>"
         Content = Content & "<option value=''>== 请选择 ==</option>"
         Set Rs = Conn.Execute("Select WM_GroupName,WM_ID from WM_UserGroup Where WM_GroupUser = 1 Order by WM_ID")
         Do While Not Rs.EOF
           Content = Content & "<option value=" & Rs(1) & ">" & Rs(0) & "</option>"
         Rs.MoveNext
         Loop
         Rs.Close
         Content = Content & "</select> "
         Content = Content & "<strong>合并到</strong> <select name=Group2 align=absmiddle>"
         Content = Content & "<option value=''>== 请选择 ==</option>"
         Set Rs = Conn.Execute("Select WM_GroupName,WM_ID from WM_UserGroup Where WM_GroupUser = 1 Order by WM_ID")
         Do While Not Rs.EOF
           Content = Content & "<option value=" & Rs(1) & ">" & Rs(0) & "</option>"
         Rs.MoveNext
         Loop
         Rs.Close
         Content = Content & "</select> "
		 Content = Content & "<input type=submit name=Submit value=' 提 交 ' ></td></tr></form>" & vbCrLf

         Content = Content & "<tr><td class=td3><strong>注意事项：</strong><br>"
         Content = Content & "① 所有操作不可逆，请慎重操作<br>"
         Content = Content & "② 会员组合并不能在同一个组内进行操作<br>"
         Content = Content & "</td></tr>" & vbCrLf
         Content = Content & "</form></table>" & vbCrLf
	  
      Case "Del"
         Set Rs = Conn.Execute("Select WM_GroupFlag From WM_UserGroup where WM_ID=2")
         If Not Rs.EOF Then
		   WM_GroupFlag = Rs(0)
         End If
		 Rs.CLose
         Conn.Execute ("update WM_Member Set WM_GroupID=2,WM_Flag='"&WM_GroupFlag&"' where WM_GroupID=" & ID & "")
         Conn.Execute ("delete From WM_UserGroup where WM_GroupType <> 0 and WM_ID=" & ID & "")
	     Call WRMPS.SCache("FlagTime",Now())
         Response.Write "<script>window.location.href='WM.User_Group.asp';</script>"
         
      Case "Save"
         For i = 0 To 13
           If WRMPS.CheckStr(Request.Form("a" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组基本权限", 0): Exit Sub
           If Flag_1 = "" Then Flag_1 = Request.Form("a" & (i)) Else Flag_1 = Flag_1 & "|" & Request.Form("a" & (i))
         Next
         For i = 0 To 30
           If WRMPS.CheckStr(Request.Form("b" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组商家店铺权限", 0): Exit Sub
           If Flag_2 = "" Then Flag_2 = Request.Form("b" & (i)) Else Flag_2 = Flag_2 & "|" & Request.Form("b" & (i))
         Next
         For i = 0 To 10
           If WRMPS.CheckStr(Request.Form("c" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组文章模块权限", 0): Exit Sub
           If Flag_3 = "" Then Flag_3 = Request.Form("c" & (i)) Else Flag_3 = Flag_3 & "|" & Request.Form("c" & (i))
         Next