wm.user_group.asp

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

		Content = Content & "<tr class=td2><td><strong>留言直接通过</strong></td><td><input type=radio name='b15' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(15)),1,1)&"> 开启　<input type=radio name='b15' value=0"&WRMPS.GetCheckVer(Int(Flag_2(15)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺资料补充</strong><br>前提为此店铺未被认领</td><td><input type=radio name='b16' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(16)),1,1)&"> 开启　<input type=radio name='b16' value=0"&WRMPS.GetCheckVer(Int(Flag_2(16)),0,1)&"> 关闭</td><td><input name='b17' type='text' style='width:80' maxlength='10' value='"&Flag_2(17)&"'></td><td><input name='b18' type='text' style='width:80' maxlength='10' value='"&Flag_2(18)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>上传优惠券</strong></td><td><input type=radio name='b19' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(19)),1,1)&"> 开启　<input type=radio name='b19' value=0"&WRMPS.GetCheckVer(Int(Flag_2(19)),0,1)&"> 关闭</td><td><input name='b20' type='text' style='width:80' maxlength='10' value='"&Flag_2(20)&"'></td><td><input name='b21' type='text' style='width:80' maxlength='10' value='"&Flag_2(21)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>优惠券直接通过</strong></td><td><input type=radio name='b22' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(22)),1,1)&"> 开启　<input type=radio name='b22' value=0"&WRMPS.GetCheckVer(Int(Flag_2(22)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>发布店铺优惠信息</strong></td><td><input type=radio name='b23' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(23)),1,1)&"> 开启　<input type=radio name='b23' value=0"&WRMPS.GetCheckVer(Int(Flag_2(23)),0,1)&"> 关闭</td><td><input name='b24' type='text' style='width:80' maxlength='10' value='"&Flag_2(24)&"'></td><td><input name='b25' type='text' style='width:80' maxlength='10' value='"&Flag_2(25)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>优惠信息直接通过</strong></td><td><input type=radio name='b26' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(26)),1,1)&"> 开启　<input type=radio name='b26' value=0"&WRMPS.GetCheckVer(Int(Flag_2(26)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>上传店铺图片</strong></td><td><input type=radio name='b27' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(27)),1,1)&"> 开启　<input type=radio name='b27' value=0"&WRMPS.GetCheckVer(Int(Flag_2(27)),0,1)&"> 关闭</td><td><input name='b28' type='text' style='width:80' maxlength='10' value='"&Flag_2(28)&"'></td><td><input name='b29' type='text' style='width:80' maxlength='10' value='"&Flag_2(29)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>店铺图片直接通过</strong></td><td><input type=radio name='b30' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(30)),1,1)&"> 开启　<input type=radio name='b30' value=0"&WRMPS.GetCheckVer(Int(Flag_2(30)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
	    Content = Content & "</table>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf

        Content = Content & "<tr ID=show3 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='c0' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(0)),1,1)&"> 开启　<input type=radio name='c0' value=0"&WRMPS.GetCheckVer(Int(Flag_3(0)),0,1)&"> 关闭</td><td><input name='c1' type='text' style='width:80' maxlength='10' value='"&Flag_3(1)&"'></td><td><input name='c2' type='text' style='width:80' maxlength='10' value='"&Flag_3(2)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>文章直接通过</strong></td><td><input type=radio name='c3' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(3)),1,1)&"> 开启　<input type=radio name='c3' value=0"&WRMPS.GetCheckVer(Int(Flag_3(3)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>文章阅读收费</strong><br>开启则阅读需要收费的文章时自动扣费<br>关闭则可免费阅读所有文章</td><td><input type=radio name='c4' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(4)),1,1)&"> 开启　<input type=radio name='c4' value=0"&WRMPS.GetCheckVer(Int(Flag_3(4)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>文章推荐</strong></td><td></td><td><input name='c5' type='text' style='width:80' maxlength='10' value='"&Flag_3(5)&"'></td><td><input name='c6' type='text' style='width:80' maxlength='10' value='"&Flag_3(6)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>文章评论</strong></td><td><input type=radio name='c7' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(7)),1,1)&"> 开启　<input type=radio name='c7' value=0"&WRMPS.GetCheckVer(Int(Flag_3(7)),0,1)&"> 关闭</td><td><input name='c8' type='text' style='width:80' maxlength='10' value='"&Flag_3(8)&"'></td><td><input name='c9' type='text' style='width:80' maxlength='10' value='"&Flag_3(9)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>评论直接通过</strong></td><td><input type=radio name='c10' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(10)),1,1)&"> 开启　<input type=radio name='c10' value=0"&WRMPS.GetCheckVer(Int(Flag_3(10)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "</table>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf

        Content = Content & "<tr ID=show4 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='d0' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(0)),1,1)&"> 开启　<input type=radio name='d0' value=0"&WRMPS.GetCheckVer(Int(Flag_4(0)),0,1)&"> 关闭</td><td><input name='d1' type='text' style='width:80' maxlength='10' value='"&Flag_4(1)&"'></td><td><input name='d2' type='text' style='width:80' maxlength='10' value='"&Flag_4(2)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>可免费发布条数</strong><br>设0则无限制<br>超出信息审核通过后将按条扣费</td><td><input name='d3' type='text' style='width:80' maxlength='10' value='"&Flag_4(3)&"'></td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>超出信息收费</strong></td><td></td><td><input name='d4' type='text' style='width:80' maxlength='10' value='"&Flag_4(4)&"'></td><td><input name='d5' type='text' style='width:80' maxlength='10' value='"&Flag_4(5)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>信息直接通过</strong></td><td><input type=radio name='d6' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(6)),1,1)&"> 开启　<input type=radio name='d6' value=0"&WRMPS.GetCheckVer(Int(Flag_4(6)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>信息推荐</strong></td><td></td><td><input name='d7' type='text' style='width:80' maxlength='10' value='"&Flag_4(7)&"'></td><td><input name='d8' type='text' style='width:80' maxlength='10' value='"&Flag_4(8)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>信息阅读收费</strong><br>开启则阅读需要收费的文章时自动扣费<br>关闭则可免费阅读所有文章</td><td><input type=radio name='d9' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(9)),1,1)&"> 开启　<input type=radio name='d9' value=0"&WRMPS.GetCheckVer(Int(Flag_4(9)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>信息评论</strong></td><td><input type=radio name='d10' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(10)),1,1)&"> 开启　<input type=radio name='d10' value=0"&WRMPS.GetCheckVer(Int(Flag_4(10)),0,1)&"> 关闭</td><td><input name='d11' type='text' style='width:80' maxlength='10' value='"&Flag_4(11)&"'></td><td><input name='d12' type='text' style='width:80' maxlength='10' value='"&Flag_4(12)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>评论直接通过</strong></td><td><input type=radio name='d13' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(13)),1,1)&"> 开启　<input type=radio name='d13' value=0"&WRMPS.GetCheckVer(Int(Flag_4(13)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>用户推荐</strong></td><td></td><td><input name='d14' type='text' style='width:80' maxlength='10' value='"&Flag_4(14)&"'></td><td><input name='d15' type='text' style='width:80' maxlength='10' value='"&Flag_4(15)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>用户投诉</strong></td><td></td><td><input name='d16' type='text' style='width:80' maxlength='10' value='"&Flag_4(16)&"'></td><td><input name='d17' type='text' style='width:80' maxlength='10' value='"&Flag_4(17)&"'></td></tr>" & vbCrLf
        Content = Content & "</table>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf

        Content = Content & "<tr ID=show5 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><br>关闭后将禁止对外发消息</td><td><input type=radio name='e0' value='1'"&WRMPS.GetCheckVer(Int(Flag_5(0)),1,1)&"> 开启　<input type=radio name='e0' value=0"&WRMPS.GetCheckVer(Int(Flag_5(0)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>成功发送一条短消息</strong></td><td></td><td><input name='e1' type='text' style='width:80' maxlength='10' value='"&Flag_5(1)&"'></td><td><input name='e2' type='text' style='width:80' maxlength='10' value='"&Flag_5(2)&"'></td></tr>" & vbCrLf
        Content = Content & "<tr class=td2><td><strong>短消息上限</strong><br>收件箱消息条数，0为无限制</td><td><input name='e3' type='text' style='width:80' maxlength='5' value='"&Flag_5(3)&"'></td><td></td><td></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>留言权限</strong></td><td><input type=radio name='e4' value='1'"&WRMPS.GetCheckVer(Int(Flag_5(4)),1,1)&"> 开启　<input type=radio name='e4' value=0"&WRMPS.GetCheckVer(Int(Flag_5(4)),0,1)&"> 关闭</td><td><input name='e5' type='text' style='width:80' maxlength='10' value='"&Flag_5(5)&"'></td><td><input name='e6' type='text' style='width:80' maxlength='10' value='"&Flag_5(6)&"'></td></tr>" & vbCrLf
		Content = Content & "<tr class=td2><td><strong>留言直接通过</strong></td><td><input type=radio name='e7' value='1'"&WRMPS.GetCheckVer(Int(Flag_5(7)),1,1)&"> 开启　<input type=radio name='e7' value=0"&WRMPS.GetCheckVer(Int(Flag_5(7)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
        Content = Content & "</table>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf

        Content = Content & "<tr class=td4><td height=30 align=center><input type=submit name='Submit' value='提 交' ></td></tr>" & vbCrLf
        Content = Content & "<tr><td class=td2><b>&nbsp;注：</b><br>&nbsp;① 部分功能对未登录用户无效<br>&nbsp;② 扣除请在前面加“-”，如扣除1积分请填写“-1”<br>&nbsp;③ 所有的积分和"&WR_Other(0)&"操作都是在整个过程完成后，如发信息增加积分，是要后台审核通过后才会增加的</td></tr>" & vbCrLf
        Content = Content & "</form></Table><script>document.addform.WM_GroupName.focus()</script>" & vbCrLf

      Case Else
         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>" & vbCrLf
         Content = Content & "<td width='*'>会员组名称</td>" & vbCrLf
         Content = Content & "<td width='18%'>性质</td>" & vbCrLf
         Content = Content & "<td width='18%'>会员群</td>" & vbCrLf
         Content = Content & "<td width='25%'>操作</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Rs.Open "Select * from WM_UserGroup Order by WM_GroupUser,WM_ID", Conn, 1, 1
         Do While Not Rs.EOF
           Content = Content & "<tr class=td2 align=center><td align=left>" & Rs("WM_GroupName") & "</td>" & vbCrLf
           Content = Content & "<td>"
             If Rs("WM_GroupType") = 0 Then Content = Content & "<Font Class=Font2>默认组</Font>" Else Content = Content & "自订义组"
           Content = Content & "</td>" & vbCrLf
           Content = Content & "<td>"
           If Rs("WM_GroupUser") = 0 Then
             Content = Content & "未登录用户"
           ElseIf Rs("WM_GroupUser") = 1 Then
             Content = Content & "<Font Class=Font3>已登录会员</Font>"
           End If

           Content = Content & "</td>" & vbCrLf
           Content = Content & "<td>"
           Content = Content & "<a href=?Action=Add&ID=" & Rs("WM_ID") & ">修改</a>"
           If Rs("WM_GroupType") = 1 Then Content = Content & " | <a href=# style='cursor:pointer' onClick=""if (confirm('删除会员组将会同时将该组所有会员设置为注册用户\n\n你确定要删除吗？')){window.open('?Action=Del&ID=" & Rs("WM_ID") & "','_self')}"" >删除</a>" Else Content = Content & "　　　&nbsp;"
           Content = Content & "</td>" & vbCrLf
           Content = Content & "</tr>" & vbCrLf
         Rs.MoveNext
         Loop
         Rs.Close
         Content = Content & "</Table>" & vbCrLf
    End Select
    Set Rs = Nothing
	Call DBConnEnd()
    Call ClassEnd()
    Response.write Content
    Call GetBottom()
End Sub

%>