📄 admin_channel.asp
字号:
Response.Write " <table id='ChannelSetting' width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF' style='display:'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>频道使用的功能模块：</strong></td>"
Response.Write " <td><select name='ModuleType' id='ModuleType'>"
Response.Write " <option value='1' selected>文章</option>"
Response.Write " <option value='2'>下载</option>"
Response.Write " <option value='3'>图片</option>"
Response.Write " </select> <font color=red>请慎重选择，频道一旦添加后就不能修改此项。</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>频道目录：</strong>（频道英文名）<br>"
Response.Write " <font color='#FF0000'>只能是英文，不能带空格或“\”、“/”等符号。</font><br>"
Response.Write " <font color='#0000FF'>样例：</font>News、Article、Soft</td>"
Response.Write " <td><input name='ChannelDir' type='text' id='ChannelDir' size='20' maxlength='50'> <font color='#FF0000'>* 请慎重录入，频道一旦添加后就不能修改此项。</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong><font color=red>频道链接地址（子域名）：</font></strong><br>如果您要在前台将此频道做为主站的一个<font color='red'>独立子站点</font>来访问，请输入完整的网址（如：http://news.powereasy.net）；否则，请保持为空。</td>"
Response.Write " <td><input name='ChannelUrl' type='input' value='' size='30' maxlength='100'"
If SiteUrlType = 0 Then Response.Write " disabled"
Response.Write "> <font color='red'>* 不能带目录</font><br>如果要启用此功能，必须在“网站选项”中将“链接地址方式”改为“绝对路径”</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>项目名称：</strong><br>例如：频道名称为“网络学院”，其项目名称为“文章”或“教程”</td>"
Response.Write " <td><input name='ChannelShortName' type='text' id='ChannelShortName' size='20' maxlength='30'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>项目单位：</strong><br>例如：“篇”、“条”、“个”</td>"
Response.Write " <td><input name='ChannelItemUnit' type='text' id='ChannelItemUnit' size='10' maxlength='30'></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>打开方式：</strong></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='OpenType' value='0'>在原窗口打开 "
Response.Write " <input name='OpenType' type='radio' value='1' checked>在新窗口打开" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>禁用本频道：</strong></td>" & vbCrLf
Response.Write " <td><input type='radio' name='Disabled' value='True'>是 <input name='Disabled' type='radio' value='False' checked>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:none'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' 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='ChannelPurview' value='0' checked>开放频道</td><td>任何人（包括游客）可以浏览此频道下的信息。可以在栏目设置中再指定具体的栏目权限。</td></tr>"
Response.Write " <tr><td width='80' valign='top'><input type='radio' name='ChannelPurview' value='1'>认证频道</td><td>游客不能浏览，并在下面指定允许浏览的会员组。如果频道设置为认证频道，则此频道的“生成HTML”选项只能设为“不生成HTML”。</td></tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>允许浏览此频道的会员组：</strong><br>如果频道权限设置为“认证频道”，请在此设置允许浏览此频道的会员组</td>"
Response.Write " <td>" & GetUserGroup("", "") & "</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>本频道的审核级别：</strong><br>设定为需要审核时，如果某组会员有“发表信息不需审核”的特权，则此会员组不受此限。</td>"
Response.Write " <td>"
Response.Write " <input name='CheckLevel' type='radio' value='0'>不需审核 <font color='blue'>在本频道发表信息不需要管理员审核</font><br>"
Response.Write " <input name='CheckLevel' type='radio' value='1' checked>一级审核 <font color='blue'>需要栏目审核员进行审核（注：此级别为最小级别，下同）</font><br>"
Response.Write " <input name='CheckLevel' type='radio' value='2'>二级审核 <font color='blue'>初审需要栏目审核员审核，终审需要栏目总编进行审核</font><br>"
Response.Write " <input name='CheckLevel' type='radio' value='3'>三级审核 <font color='blue'>初审需要栏目审核员审核，二审需要栏目总编审核，终审需要频道管理员审核</font>"
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>退稿时站内短信/Email通知内容：</strong><br>不支持HTML代码</td>" & vbCrLf
Response.Write " <td><textarea name='EmailOfReject' cols='60' rows='4'>非常抱歉的告诉您，您的{$ChannelShortName}《{$Title}》因为以下几个原因未被录用：" & vbCrLf & "1、" & vbCrLf & "2、" & vbCrLf & "3、" & vbCrLf & vbCrLf & "期待着您的再次投稿！</textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>稿件被采用时站内短信/Email通知内容：</strong><br>不支持HTML代码</td>" & vbCrLf
Response.Write " <td><textarea name='EmailOfPassed' cols='60' rows='4'>恭喜您！您的{$ChannelShortName}《{$Title}》已经被录用！" & vbCrLf & "非常感谢您的投稿！</textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>频道META关键词：</strong><br>针对搜索引擎设置的关键词<br>多个关键词请用,号分隔</td>" & vbCrLf
Response.Write " <td><textarea name='Meta_Keywords' cols='60' rows='4' id='Meta_Keywords'></textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>频道META网页描述：</strong><br>针对搜索引擎设置的网页描述<br>多个描述请用,号分隔</td>" & vbCrLf
Response.Write " <td><textarea name='Meta_Description' cols='60' rows='4' id='Meta_Description'></textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>添加/修改信息时的界面设置：</strong></td>"
Response.Write " <td>"
Response.Write " <input name='arrEnabledTabs' type='checkbox' value='Charge' checked>显示“收费选项”书签<br>"
Response.Write " <input name='arrEnabledTabs' type='checkbox' value='Vote' checked>显示“调查设置”书签<br>"
Response.Write " <input name='arrEnabledTabs' type='checkbox' value='SoftParameter' checked>显示“软件参数”书签（仅对下载模块有效）<br>"
Response.Write "<input name='arrEnabledTabs' type='checkbox' value='Recieve' checked>显示“签收设置”书签（仅对文章模块有效）<br>"
Response.Write "<input name='arrEnabledTabs' type='checkbox' value='Copyfee' checked>显示“稿费设置”书签（仅对文章模块有效）<br>"
Response.Write " </td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>默认稿费标准：</strong>(单位：元/千字)</td>"
Response.Write " <td><input name='MoneyPerKw' type='text'id='MoneyPerKw' size='10' maxlength='10'> <font color=red>元/千字</font></Td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:none'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>是否在频道栏显示频道名称：</strong></td>"
Response.Write " <td><input name='ShowName' type='radio' value='True' checked>是 <input name='ShowName' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>是否在导航栏显示频道名称：</strong></td>"
Response.Write " <td><input name='ShowNameOnPath' type='radio' value='True' checked>是 <input name='ShowNameOnPath' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>是否在本频道显示树状导航菜单：</strong></td>"
Response.Write " <td><input name='ShowClassTreeGuide' type='radio' value='True' checked>是 <input name='ShowClassTreeGuide' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>前台是否显示标题后的省略号：</strong><br>当模板中指定标题长度小于标题实际长度时，可以决定是否在标题后面显示省略号</td>"
Response.Write " <td><input name='ShowSuspensionPoints' type='radio' value='True' checked>是 <input name='ShowSuspensionPoints' type='radio' value='False'>否</td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>本频道热点的点击数最小值：</strong></td>"
Response.Write " <td><input name='HitsOfHot' type='text' id='HitsOfHot' value='500' size='10' maxlength='10'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>多少天内更新的信息为新信息：</strong></td>"
Response.Write " <td><input name='DaysOfNew' type='text' id='DaysOfNew' value='7' size='10' maxlength='10'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>顶部导航栏每行显示的栏目数：</strong></td>"
Response.Write " <td><input name='MaxPerLine' type='text' id='MaxPerLine' value='10' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>信息列表中作者名称的长度：</strong></td>"
Response.Write " <td><input name='AuthorInfoLen' type='text' id='AuthorInfoLen' value='8' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>频道首页专题列表的数量：</strong></td>"
Response.Write " <td><input name='JS_SpecialNum' type='text' id='JS_SpecialNum' value='10' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>频道首页的每页信息数：</strong></td>"
Response.Write " <td><input name='MaxPerPage_Index' type='text' id='MaxPerPage_Index' value='20' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>搜索结果页的每页信息数：</strong></td>"
Response.Write " <td><input name='MaxPerPage_SearchResult' type='text' id='MaxPerPage_SearchResult' value='20' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>最新信息页的每页信息数：</strong></td>"
Response.Write " <td><input name='MaxPerPage_New' type='text' id='MaxPerPage_New' value='20' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>热门信息页的每页信息数：</strong></td>"
Response.Write " <td><input name='MaxPerPage_Hot' type='text' id='MaxPerPage_Hot' value='20' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>推荐信息页的每页信息数：</strong></td>"
Response.Write " <td><input name='MaxPerPage_Elite' type='text' id='MaxPerPage_Elite' value='20' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>专题列表页的每页信息数：</strong></td>"
Response.Write " <td><input name='MaxPerPage_SpecialList' type='text' id='MaxPerPage_SpecialList' value='20' size='10' maxlength='3'> <font color='#FF0000'>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>本频道的默认风格：</strong></td>"
Response.Write " <td><select name='DefaultSkinID' id='DefaultSkinID'>" & Admin_GetSkin_Option(0) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>顶部栏目菜单的显示方式：</strong><br>更改此参数后需要刷新栏目JS方生效。</td>"
Response.Write " <td><select name='TopMenuType' id='TopMenuType'>" & GetMenuType_Option(1) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>底部栏目导航的显示方式：</strong><br>更改此参数后需要刷新栏目JS方生效。</td>"
Response.Write " <td><select name='ClassGuideType' id='ClassGuideType'>" & GetGuideType_Option(1) & "</select></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:none'>"
Response.Write " <tr class='tdbg'>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -