📄 admin_classmenu.asp
字号:
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
Sub ShowCreate()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td class="top_25"><strong>生成导航菜单栏</strong></td>
</tr>
<tr>
<td class="td_50">·本操作将生成效果如导航效果演示的<%=EL_Channel.ClassItemName%>导航栏，<a href="Admin_ClassMenu.asp?ChannelID=<%=EL_Channel.ChannelID%>"><span class="BlueText" style="text-decoration:underline">设置导航效果参数</span></a></td>
</tr>
<tr>
<td align="center" class="td_50"><label>
<form name='myform' method='post' action='Admin_ClassMenu.asp'>
<input type="submit" name="Submit" value="生成导航菜单">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="CreateJs">
</form>
</label></td>
</tr>
<tr>
<td class="td_25"> </td>
</tr>
</table>
<%
End Sub
Sub ManageConfig()
On Error Resume Next
Call ReadConfig()
Response.Write "<form method='POST' action='Admin_ClassMenu.asp' id='myform' name='myform'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>"
Response.Write " <tr>"
Response.Write " <td height='22' colspan='6' class='top_25'><strong>顶部栏目菜单参数设置</strong> （注：部分特效只对特定的浏览器才有效）</td>"
Response.Write " </tr>"
Response.Write " <tr> "
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>弹出方式：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <select name='CMC_1' id='CMC_1'>"
Response.Write " <option value='1' "
If CMC_1 = "1" Then Response.Write " selected"
Response.Write " >向左</option>"
Response.Write " <option value='2' "
If CMC_1 = "2" Then Response.Write " selected"
Response.Write " >向右</option>"
Response.Write " <option value='3' "
If CMC_1 = "3" Then Response.Write " selected"
Response.Write " >向上</option>"
Response.Write " <option value='4' "
If CMC_1 = "4" Then Response.Write " selected"
Response.Write " >向下</option>"
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>横向偏移量：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_2' type='text' id='CMC_2' value='" & CMC_2 & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>纵向偏移量：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_3' type='text' id='CMC_3' value='" & CMC_3 & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr> "
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单项边距：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_4' type='text' id='CMC_4' value='" & CMC_4 & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单项间距：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_5' type='text' id='CMC_5' value='" & CMC_5 & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单项左边距：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_6' type='text' id='CMC_6' value='" & CMC_6 & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr> "
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单项右边距：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_7' type='text' id='CMC_7' value='" & CMC_7 & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单透明度：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_8' type='text' id='CMC_8' value='" & CMC_8 & "' size='10' maxlength='10' title='0-100 完全透明-完全不透明'>"
Response.Write " </td>"
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单其它特效：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <input name='CMC_9' type='text' id='CMC_9' value='" & CMC_9 & "' size='10' maxlength='200'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr> "
Response.Write " <td width='130' height='25'class='td_ItemName'><strong>菜单弹出效果▲：</strong></td>"
Response.Write " <td width='120'class='td_25'>"
Response.Write " <select name='CMC_10' id='CMC_10'>"
Response.Write " <option value='-1' "
If CMC_10 = "-1" Then Response.Write " selected"
Response.Write " >无特效</option>"
Response.Write " <option value='0' "
If CMC_10 = "0" Then Response.Write " selected"
Response.Write " >方形收缩</option>"
Response.Write " <option value='1' "
If CMC_10 = "1" Then Response.Write " selected"
Response.Write " >方形扩散</option>"
Response.Write " <option value='2' "
If CMC_10 = "2" Then Response.Write " selected"
Response.Write " >圆形收缩</option>"
Response.Write " <option value='3' "
If CMC_10 = "3" Then Response.Write " selected"
Response.Write " >圆形扩散</option>"
Response.Write " <option value='4' "
If CMC_10 = "4" Then Response.Write " selected"
Response.Write " >上拉效果</option>"
Response.Write " <option value='5' "
If CMC_10 = "5" Then Response.Write " selected"
Response.Write " >下拉效果</option>"
Response.Write " <option value='6' "
If CMC_10 = "6" Then Response.Write " selected"
Response.Write " >从左向右</option>"
Response.Write " <option value='7' "
If CMC_10 = "7" Then Response.Write " selected"
Response.Write " >从右向左</option>"
Response.Write " <option value='8' "
If CMC_10 = "8" Then Response.Write " selected"
Response.Write " >左右百叶</option>"
Response.Write " <option value='9' "
If CMC_10 = "9" Then Response.Write " selected"
Response.Write " >上下百叶</option>"
Response.Write " <option value='10' "
If CMC_10 = "10" Then Response.Write " selected"
Response.Write " >左右网格</option>"
Response.Write " <option value='11' "
If CMC_10 = "11" Then Response.Write " selected"
Response.Write " >左右网格</option>"
Response.Write " <option value='12' "
If CMC_10 = "12" Then Response.Write " selected"
Response.Write " >模糊效果</option>"
Response.Write " <option value='13' "
If CMC_10 = "13" Then Response.Write " selected"
Response.Write " >左右关门</option>"
Response.Write " <option value='14' "
If CMC_10 = "14" Then Response.Write " selected"
Response.Write " >左右开门</option>"
Response.Write " <option value='15' "
If CMC_10 = "15" Then Response.Write " selected"
Response.Write " >上下关门</option>"
Response.Write " <option value='16' "
If CMC_10 = "16" Then Response.Write " selected"
Response.Write " >上下开门</option>"
Response.Write " <option value='17' "
If CMC_10 = "17" Then Response.Write " selected"
Response.Write " >左下拉开</option>"
Response.Write " <option value='18' "
If CMC_10 = "18" Then Response.Write " selected"
Response.Write " >左上拉开</option>"
Response.Write " <option value='19' "
If CMC_10 = "19" Then Response.Write " selected"
Response.Write " >右下拉开</option>"
Response.Write " <option value='20' "
If CMC_10 = "20" Then Response.Write " selected"
Response.Write " >右上拉开</option>"
Response.Write " <option value='21' "
If CMC_10 = "21" Then Response.Write " selected"
Response.Write " >上下条纹</option>"
Response.Write " <option value='22' "
If CMC_10 = "22" Then Response.Write " selected"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -