📄 admin_class.asp
字号:
新窗口</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%>" checked>
是
<input name="ShowOnIndex" type="radio" class="nomargin" value="<%=EL_False%>">
否</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%>" checked>
是
<input name="ShowOnParent" type="radio" class="nomargin" value="<%=EL_False%>">
否</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(EL_Channel.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, -1)%>
</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="SaveNew"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Function ShowClassTreeInTable(ByVal ChannelID, ByVal ParentID, ParentString)
Dim ClassCmd, rsClass
Dim RowCount, MaxOrderID, ParentMaxOrderID, ParentOrderID, MinOrderID, i
Dim Result, TempString, TableString, TreeFolder
TreeFolder = "<img src='Images/tree_folder1.gif'>"
Call EL_Common.InitCommand(ClassCmd, "EL_SP_ClassTree")
With ClassCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
.Parameters.Append .CreateParameter("@ParentID", 3, 1, 4, ParentID)
.Parameters.Append .CreateParameter("@MaxOrderID", 3, 2, 4)
.Parameters.Append .CreateParameter("@ParentMaxOrderID", 3, 2, 4)
.Parameters.Append .CreateParameter("@ParentOrderID", 3, 2, 4)
.Parameters.Append .CreateParameter("@MinOrderID", 3, 2, 4)
Set rsClass = .Execute
End With
rsClass.Close()
If ClassCmd(0) = 0 Then
ShowClassTreeInTable = ""
Set rsClass = Nothing
Set ClassCmd = Nothing
Exit Function
End If
RowCount = ClassCmd(0)
MaxOrderID = ClassCmd(3)
ParentMaxOrderID = ClassCmd(4)
ParentOrderID = ClassCmd(5)
MinOrderID = ClassCmd(6)
rsClass.Open()
Result = ""
For i=1 To RowCount
TempString = ""
If ParentID <> 0 Then
If ParentString <> "" Then
If ParentMaxOrderID = ParentOrderID Then
TempString = Left(ParentString,Len(ParentString)-1) &"<img src='Images/tree_line4.gif'>"
Else
TempString = Left(ParentString,Len(ParentString)-1) &"│"
End If
Else
TempString = ParentString
End If
If rsClass(2) = MaxOrderID Then
TempString = TempString &"└"
Else
TempString = TempString &"├"
End If
End If
TableString = TempString
TableString = Replace(TableString,"│","<img src='Images/tree_line3.gif'>")
TableString = Replace(TableString,"└","<img src='Images/tree_line2.gif'>")
TableString = Replace(TableString,"├","<img src='Images/tree_line1.gif'>")
Result = Result &"<tr class='td_25' onMouseOver=this.className='MouseOver_25' onMouseOut=this.className='td_25'><td align='center'>"& rsClass(0) &"</td>"
Result = Result &"<td>"& TableString & TreeFolder & rsClass(1) &"</td>"
Result = Result &"<td align='center' nowrap>"
Result = Result &"<a href='Admin_Class.asp?Action=Add&ChannelID="& ChannelID &"&ParentID="& rsClass(0) &"'>添加子"& EL_Channel.ClassItemName &"</a> | "
Result = Result &"<a href='Admin_Class.asp?Action=Modify&ChannelID="& ChannelID &"&ClassID="& rsClass(0) &"'>修改设置</a> | "
Result = Result &"<a href='Admin_Class.asp?Action=Move&ChannelID="& ChannelID &"&ClassID="& rsClass(0) &"'>移动"& EL_Channel.ClassItemName &"</a> | "
Result = Result &"<a href='Admin_Class.asp?Action=Clear&ChannelID="& ChannelID &"&ClassID="& rsClass(0) &"' onClick=""return confirm('本次操作将删除该"& EL_Channel.ClassItemName &"下的所有信息，并不能恢复，是否要执行清空？')"">清空数据</a> | "
Result = Result &"<a href='Admin_Class.asp?Action=Delete&ChannelID="& ChannelID &"&ClassID="& rsClass(0) &"' onClick=""return confirm('本次操作将删除该"& EL_Channel.ClassItemName &"及其子"& EL_Channel.ClassItemName &"，包括"& EL_Channel.ClassItemName &"下面的所有信息，并不能恢复，是否要执行删除？')"">删除"& EL_Channel.ClassItemName &"</a> "
If rsClass(2) = MinOrderID Then
Result = Result &"<img src='Images/Up_0.gif' width='12' height='13' border='0' alt='不能移动'> "
Else
Result = Result &"<a href='Admin_Class.asp?Action=Up&ChannelID="& ChannelID &"&ClassID="& rsClass(0) &"'><img src='Images/Up.gif' width='12' height='13' border='0' alt='上移'></a> "
End If
If rsClass(2) = MaxOrderID Then
Result = Result &"<img src='Images/Down_0.gif' width='12' height='13' border='0' alt='不能移动'>"
Else
Result = Result &"<a href='Admin_Class.asp?Action=Down&ChannelID="& ChannelID &"&ClassID="& rsClass(0) &"'><img src='Images/Down.gif' width='12' height='13' border='0' alt='下移'></a>"
End If
Result = Result &"</td>"
Result = Result &"</tr>"
Result = Result & ShowClassTreeInTable(ChannelID, rsClass(0), TempString)
If i<RowCount Then rsClass.MoveNext
Next
rsClass.Close()
Set rsClass = Nothing
Set ClassCmd = Nothing
ShowClassTreeInTable = Result
End Function
Sub ReadConfig()
On Error Resume Next
Dim FSO, CMCFile, ArrConfig
Set FSO = Server.CreateObject(Object_FSO)
EL_Common.ShowScriptError()
Set CMCFile = FSO.OpenTextFile(Server.MapPath(InstallDir & EL_Channel.ChannelDir &"/ClassMenuConfig.asp"))
ArrConfig = CMCFile.ReadAll
CMCFile.Close()
Set CMCFile = Nothing
Set FSO = Nothing
ArrConfig = Replace(ArrConfig, """", "")
ArrConfig = Replace(ArrConfig, "%", "")
ArrConfig = Replace(ArrConfig, ">", "")
ArrConfig = Replace(ArrConfig, "<", "")
ArrConfig = Replace(ArrConfig, CHR(10) & CHR(13), "")
ArrConfig = Replace(ArrConfig, CHR(13), "")
If ArrConfig = "" Then ArrConfig = "4@@0@@0@@2@@3@@6@@7@@100@@filter:Glow(Color=#000000, Strength=3)@@4@@@@23@@50@@2@@4@@#999999@@#FFFFFF@@@@3@@1@@1@@#ACA899@@#ffffff@@0@@@@@@@@-1@@-1@@0@@@@@@@@@@@@@@0@@0@@0@@@@@@0@@0@@0@@0@@1@@#F1F2EE@@1@@#CCCCCC@@1@@@@@@3@@3@@0@@0@@#FFFFF7@@#FFCC00@@#000000@@#FF0000@@9pt 宋体@@9pt 宋体"
ArrConfig = Split(ArrConfig, "@@")
CMC_1 = ArrConfig(0)
CMC_2 = ArrConfig(1)
CMC_3 = ArrConfig(2)
CMC_4 = ArrConfig(3)
CMC_5 = ArrConfig(4)
CMC_6 = ArrConfig(5)
CMC_7 = ArrConfig(6)
CMC_8 = ArrConfig(7)
CMC_9 = ArrConfig(8)
CMC_10 = ArrConfig(9)
CMC_11 = ArrConfig(10)
CMC_12 = ArrConfig(11)
CMC_13 = ArrConfig(12)
CMC_14 = ArrConfig(13)
CMC_15 = ArrConfig(14)
CMC_16 = ArrConfig(15)
CMC_17 = ArrConfig(16)
CMC_18 = ArrConfig(17)
CMC_19 = ArrConfig(18)
CMC_20 = ArrConfig(19)
CMC_21 = ArrConfig(20)
CMC_22 = ArrConfig(21)
CMC_23 = ArrConfig(22)
CMC_Item_1 = ArrConfig(23)
CMC_Item_2 = ArrConfig(24)
CMC_Item_3 = ArrConfig(25)
CMC_Item_4 = ArrConfig(26)
CMC_Item_5 = ArrConfig(27)
CMC_Item_6 = ArrConfig(28)
CMC_Item_7 = ArrConfig(29)
CMC_Item_8 = ArrConfig(30)
CMC_Item_9 = ArrConfig(31)
CMC_Item_10 = ArrConfig(32)
CMC_Item_11 = ArrConfig(33)
CMC_Item_12 = ArrConfig(34)
CMC_Item_13 = ArrConfig(35)
CMC_Item_14 = ArrConfig(36)
CMC_Item_15 = ArrConfig(37)
CMC_Item_16 = ArrConfig(38)
CMC_Item_17 = ArrConfig(39)
CMC_Item_18 = ArrConfig(40)
CMC_Item_19 = ArrConfig(41)
CMC_Item_20 = ArrConfig(42)
CMC_Item_21 = ArrConfig(43)
CMC_Item_22 = ArrConfig(44)
CMC_Item_23 = ArrConfig(45)
CMC_Item_24 = ArrConfig(46)
CMC_Item_25 = ArrConfig(47)
CMC_Item_26 = ArrConfig(48)
CMC_Item_27 = ArrConfig(49)
CMC_Item_28 = ArrConfig(50)
CMC_Item_29 = ArrConfig(51)
CMC_Item_30 = ArrConfig(52)
CMC_Item_31 = ArrConfig(53)
CMC_Item_32 = ArrConfig(54)
CMC_Item_33 = ArrConfig(55)
CMC_Item_34 = ArrConfig(56)
CMC_Item_35 = ArrConfig(57)
CMC_Item_36 = ArrConfig(58)
CMC_Item_37 = ArrConfig(59)
CMC_Item_38 = ArrConfig(60)
CMC_Item_39 = ArrConfig(61)
EL_Common.ShowScriptError()
End Sub
Function stm_bm()
stm_bm = "stm_bm(['elancom',400,'','" & InstallDir & "images/blank.gif',0,'','',0,0,0,0,0,1,0,0]);"
End Function
Function stm_bp_h()
stm_bp_h = "stm_bp('p0',[0,4,0,0,2,2,0,0," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & ",0,0,'#000000','transparent','',3,0,0,'#000000']);"
End Function
Function stm_bp_v(bpID)
stm_bp_v = "stm_bp('" & bpID & "',[1," & CMC_1 & "," & CMC_2 & "," & CMC_3 & "," & CMC_4 & "," & CMC_5 & "," & CMC_6 & "," & CMC_7 & "," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & "," & CMC_14 & "," & CMC_15 & ",'" & CMC_16 & "','" & CMC_17 & "','" & CMC_18 & "'," & CMC_19 & "," & CMC_20 & "," & CMC_21 & ",'" & CMC_22 & "']);"
End Function
Function stm_bpx(bpOID, bpTID, bpType)
If bpType = 0 Then
stm_bpx = "stm_bpx('" & bpOID & "','" & bpTID & "',[1," & CMC_1 & "," & CMC_2 & "," & CMC_3 & "," & CMC_4 & "," & CMC_5 & "," & CMC_6 & "," & CMC_7 & "," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & "," & CMC_14 & "," & CMC_15 & ",'" & CMC_16 & "','" & CMC_17 & "','" & CMC_18 & "'," & CMC_19 & "," & CMC_20 & "," & CMC_21 & ",'" & CMC_22 & "']);"
Else
stm_bpx = "stm_bpx('" & bpOID & "','" & bpTID & "',[1,2,-2,-3," & CMC_4 & "," & CMC_5 & ",0," & CMC_7 & "," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & "," & CMC_14 & "," & CMC_15 & ",'" & CMC_16 & "','" & CMC_17 & "','" & CMC_18 & "'," & CMC_19 & "," & CMC_20 & "," & CMC_21 & ",'" & CMC_22 & "']);"
End If
End Function
Function stm_ai()
stm_ai = "stm_ai('p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0," & CMC_Item_22 & "," & CMC_Item_23 & ",'" & CMC_Item_24 & "'," & CMC_Item_25 & ",'" & CMC_Item_26 & "'," & CMC_Item_27 & ",'" & CMC_Item_28 & "','" & CMC_Item_29 & "'," & CMC_Item_30 & "," & CMC_Item_31 & "," & CMC_Item_32 & "," & CMC_Item_33 & ",'" & CMC_Item_34 & "','" & CMC_Item_35 & "','" & CMC_Item_36 & "','" & CMC_Item_37 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "']);"
End Function
Function stm_aix(mOID, mTID, mClassName, mClassFile, mOpenType, mMenuTitle, mSubClass)
If mSubClass = False Then
stm_aix = "stm_aix('" & mOID & "','" & mTID & "',[0,'" & mClassName & "','','',-1,-1,0,'" & mClassFile & "','" & mOpenType & "','" & mClassFile & "','" & EncodeJS(mMenuTitle) & "','','',0,0,0,'','',0,0,0," & CMC_Item_22 & "," & CMC_Item_23 & ",'" & CMC_Item_24 & "'," & CMC_Item_25 & ",'" & CMC_Item_26 & "'," & CMC_Item_27 & ",'" & CMC_Item_28 & "','" & CMC_Item_29 & "'," & CMC_Item_30 & "," & CMC_Item_31 & "," & CMC_Item_32 & "," & CMC_Item_33 & ",'" & CMC_Item_34 & "','" & CMC_Item_35 & "','" & CMC_Item_36 & "','" & CMC_Item_37 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "']);"
ElseIf mSubClass = True Then
stm_aix = "stm_aix('" & mOID & "','" & mTID & "',[0,'" & mClassName & "','','',-1,-1,0,'" & mClassFile & "','" & mOpenType & "','" & mClassFile & "','" & EncodeJS(mMenuTitle) & "','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & InstallDir & "images/arrow_w.gif',7,7,0," & CMC_Item_22 & "," & CMC_Item_23 & ",'" & CMC_Item_24 & "'," & CMC_Item_25 & ",'" & CMC_Item_26 & "'," & CMC_Item_27 & ",'" & CMC_Item_28 & "','" & CMC_Item_29 & "'," & CMC_Item_30 & "," & CMC_Item_31 & "," & CMC_Item_32 & "," & CMC_Item_33 & ",'" & CMC_Item_34 & "','" & CMC_Item_35 & "','" & CMC_Item_36 & "','" & CMC_Item_37 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "']);"
End If
End Function
Function EncodeJS(str)
EncodeJS = Replace(Replace(Replace(Replace(Replace(str, Chr(10), ""), "\", "\\"), "'", "\'"), VBCRLF, "\n"), Chr(13), "")
End Function
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -