wm.user_group.asp

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

         For i = 0 To 17
           If WRMPS.CheckStr(Request.Form("d" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组分类信息权限", 0): Exit Sub
           If Flag_4 = "" Then Flag_4 = Request.Form("d" & (i)) Else Flag_4 = Flag_4 & "|" & Request.Form("d" & (i))
         Next
         For i = 0 To 7
           If WRMPS.CheckStr(Request.Form("e" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组留言短信权限", 0): Exit Sub
           If Flag_5 = "" Then Flag_5 = Request.Form("e" & (i)) Else Flag_5 = Flag_5 & "|" & Request.Form("e" & (i))
         Next
		 WM_GroupFlag = Flag_1&"§"&Flag_2&"§"&Flag_3&"§"&Flag_4&"§"&Flag_5

         WM_GroupName = WRMPS.CheckStr(Request("GroupName"), 0)
         If WM_GroupName = "" Then Call WRMPS.ErrView("·请输入会员组名称", 0): Exit Sub

         If ID <> "" Then 
           Rs.Open "Select WM_GroupFlag from WM_UserGroup Where WM_ID = " & ID & "", Conn, 1, 1
           If Not Rs.EOF Then
             WM_OldGroupFlag = Rs(0)
           End If
           Rs.Close
           Conn.Execute ("Update WM_UserGroup Set WM_GroupName='" & WM_GroupName & "',WM_GroupFlag='" & WM_GroupFlag & "' Where WM_ID = " & ID & "")
		   Rs.Open "Select WM_ID,WM_Flag from WM_Member Where WM_GroupID = " & ID & "", Conn, 1, 1
           Do While Not Rs.EOF
		     UserGroupFlag = Rs(1)
             If UserGroupFlag = WM_OldGroupFlag Then Conn.Execute ("Update WM_Member Set WM_Flag = '" & WM_GroupFlag & "' Where WM_ID=" & Rs(0) & "")
           Rs.MoveNext
           Loop
           Rs.Close
		 Else
		   Rs.Open "Select WM_GroupName,WM_GroupUser,WM_GroupType,WM_GroupFlag from WM_UserGroup", Conn, 1, 3
           Rs.AddNew
             Rs(0) = WM_GroupName
             Rs(1) = 1
             Rs(2) = 1
             Rs(3) = WM_GroupFlag
           Rs.Update
           Rs.Close
		 End If
		 Call WRMPS.SCache("FlagTime",Now())
         Response.Redirect "WM.User_Group.asp"

      Case "Add"
		If ID <> "" Then 
          Rs.Open "Select WM_GroupName,WM_GroupFlag from WM_UserGroup Where WM_ID = " & ID & "", Conn, 1, 1
          If Not Rs.EOF Then
		    WM_GroupName = Rs(0)
			WM_GroupFlag = Rs(1)
		  End If
		  Rs.Close
		End If
		If WM_GroupFlag = "" Then WM_GroupFlag = "100|10|3|10|1|0|1|10|1|20|2|1|50|200§1|10|1|0|50|5|20|2|1|5|0|0|1|2|0|0|1|5|0|1|10|1|0|1|10|1|1|1|20|2|0§1|10|1|0|1|20|2|1|2|0|0§1|10|1|5|-50|-5|1|20|2|0|1|2|0|0|10|1|-50|-5§1|-10|-1|50|1|5|0|0"
		WM_GroupFlag = Split(WM_GroupFlag,"§")
		Flag_1 = Split(WM_GroupFlag(0),"|")
		Flag_2 = Split(WM_GroupFlag(1),"|")
		Flag_3 = Split(WM_GroupFlag(2),"|")
		Flag_4 = Split(WM_GroupFlag(3),"|")
		Flag_5 = Split(WM_GroupFlag(4),"|")
        Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
        Content = Content & "<form name='addform' method='post' action='?Action=Save'>" & vbCrLf
        Content = Content & "<input name=ID type=hidden value=" & ID & ">" & vbCrLf
		Content = Content & "<tr><td class=td2 height=5></td></tr>" & vbCrLf
        Content = Content & "<tr><td class=td2>" & vbCrLf
        Content = Content & "<TABLE border=0 cellspacing=0 cellpadding=0><TR>" & vbCrLf
        Content = Content & "<TD width=5 height=22></TD><TD width=72 background='Img/Label.gif' id=tit1 onClick=""dis(tit1,show1,5,'Label')"" Class=Label1>基本设置</TD>" & vbCrLf
        Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit2 onClick=""dis(tit2,show2,5,'Label')"" Class=Label>商家店铺</TD>" & vbCrLf
        Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit3 onClick=""dis(tit3,show3,5,'Label')"" Class=Label>文章模块</TD>" & vbCrLf
        Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit4 onClick=""dis(tit4,show4,5,'Label')"" Class=Label>分类信息</TD>" & vbCrLf
        Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit5 onClick=""dis(tit5,show5,5,'Label')"" Class=Label>留言短信</TD>" & vbCrLf
        Content = Content & "<TD width=*></TD></TR></TABLE>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf

        Content = Content & "<tr ID=show1><td>" & vbCrLf
        Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
        Content = Content & "<tr class=td4><td colspan=4><strong>基本设置</strong></td></tr>" & vbCrLf
        Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>会员组名称</strong></td><td><input name='GroupName' value='"&WM_GroupName&"' type='text' style='width:180' maxlength='25'> <font Class=Font2>*</font></td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>会员注册</strong><br>适用注册用户级别会员</td><td></td><td><input name='a0' type='text' style='width:80' maxlength='10' value='"&Flag_1(0)&"'></td><td><input name='a1' type='text' style='width:80' maxlength='10' value='"&Flag_1(1)&"'></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>登录成功</strong></td><td><input name='a2' value='"&Flag_1(2)&"' type='text' style='width:80' maxlength='3'>天操作一次</td><td><input name='a3' type='text' style='width:80' maxlength='10' value='"&Flag_1(3)&"'></td><td><input name='a4' type='text' style='width:80' maxlength='10' value='"&Flag_1(4)&"'></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>欠费用户</strong><br>"&WR_Other(0)&"或金钱为负时，后台管理中心操作权限，<font Class=Font2>财富信息</Font>功能除外</td><td><input type=radio name='a5' value='1'"&WRMPS.GetCheckVer(Int(Flag_1(5)),1,1)&"> 开启　<input type=radio name='a5' value=0"&WRMPS.GetCheckVer(Int(Flag_1(5)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>搜索功能</strong></td><td><input type=radio name='a6' value='1'"&WRMPS.GetCheckVer(Int(Flag_1(6)),1,1)&"> 开启　<input type=radio name='a6' value=0"&WRMPS.GetCheckVer(Int(Flag_1(6)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>邮箱认证</strong></td><td></td><td><input name='a7' type='text' style='width:80' maxlength='10' value='"&Flag_1(7)&"'></td><td><input name='a8' type='text' style='width:80' maxlength='10' value='"&Flag_1(8)&"'></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>实名认证</strong></td><td></td><td><input name='a9' type='text' style='width:80' maxlength='10' value='"&Flag_1(9)&"'></td><td><input name='a10' type='text' style='width:80' maxlength='10' value='"&Flag_1(10)&"'></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>收藏夹功能</strong></td><td><input type=radio name='a11' value='1'"&WRMPS.GetCheckVer(Int(Flag_1(11)),1,1)&"> 开启　<input type=radio name='a11' value=0"&WRMPS.GetCheckVer(Int(Flag_1(11)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>收藏夹上限</strong><br>收藏夹收藏总条数，0为无限制</td><td><input name='a12' type='text' style='width:80' maxlength='5' value='"&Flag_1(12)&"'></td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>点评/评论/短消息最大字符</strong></td><td><input name='a13' type='text' style='width:80' maxlength='5' value='"&Flag_1(13)&"'></td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "</table>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf

        Content = Content & "<tr ID=show2 Style='display:none'><td>" & vbCrLf
        Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
        Content = Content & "<tr class=td4><td colspan=4><strong>商家店铺</strong></td></tr>" & vbCrLf
        Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺功能/登记店铺</strong></td><td><input type=radio name='b0' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(0)),1,1)&"> 开启　<input type=radio name='b0' value=0"&WRMPS.GetCheckVer(Int(Flag_2(0)),0,1)&"> 关闭</td><td><input name='b1' type='text' style='width:80' maxlength='10' value='"&Flag_2(1)&"'></td><td><input name='b2' type='text' style='width:80' maxlength='10' value='"&Flag_2(2)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺登记直接通过</strong></td><td><input type=radio name='b3' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(3)),1,1)&"> 开启　<input type=radio name='b3' value=0"&WRMPS.GetCheckVer(Int(Flag_2(3)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺认领</strong></td><td></td><td><input name='b4' type='text' style='width:80' maxlength='10' value='"&Flag_2(4)&"'></td><td><input name='b5' type='text' style='width:80' maxlength='10' value='"&Flag_2(5)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺推荐</strong></td><td></td><td><input name='b6' type='text' style='width:80' maxlength='10' value='"&Flag_2(6)&"'></td><td><input name='b7' type='text' style='width:80' maxlength='10' value='"&Flag_2(7)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺点评</strong></td><td><input type=radio name='b8' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(8)),1,1)&"> 开启　<input type=radio name='b8' value=0"&WRMPS.GetCheckVer(Int(Flag_2(8)),0,1)&"> 关闭</td><td><input name='b9' type='text' style='width:80' maxlength='10' value='"&Flag_2(9)&"'></td><td><input name='b10' type='text' style='width:80' maxlength='10' value='"&Flag_2(10)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>点评直接通过</strong></td><td><input type=radio name='b11' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(11)),1,1)&"> 开启　<input type=radio name='b11' value=0"&WRMPS.GetCheckVer(Int(Flag_2(11)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺留言</strong></td><td><input type=radio name='b12' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(12)),1,1)&"> 开启　<input type=radio name='b12' value=0"&WRMPS.GetCheckVer(Int(Flag_2(12)),0,1)&"> 关闭</td><td><input name='b13' type='text' style='width:80' maxlength='10' value='"&Flag_2(13)&"'></td><td><input name='b14' type='text' style='width:80' maxlength='10' value='"&Flag_2(14)&"'></td></tr>" & vbCrLf