📄 admin_class.asp
字号:
是
<input name="ShowOnParent" type="radio" class="nomargin" value="<%=EL_False%>">
否</td>
</tr>
<tr>
<td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" id="SetItems" value="4"></td>
<td class="td_ItemName"><STRONG>栏目默认风格</STRONG></td>
<td class="td_25"><select name="SkinID" id="SkinID">
<option value="0">使用系统默认</option>
<%=EL_Common.SkinList(-1)%>
</select></td>
</tr>
<tr>
<td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" id="SetItems" value="5"></td>
<td class="td_ItemName"><STRONG>栏目默认模板</STRONG></td>
<td class="td_25"><select name="TemplateID" id="TemplateID">
<option value="0">使用系统默认</option>
<%=EL_Common.TemplateList(EL_Channel.ChannelID, 2, -1)%>
</select></td>
</tr>
<tr>
<td colspan="3" class="td_50"><input type="submit" name="Submit3" value="保存设置">
<input type="button" name="Submit4" value="返回上页" onClick="history.back()">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveBatch"></td>
</tr>
</table></td>
</tr>
</table>
</form>
<%
End Sub
Sub MoveClass()
Dim ClassID
ClassID = EL_Common.ELRequest("ClassID", 2)
%>
<script language="javascript">
function Check(frm){
if(frm.ParentID.selectedIndex==-1){
alert("请选择目标<%=EL_Channel.ClassItemName%>");
frm.ParentID.focus();
return false;
}
SubmitOnce(frm);
return true;
}
</script>
<form name="myform" action="Admin_Class.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="3" class="top_25"><strong>移动<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td align="center" class="td_25"><strong>当前<%=EL_Channel.ClassItemName%></strong></td>
<td align="center" class="td_ItemName"> </td>
<td align="center" class="td_25"><strong>目标<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td width="45%" align="center" class="td_25">
<select size="20" style="width:300px; height:310px;" disabled>
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, ClassID, "")%>
</select></td>
<td width="10%" align="center" class="td_ItemName"><strong>移动 >> </strong></td>
<td width="45%" align="center" class="td_25">
<select name="ParentID" size="20" id="ParentID" style="width:300px; height:310px;">
<option value="0">做为一级<%=EL_Channel.ClassItemName%></option>
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")%>
</select></td>
</tr>
<tr>
<td colspan="3" class="td_25" style="text-indent:8px; "><span class="redText">注：目标<%=EL_Channel.ClassItemName%>不能为当前<%=EL_Channel.ClassItemName%>或当前<%=EL_Channel.ClassItemName%>的子<%=EL_Channel.ClassItemName%>以及当前<%=EL_Channel.ClassItemName%>的父<%=EL_Channel.ClassItemName%>。</span></td>
</tr>
<tr>
<td colspan="3" align="center" class="td_25"><input name="ClassID" type="hidden" id="ClassID" value="<%=ClassID%>">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveMove">
<input name="Submit" type="submit" class="FlatButton" value="保存移动">
<input name="Submit" type="button" class="FlatButton" value="返回上页" onClick="history.back()"></td>
</tr>
</table>
</form>
<%
End Sub
Sub ModifyClass()
On Error Resume Next
Dim ModifyClassCmd, rsModifyClass
Dim ClassID, FieldString
ClassID = EL_Common.ELRequest("ClassID", 2)
FieldString = "ClassName,ShowName,OpenType,ParentID,ShowOnIndex,ShowOnParent,SkinID,TemplateID"
Call EL_Common.InitCommonCmd(ModifyClassCmd, rsModifyClass, "EL_Class", FieldString, "ChannelID="& EL_Channel.ChannelID &" AND ClassID="& ClassID)
rsModifyClass.Close()
If ModifyClassCmd(0) = 0 Then
EL_Common.ShowErrorMsg("指定"& EL_Channel.ClassItemName &"不存在")
Set rsModifyClass = Nothing
Set ModifyClassCmd = Nothing
Exit Sub
End If
rsModifyClass.Open()
%>
<script language="javascript">
function Check(frm){
if(frm.ClassName.value.trim()==""){
alert("请输入<%=EL_Channel.ClassItemName%>名称");
frm.ClassName.focus();
return false;
}else if(frm.ClassName.value.length>50){
alert("<%=EL_Channel.ClassItemName%>名称长度不能大于50");
frm.ClassName.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_Class.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>修改<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td width="27%" class="td_ItemName"><strong>所属<%=EL_Channel.ClassItemName%></strong></td>
<td width="73%" class="td_25">
<select name="ParentID" id="ParentID">
<option value="0">作为一级<%=EL_Channel.ClassItemName%></option>
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, rsModifyClass("ParentID"), "")%>
</select> </td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>名称</strong></td>
<td class="td_25"><input name="ClassName" type="text" id="ClassName" value="<%=rsModifyClass("ClassName")%>" size="30" maxlength="30"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否显示<%=EL_Channel.ClassItemName%>名称</strong></td>
<td class="td_25"><input name="ShowName" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModifyClass("ShowName"))%>>
是
<input name="ShowName" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsModifyClass("ShowName"))%>>
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong>打开方式</strong></td>
<td class="td_25"><input name="OpenType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked("0", rsModifyClass("OpenType"))%>>
原窗口
<input name="OpenType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked("1", rsModifyClass("OpenType"))%>>
新窗口</td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否在频道首页显示</strong><br>
指首页的<%=EL_Channel.ClassItemName%>列表处，如果<%=EL_Channel.ClassItemName%>过多时，此项非常有效</td>
<td class="td_25"><input name="ShowOnIndex" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModifyClass("ShowOnIndex"))%>>
是
<input name="ShowOnIndex" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsModifyClass("ShowOnIndex"))%>>
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否在父<%=EL_Channel.ClassItemName%>列表处显示</strong></td>
<td class="td_25"><input name="ShowOnParent" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsModifyClass("ShowOnParent"))%>>
是
<input name="ShowOnParent" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsModifyClass("ShowOnParent"))%>>
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>默认风格</strong></td>
<td class="td_25"><select name="SkinID" id="SkinID">
<option value="0">使用系统默认</option>
<%=EL_Common.SkinList(rsModifyClass("SkinID"))%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>默认模板</strong></td>
<td class="td_25"><select name="TemplateID" id="TemplateID">
<option value="0">使用系统默认</option>
<%=EL_Common.TemplateList(EL_Channel.ChannelID, 2, rsModifyClass("TemplateID"))%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_50"><input type="submit" name="Submit" value="保存<%=EL_Channel.ClassItemName%>">
<input type="button" name="Submit2" value="返回上页" onClick="history.back()">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="ClassID" type="hidden" id="ClassID" value="<%=ClassID%>"></td>
</tr>
</table>
</form>
<%
rsModifyClass.Close()
Set rsModifyClass = Nothing
Set ModifyClassCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageClass()
On Error Resume Next
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="6%" align="center" class="top_25"><strong>ID</strong></td>
<td width="42%" align="center" class="top_25"><strong><%=EL_Channel.ClassItemName%>名称</strong></td>
<td width="52%" align="center" class="top_25"><strong><%=EL_Channel.ClassItemName%>操作</strong></td>
</tr>
<%=ShowClassTreeInTable(EL_Channel.ChannelID, 0, "")%>
</table>
<%
EL_Common.ShowScriptError()
End Sub
Sub AddClass()
On Error Resume Next
Dim ParentID
ParentID = EL_Common.ELRequest("ParentID", 2)
%>
<script language="javascript">
function Check(frm){
if(frm.ClassName.value.trim()==""){
alert("请输入<%=EL_Channel.ClassItemName%>名称");
frm.ClassName.focus();
return false;
}else if(frm.ClassName.value.length>50){
alert("<%=EL_Channel.ClassItemName%>名称长度不能大于50");
frm.ClassName.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_Class.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>添加<%=EL_Channel.ClassItemName%></strong></td>
</tr>
<tr>
<td width="27%" class="td_ItemName"><strong>所属<%=EL_Channel.ClassItemName%></strong></td>
<td width="73%" class="td_25">
<select name="ParentID" id="ParentID">
<option value="0">作为一级<%=EL_Channel.ClassItemName%></option>
<%=EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, ParentID, "")%>
</select> </td>
</tr>
<tr>
<td class="td_ItemName"><strong><%=EL_Channel.ClassItemName%>名称</strong></td>
<td class="td_25"><input name="ClassName" type="text" id="ClassName" size="30" maxlength="30"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否显示<%=EL_Channel.ClassItemName%>名称</strong></td>
<td class="td_25"><input name="ShowName" type="radio" class="nomargin" value="<%=EL_True%>" checked>
是
<input name="ShowName" type="radio" class="nomargin" value="<%=EL_False%>">
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong>打开方式</strong></td>
<td class="td_25"><input name="OpenType" type="radio" class="nomargin" value="0" checked>
原窗口
<input name="OpenType" type="radio" class="nomargin" value="1">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -