📄 admin_class.asp
字号:
If ModuleType <> 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>浏览/查看权限：</strong><br><font color='red'>栏目权限为继承关系。例如：当父栏目设为“认证栏目”时，子栏目的权限设置将继承父栏目设置，即使子栏目设为“开放栏目”也无效。相反，如果父栏目设为“开放栏目”，子栏目可以设为“半开放栏目”或“认证栏目”。</font></td>"
Response.Write " <td>"
Response.Write " <table>"
Response.Write " <tr><td width='80' valign='top'><input type='radio' name='ClassPurview' value='0' checked>开放栏目</td><td>任何人（包括游客）可以浏览和查看此栏目下的信息。</td></tr>"
Response.Write " <tr><td width='80' valign='top'><input type='radio' name='ClassPurview' value='1'>半开放栏目</td><td>任何人（包括游客）都可以浏览。游客不可查看，其他会员根据会员组的栏目权限设置决定是否可以查看。</td></tr>"
Response.Write " <tr><td width='80' valign='top'><input type='radio' name='ClassPurview' value='2'>认证栏目</td><td>游客不能浏览和查看，其他会员根据会员组的栏目权限设置决定是否可以浏览和查看。</td></tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>允许浏览此栏目的会员组：</strong><br>如果栏目是“半开放栏目”或“认证栏目”，请在此设置允许浏览此栏目的会员组</td>"
Response.Write " <td>" & GetUserGroup("Browse", 0, 5) & "</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>允许查看此栏目下信息的会员组：</strong><br>如果栏目是“认证栏目”，请在此设置允许查看此栏目下信息的会员组<br>如果在信息中设置了查看权限，则以信息中的权限设置优先</td>"
Response.Write " <td>" & GetUserGroup("View", 0, 5) & "</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>发表权限：</strong><br>请在此设置允许在此栏目发表信息的会员组。<br>游客没有发表信息权限。</td>"
Response.Write " <td>" & GetUserGroup("Input", 0, 5) & "</td>"
Response.Write " </tr>" & vbCrLf
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>评论权限：</strong></td>"
Response.Write " <td>"
Response.Write " <input name='EnableComment' type='checkbox' value='True' checked>允许在此栏目发表评论<br>"
Response.Write " <input name='CheckComment' type='checkbox' value='True' checked>评论需要审核"
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
End If
'2005-12-23
'刘永涛 屏蔽掉一些不必要的信息
If ModuleType = 6 Then
Response.Write " <tbody id='Tabs' style='display:none'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>发布信息扣除的点数：</strong><br>会员在此栏目下发布信息时，该扣除其会员点数</td>"
Response.Write " <td><input name='ReleaseClassPoint' type='text' value='0' size='4' maxlength='4' style='text-align:center'> 点数</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>设置栏目推荐每天扣除的点数：</strong></td>"
Response.Write " <td><input name='CommandClassPoint' type='text' value='0' size='4' maxlength='4' style='text-align:center'> 点/天</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Else
Response.Write " <tbody id='Tabs' style='display:none'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>积分奖励：</strong><br>会员在此栏目发表信息时可以得到的积分</td>"
Response.Write " <td>会员在此栏目每发表一条信息，可以得到 <input name='PresentExp' type='text' value='1' size='4' maxlength='4' style='text-align:center'> 分积分</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>默认收费" & PointName & "数：</strong><br>会员在此栏目下添加" & ChannelShortName & "时，该" & ChannelShortName & "默认的收费" & PointName & "数</td>"
Response.Write " <td><input name='DefaultItemPoint' type='text' value='0' size='4' maxlength='4' style='text-align:center'> " & PointUnit & "</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>默认重复收费：</strong><br>会员在此栏目下添加" & ChannelShortName & "时，该" & ChannelShortName & "默认的重复收费方式</td>"
Response.Write " <td>"
Response.Write " <input name='DefaultItemChargeType' type='radio' value='0' checked>不重复收费<br>"
Response.Write " <input name='DefaultItemChargeType' type='radio' value='1'>距离上次收费时间 <input name='DefaultItemPitchTime' type='text' value='24' size='8' maxlength='8' style='text-align:center'> 小时后重新收费<br>"
Response.Write " <input name='DefaultItemChargeType' type='radio' value='2'>会员重复查看此文章 <input name='DefaultItemReadTimes' type='text' value='10' size='8' maxlength='8' style='text-align:center'> 次后重新收费<br>"
Response.Write " <input name='DefaultItemChargeType' type='radio' value='3'>上述两者都满足时重新收费<br>"
Response.Write " <input name='DefaultItemChargeType' type='radio' value='4'>上述两者任一个满足时就重新收费<br>"
Response.Write " <input name='DefaultItemChargeType' type='radio' value='5'>每阅读一次就重复收费一次（建议不要使用）"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>默认分成比例：</strong><br>会员在此栏目下添加" & ChannelShortName & "时，该" & ChannelShortName & "默认的分成比例</td>"
Response.Write " <td><input name='DefaultItemDividePercent' type='text' value='0' size='4' maxlength='4' style='text-align:center'> %</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
End If
'2005-12-23
Response.Write " <tbody id='Tabs' style='display:none'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>打开方式：</strong></td>"
Response.Write " <td><input name='OpenType' type='radio' value='0' checked>在原窗口打开 <input name='OpenType' type='radio' value='1'>在新窗口打开</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>是否在顶部导航栏显示：</strong><br>此选项只对一级栏目有效。</td>"
Response.Write " <td><input name='ShowOnTop' type='radio' value='True' checked>是 <input name='ShowOnTop' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>是否在频道首页分类列表处显示：</strong><br>此选项只对一级栏目有效。如果一级栏目比较多，但首页不想显示太多的分类列表，这个选项就非常有用。</td>"
Response.Write " <td><input name='ShowOnIndex' type='radio' value='True' checked>是 <input name='ShowOnIndex' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>是否在父栏目的分类列表处显示：</strong><br>如果某栏目下有几十个子栏目，但只想显示其中几个子栏目的" & ChannelShortName & "列表，这个选项就非常有用。</td>"
Response.Write " <td><input name='IsElite' type='radio' value='True' checked>是 <input name='IsElite' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>有子栏目时是否可以在此栏目添加" & ChannelShortName & "：</strong></td>"
Response.Write " <td><input name='EnableAdd' type='radio' value='True'>是 <input name='EnableAdd' type='radio' value='False' checked>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>是否启用此栏目的防止复制、防盗链功能：</strong></td>"
Response.Write " <td><input name='EnableProtect' type='radio' value='True' checked>是 <input name='EnableProtect' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>栏目配色风格：</strong><br>相关模板中包含CSS、颜色、图片等信息</td>"
Response.Write " <td><select name='SkinID' id='SkinID'>" & GetSkin_Option(0) & "</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'> "
Response.Write " <td width='300' class='tdbg5'><strong>栏目模板：</strong><br>相关模板中包含了栏目设计的版式等信息，如果是自行添加的设计模板，可能会导致“栏目配色风格”失效。 </td>"
Response.Write " <td><select name='TemplateID' id='TemplateID'>" & GetTemplate_Option(ChannelID, 2, 0) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>每页显示的" & ChannelShortName & "数：</strong><br>当此栏目为最下一级栏目时，则会分页显示此栏目中的" & ChannelShortName & "，这里指定的是每页显示的" & ChannelShortName & "数。</td>"
Response.Write " <td><select name='MaxPerPage'>" & GetNumber_Option(5, 100, 20) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>此栏目下的" & ChannelShortName & "的默认配色风格：</strong><br>相关模板中包含CSS、颜色、图片等信息</td>"
Response.Write " <td><select name='DefaultItemSkin' id='DefaultItemSkin'>" & GetSkin_Option(0) & "</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>此栏目下的" & ChannelShortName & "的默认模板：</strong></td>"
Response.Write " <td><select name='DefaultItemTemplate' id='DefaultItemTemplate'>" & GetTemplate_Option(ChannelID, 3, 1) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><b>此栏目下的" & ChannelShortName & "列表的排序方式：</b></td>"
Response.Write " <td><select name='ItemListOrderType'>" & GetOrderType_Option(1) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><b>此栏目下的" & ChannelShortName & "打开方式：</b></td>"
Response.Write " <td><select name='ItemOpenType'>" & GetOpenType_Option(1) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
If IsCustom_Content = True And ModuleType <> 6 Then
Call EditCustom_Content("Add", "", "Class")
End If
Response.Write "</table>" & vbCrLf
Response.Write "</td></tr></table>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='40' colspan='2' align='center'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveAdd'>"
Response.Write " <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
Response.Write " <input name='Add' type='submit' value=' 添 加 ' style='cursor:hand;'> <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Class.asp?ChannelID=" & ChannelID & "'"" style='cursor:hand;'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</form>"
Call WriteJS
End Sub
Sub WriteJS()
Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
Response.Write "function check(){" & vbCrLf
Response.Write " if (document.form1.ClassName.value==''){" & vbCrLf
Response.Write " ShowTabs(0);" & vbCrLf
Response.Write " alert('栏目名称不能为空！');" & vbCrLf
Response.Write " document.form1.ClassName.focus();" & vbCrLf
Response.Write " return false;}" & vbCrLf
Response.Write " if(document.form1.ClassType[0].checked==true){" & vbCrLf
Response.Write " if(document.form1.ClassDir.value==''){" & vbCrLf
Response.Write " ShowTabs(0);" & vbCrLf
Response.Write " alert('栏目目录不能为空！');" & vbCrLf
Response.Write " document.form1.ClassDir.focus();" & vbCrLf
Response.Write " return false;}" & vbCrLf
Response.Write " }else{" & vbCrLf
Response.Write " if(document.form1.LinkUrl.value==''){" & vbCrLf
Response.Write " ShowTabs(0);" & vbCrLf
Response.Write " alert('栏目链接地址不能为空！');" & vbCrLf
Response.Write " document.form1.LinkUrl.focus();" & vbCrLf
Response.Write " return false;}" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "var tID=0;" & vbCrLf
Response.Write "function ShowTabs(ID){" & vbCrLf
Response.Write " if(ID!=tID){" & vbCrLf
Response.Write " TabTitle[tID].className='title5';" & vbCrLf
Response.Write " TabTitle[ID].className='title6';" & vbCrLf
Response.Write " Tabs[tID].style.display='none';" & vbCrLf
Response.Write " Tabs[ID].style.display='';" & vbCrLf
Response.Write " tID=ID;" & vbCrLf
Response.Write " }" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -