📄 admin_class.asp
字号:
Response.Write "<font color='blue'>半开放</font>"
Case 2
Response.Write "<font color='red'>认证</font>"
End Select
Response.Write "</td><td align='left' width='100'>"
If rsClass("OpenType") = 0 Then
Response.Write " 原 "
Else
Response.Write " 新 "
End If
If rsClass("ClassType") = 1 Then
If rsClass("ParentID") = 0 And rsClass("ShowOnIndex") = True Then
Response.Write "首 "
Else
Response.Write " "
End If
If rsClass("ParentID") > 0 And rsClass("IsElite") = True Then
Response.Write "列 "
Else
Response.Write " "
End If
If rsClass("Child") > 0 Then
If rsClass("EnableAdd") = True Then
Response.Write "开 "
Else
Response.Write "锁 "
End If
Else
Response.Write " "
End If
If rsClass("EnableProtect") = True Then
Response.Write "保"
Else
Response.Write " "
End If
End If
Response.Write "</td><td align='left' width='380'> "
If ModuleType = 6 And iDepth > 3 Then
Response.Write " | "
Else
If rsClass("ClassType") = 1 Then
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Add&ParentID=" & rsClass("ClassID") & "'>添加子栏目</a> | "
Else
Response.Write " | "
End If
End If
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Modify&ClassID=" & rsClass("ClassID") & "'>修改设置</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Move&ClassID=" & rsClass("ClassID") & "'>移动栏目</a> | "
If rsClass("ParentID") = 0 And rsClass("ClassType") = 1 Then
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=ResetChildClass&ClassID=" & rsClass("ClassID") & "' onclick=""return confirm('“复位子栏目”将把此栏目的所有子栏目都复位成二级子栏目！请慎重操作！确定要复位子栏目吗？')"">复位子栏目</a> | "
Else
Response.Write "<font color='gray'>复位子栏目</font> | "
End If
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Clear&ClassID=" & rsClass("ClassID") & "' onClick='return ConfirmDel3();'>清空</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Del&ClassID=" & rsClass("ClassID") & "' onClick='return ConfirmDel2();'>删除</a>"
Response.Write "</td></tr>" & vbCrLf
rsClass.MoveNext
Loop
End If
rsClass.Close
Set rsClass = Nothing
Response.Write "</table>" & vbCrLf
Response.Write ""
Response.Write "<table width='100%'><tr><form name='form1' action='Admin_Class.asp' method='post'><td align='center'>"
Response.Write "<input name='Action' type='hidden' id='Action' value='CreateJS'><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'><input name='submit' type='submit' value='刷新栏目JS' style='cursor:hand;'"
If ObjInstalled_FSO = False Then
Response.Write " disabled"
End If
Response.Write "></td></form></tr></table>"
Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
Response.Write "function ConfirmDel1(){" & vbCrLf
Response.Write " alert('此栏目下还有子栏目，必须先删除下属子栏目后才能删除此栏目！');" & vbCrLf
Response.Write " return false;}" & vbCrLf
Response.Write "function ConfirmDel2(){" & vbCrLf
Response.Write " if(confirm('删除栏目操作将删除此栏目中的所有子栏目和" & ChannelShortName & "，并且不能恢复！确定要删除此栏目吗？'))" & vbCrLf
Response.Write " return true;" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " return false;}" & vbCrLf
Response.Write "function ConfirmDel3(){" & vbCrLf
Response.Write " if(confirm('清空栏目将把栏目（包括子栏目）的所有" & ChannelShortName & "放入回收站中！确定要清空此栏目吗？'))" & vbCrLf
Response.Write " return true;" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " return false;}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<br><table width='100%'><tr><td colspan='5'><b>栏目属性中各项的含义：</b></td></tr>"
Response.Write "<tr><td>原----在原窗口打开</td><td>新----在新窗口打开</td><td>首----在首页分类列表处显示，只对一级栏目有效</td></tr>"
Response.Write "<tr><td>列----在父栏目分类列表处显示</td><td>锁----有子栏目时不允许添加" & ChannelShortName & "</td><td>开----有子栏目时可以添加" & ChannelShortName & "</td></tr>"
Response.Write "<tr><td>保----启用防复制/下载功能</td></tr></table>"
End Sub
Sub AddClass()
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Class.asp?ChannelID=" & ChannelID & "'>栏目管理</a> >> 添加栏目</td></tr></table>"
Response.Write "<form name='form1' method='post' action='Admin_Class.asp' onsubmit='return check()'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write " <tr align='center'>" & vbCrLf
Response.Write " <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本信息</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>权限设置</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(2)'"
If ModuleType = 5 Then Response.Write " style='display:none'"
Response.Write ">收费设置</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(3)'>栏目选项</td>" & vbCrLf
If IsCustom_Content = True And ModuleType <> 6 Then
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(4)'>自设内容</td>" & vbCrLf
End If
Response.Write " <td> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'><tr class='tdbg'><td height='100' valign='top'>" & vbCrLf
Response.Write "<table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:'>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>所属栏目：</strong>"
If ModuleType = 6 Then
Response.Write "<br> <font color=red>在供求频道下,子栏目的层数不可以超过4层</font>"
End If
Response.Write " </td>"
Response.Write " <td><select name='ParentID'><option value='0'>无（做为一级栏目）</option>" & GetClass_Option(ChannelID, ParentID) & "</select> <font color=blue>不能指定为外部栏目</font></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='ClassName' type='text' size='20' maxlength='50'> <font color=red>*</font></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>栏目类型：</strong><br><font color=red>请慎重选择，栏目一旦添加后就不能再更改栏目类型。</font></td>" & vbCrLf
Response.Write " <td>"
If ModuleType = 5 Then
Response.Write " <input name='ClassType' type='radio' value='1' checked onclick=""HideTabTitle('',0)"">"
Else
Response.Write " <input name='ClassType' type='radio' value='1' checked onclick=""HideTabTitle('',1)"">"
End If
Response.Write " <font color=blue><b>内部栏目</b></font> 内部栏目具有详细的参数设置。可以添加子栏目和文章。<br>"
Response.Write " 内部栏目的目录名：<input name='ClassDir' type='text' size='20' maxlength='20'> <font color='#FF0000'>注意，目录名只能是英文</font><br><br>"
Response.Write " <input name='ClassType' type='radio' value='2' onclick=""HideTabTitle('none')"">"
Response.Write " <font color=blue><b>外部栏目</b></font> 外部栏目指链接到本系统以外的地址中。当此栏目准备链接到网站中的其他系统时，请使用这种方式。不能在外部栏目中添加文章，也不能添加子栏目。<br>"
Response.Write " 外部栏目的链接地址：<input name='LinkUrl' type='text' id='LinkUrl' value='" & SiteUrl & "' size='40' maxlength='200'>"
Response.Write " </td>" & vbCrLf
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='ClassPicUrl' type='text' id='ClassPicUrl' size='60' maxlength='255'></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>栏目提示：</strong><br>鼠标移至栏目名称上时将显示设定的提示文字（不支持HTML）</td>"
Response.Write " <td><textarea name='Tips' cols='60' rows='2' id='Tips'></textarea></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='300' class='tdbg5'><strong>栏目说明：</strong><br>用于在栏目页详细介绍栏目信息，支持HTML</td>"
Response.Write " <td><textarea name='Readme' cols='60' rows='3' id='Readme'></textarea></td>"
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' 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='40%' 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 " </tbody>" & vbCrLf
'刘永涛 屏蔽了供求信息中不需要的选项
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>请在此设置允许在此栏目发表信息的会员组。<br>游客没有发表信息权限。</td>"
Response.Write " <td>" & GetUserGroup("Input", 0, 5) & "</td>"
Response.Write " </tr>" & vbCrLf
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
Else
Response.Write " <tbody id='Tabs' style='display:none'>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -