admin_usergroup.asp

个人网站比较简短

        Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_View.length;i++){" & vbCrLf
        Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_View[i].disabled==false&&frm" & ChannelDir & ".document.myform.Purview_View[i].checked==true){" & vbCrLf
        Response.Write "             if (document.form1.arrClass_View_" & ChannelDir & ".value=='')" & vbCrLf
        Response.Write "                 document.form1.arrClass_View_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_View[i].value;" & vbCrLf
        Response.Write "             else" & vbCrLf
        Response.Write "                 document.form1.arrClass_View_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_View[i].value;" & vbCrLf
        Response.Write "         }" & vbCrLf
        Response.Write "     }" & vbCrLf
        Response.Write "     for(var i=0;i<frm" & ChannelDir & ".document.myform.Purview_Input.length;i++){" & vbCrLf
        Response.Write "         if (frm" & ChannelDir & ".document.myform.Purview_Input[i].disabled==false&&frm" & ChannelDir & ".document.myform.Purview_Input[i].checked==true){" & vbCrLf
        Response.Write "             if (document.form1.arrClass_Input_" & ChannelDir & ".value=='')" & vbCrLf
        Response.Write "                 document.form1.arrClass_Input_" & ChannelDir & ".value=frm" & ChannelDir & ".document.myform.Purview_Input[i].value;" & vbCrLf
        Response.Write "             else" & vbCrLf
        Response.Write "                 document.form1.arrClass_Input_" & ChannelDir & ".value+=','+frm" & ChannelDir & ".document.myform.Purview_Input[i].value;" & vbCrLf
        Response.Write "         }" & vbCrLf
        Response.Write "     }" & vbCrLf
        Response.Write "  }" & vbCrLf
        rsChannel.MoveNext
    Loop
    Set rsChannel = Nothing
    Response.Write "}" & vbCrLf
    Response.Write "function CheckSubmit(){" & vbCrLf
    Response.Write "  if(document.form1.GroupName.value==''){" & vbCrLf
    Response.Write "      alert('会员组名称不能为空！');" & vbCrLf
    Response.Write "   document.form1.GroupName.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    GetClassPurview();" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub
Sub Add()
    Call ShowJS_Check
    Response.Write "<form method='post' action='Admin_UserGroup.asp' name='form1' onSubmit='javascript:return CheckSubmit();'>" & vbCrLf
    Response.Write "  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
    Response.Write "    <tr class='title'>" & vbCrLf
    Response.Write "      <td height='22' colspan='3'><div align='center'>新 增 会 员 组</div></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>会员组名称：</td>" & vbCrLf
    Response.Write "      <td><input name='GroupName' type='text' id='GroupName' size='20' maxlength='20'><font color='#FF0000'>*</font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>会员组说明：</td>" & vbCrLf
    Response.Write "      <td><input name='GroupIntro' type='text' id='GroupIntro' size='50' maxlength='200'><font color='#FF0000'>*</font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>组 类 型：</td>" & vbCrLf
    Response.Write "      <td><select name='GroupType' id='GroupType'>" & vbCrLf
    Response.Write "                            <option value='3'>注册会员</option>" & vbCrLf
    Response.Write "                            <option value='4'>代 理 商</option>" & vbCrLf
    Response.Write "                        </select><font color='#FF0000'>*</font></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>发布权限：</td>" & vbCrLf
    Response.Write "      <td><input name='GroupSetting1' type='checkbox' value='1'>在发布信息需要审核的频道，此组会员发布信息不需要审核<br>" & vbCrLf
    Response.Write "<input name='GroupSetting2' type='checkbox' value='1'>可以修改和删除已审核的（自己的）信息<br>" & vbCrLf
    Response.Write "<input name='GroupSetting21' type='checkbox' value='1'>发表信息时可以设置标题前缀<br>" & vbCrLf
    Response.Write "<input name='GroupSetting22' type='checkbox' value='1'>发表信息时可以设置是否显示评论链接<br>" & vbCrLf
    Response.Write "<input name='GroupSetting23' type='checkbox' value='1'>发表信息时可以设置转向链接<br>" & vbCrLf
    Response.Write "<input name='GroupSetting24' type='checkbox' value='1'>发表信息时HTML编辑器为高级模式（默认为简洁模式）<br>" & vbCrLf
    Response.Write "每天最多发布<input name='GroupSetting3' type='text' value='10' size='6' maxlength='6' style='text-align: center;'>条信息（不想限制请设置为<b>0</b>）。<br>"
    Response.Write "发布信息时获取积分为栏目设置的<input name='GroupSetting4' type='text' value='1' size='5' maxlength='5' style='text-align: center;'>倍<br>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td width='15%' class='tdbg5' align='right'>评论权限：</td>" & vbCrLf
    Response.Write "         <td><input name='GroupSetting5' type='checkbox' value='1'>在禁止发表评论的栏目仍然可发表评论<br><input name='GroupSetting6' type='checkbox' value='1'>在评论需要审核的栏目里发表评论不需要审核</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>短消息权限：</td>" & vbCrLf
    Response.Write "      <td> 每次最多可同时向<input name='GroupSetting7' type='text' value='1' size='4' maxlength='4' style='text-align: center;'>人发送短消息（如果为0，则不允许发送短消息）</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>收藏夹权限：</td>" & vbCrLf
    Response.Write "      <td>会员收藏夹内最多可收录<input name='GroupSetting8' type='text' value='500' size='5' maxlength='5' style='text-align: center;'>条信息（如果为0，则没有收藏权限）</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>上传文件权限：</td>" & vbCrLf
    Response.Write "      <td><input name='GroupSetting9' type='checkbox' value='1' checked>允许在开放上传的频道上传文件<br>最大允许上传<input name='GroupSetting10' type='text' value='1024' size='5' style='text-align: center;'>K的文件（当所设置值大于某一频道的设置时，以频道设置为准。）</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>商城权限：</td>" & vbCrLf
    Response.Write "      <td>购物时可以享受的折扣率：<input name='GroupSetting11' type='text' value='100' size='5' maxlength='5' style='text-align: center;'> %<br>"
    Response.Write "        <input name='GroupSetting12' type='checkbox' value='1' checked>是否可以享受折上折优惠（对指定会员价的商品无效）<br>"
    Response.Write "        允许透支的最大额度：<input name='GroupSetting13' type='text' value='0' size='6' maxsize='6' style='text-align: center;'> 元人民币<br>"
    Response.Write "        <input name='GroupSetting30' type='checkbox' value='1'>是否可以批发商品<br>"
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>计费方式：</td>" & vbCrLf
    Response.Write "      <td><input name='GroupSetting14' type='radio' value='0' checked>只判断" & PointName & "：有" & PointName & "时，即使有效期已经到期，仍可以查看收费内容；" & PointName & "用完后，即使有效期没有到期，也不能查看收费内容。<br>" & vbCrLf
    Response.Write "          <input name='GroupSetting14' type='radio' value='1'>只判断有效期：只要在有效期内，" & PointName & "用完后仍可以查看收费内容；过期后，即使会员有" & PointName & "也不能查看收费内容。<br>" & vbCrLf
    Response.Write "          <input name='GroupSetting14' type='radio' value='2'>同时判断" & PointName & "和有效期：" & PointName & "用完或有效期到期后，就不可查看收费内容。<br>" & vbCrLf
    Response.Write "          <input name='GroupSetting14' type='radio' value='3'>同时判断" & PointName & "和有效期：" & PointName & "用完并且有效期到期后，才不能查看收费内容。" & vbCrLf
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td width='15%' class='tdbg5' align='right'>扣" & PointName & "方式：</td>" & vbCrLf
    Response.Write "      <td><input name='GroupSetting15' type='radio' value='0' checked>有效期内，查看收费内容不扣" & PointName & "数，也不做记录。<br>" & vbCrLf
    Response.Write "          <input name='GroupSetting15' type='radio' value='1'>有效期内，查看收费内容不扣" & PointName & "数，但做记录。<br>" & vbCrLf
    Response.Write "          <input name='GroupSetting15' type='radio' value='2'>有效期内，查看收费内容也扣" & PointName & "数。<br>" & vbCrLf
    Response.Write "有效期内，总共可以看<input name='GroupSetting16' type='text' value='0' size='10' maxlength='10' style='text-align: center;'> 条收费信息（如果为0，则不限制）<br>" & vbCrLf
    Response.Write "有效期内，每天最多可以看<input name='GroupSetting17' type='text' value='100' size='10' maxlength='10' style='text-align: center;'> 条收费信息（如果为0，则不限制）" & vbCrLf
    Response.Write "      </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td width='15%' class='tdbg5' align='right'>自助充值：</td>" & vbCrLf
    Response.Write "         <td><input name='GroupSetting18' type='checkbox' value='1' checked>允许自助兑换" & PointName & "<br><input name='GroupSetting19' type='checkbox' value='1' checked>允许自助兑换有效期<br><input name='GroupSetting20' type='checkbox' value='1' checked>允许将" & PointName & "赠送给他人</td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td width='15%' class='tdbg5' align='right'>聚合空间：</td>" & vbCrLf
    Response.Write "         <td><input name='GroupSetting25' type='checkbox'>启用聚合空间<br>" & vbCrLf
    Response.Write "         <input name='GroupSetting26' type='checkbox'>申请时无须管理员审核<br>" & vbCrLf
    Response.Write " 聚合空间容量为:<input name='GroupSetting27' type='text' value='10' size='4' maxlength='10' style='text-align: center;'>M<br>" & vbCrLf
    Response.Write "         <input name='GroupSetting28' type='checkbox'>用户可以自主更换皮肤" & vbCrLf
    Response.Write "    </td></tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "      <td colspan='3'>" & vbCrLf
    Response.Write "        <table width='100%' border='0' cellspacing='10' cellpadding='0'>" & vbCrLf
    Response.Write "          <tr>" & vbCrLf
    Response.Write "            <td colspan='2' align='center'>频 道 权 限 详 细 设 置</td>" & vbCrLf
    Response.Write "          </tr>" & vbCrLf
 
    Dim rsChannel
    Set rsChannel = Conn.Execute("SELECT ChannelID,ChannelName,ChannelShortName,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
        Response.Write "          <tr valign='top'>" & vbCrLf
        Response.Write "           <td><fieldset>" & vbCrLf
        Response.Write "   <legend>此会员组在【<font color='red'>" & rsChannel("ChannelName") & "</font>】频道的权限：</legend>" & vbCrLf
        Response.Write "    <table width='100%' cellspacing='1'>" & vbCrLf
        Response.Write "        <tr class='tdbg'>" & vbCrLf
        Response.Write "                <td width='50%'><input type='radio' name='" & rsChannel("ChannelDir") & "purview' checked onClick=table" & rsChannel("ChannelID") & ".style.display='none'>无任何权限(开放栏目除外)"
        Response.Write "&nbsp;&nbsp;<input type='radio' name='" & rsChannel("ChannelDir") & "purview' onClick=table" & rsChannel("ChannelID") & ".style.display='block'>设置会员组在该频道的权限</td>" & vbCrLf
        Response.Write "             <td></td>" & vbCrLf
        Response.Write "        <tr class='tdbg' id='table" & rsChannel("ChannelID") & "' style='display:none'>" & vbCrLf
        Response.Write "         <td width='50%'>" & vbCrLf
        Response.Write "         <iframe id='frm" & rsChannel("ChannelDir") & "' height='200' width='100%' src='Admin_SetClassPurview.asp?ManageType=Group&ChannelID=" & rsChannel("ChannelID") & "'></iframe>" & vbCrLf
        Response.Write "         <input name='arrClass_Browse_" & rsChannel("ChannelDir") & "' type='hidden' id='arrClass_Browse_" & rsChannel("ChannelDir") & "' value=''>" & vbCrLf
        Response.Write "         <input name='arrClass_View_" & rsChannel("ChannelDir") & "' type='hidden' id='arrClass_View_" & rsChannel("ChannelDir") & "' value=''>" & vbCrLf
        Response.Write "         <input name='arrClass_Input_" & rsChannel("ChannelDir") & "' type='hidden' id='arrClass_Input_" & rsChannel("ChannelDir") & "' value=''></td>" & vbCrLf
        Response.Write "         <td width='50%'><font color='#0000FF'>注：</font><br>1、栏目权限采用继承制度，即在某一栏目拥有某项权限，则在此栏目的所有子栏目中都拥有这项权限，并可在子栏目中指定更多的权限。<br>2、灰色并且选中的项目，说明该栏目为开放栏目，会员组在此栏目拥有浏览和查看权限。<br><br><font color='red'>权限含义：</font><br>浏览－－指可以浏览此栏目的信息列表<br>查看－－指可以查看此栏目中的信息的内容<br>发布－－指可以在此栏目中发布信息</td>" & vbCrLf
        Response.Write "        </tr>" & vbCrLf
        Response.Write "   </table>" & vbCrLf
        Response.Write "   </fieldset></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
        rsChannel.MoveNext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing
    Response.Write "            <tr>" & vbCrLf
    Response.Write "                <td align='center'>" & vbCrLf
    Response.Write "                    <input type='hidden' name='Action' value='SaveAdd'>" & vbCrLf
    Response.Write "                    <input type='submit' value='添加会员组'>" & vbCrLf
    Response.Write "                    <input type='button' name='cancel' value=' 取 消 ' onClick=""JavaScript:window.location.href='Admin_UserGroup.asp'"">" & vbCrLf
    Response.Write "                </td>" & vbCrLf
    Response.Write "            </tr>" & vbCrLf
    Response.Write "  </table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
 
End Sub

Sub Modify()
    GroupID = PE_CLng(Trim(Request.QueryString("GroupID")))
    If GroupID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定GroupID</li>"
        Exit Sub