📄 admin_classmenu.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
    Response.Write "    <td width='120'class='td_25'>"
    Response.Write "      <select name='CMC_Item_23' id='CMC_Item_23'>"
    Response.Write "        <option value='0' "
    If CMC_Item_23 = "0" Then Response.Write " selected"
    Response.Write "        >顶部</option>"
    Response.Write "        <option value='1' "
    If CMC_Item_23 = "1" Then Response.Write " selected"
    Response.Write "        >居中</option>"
    Response.Write "        <option value='2' "
    If CMC_Item_23 = "2" Then Response.Write " selected"
    Response.Write "        >底部</option>"
    Response.Write "      </select>"
    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_Item_24' type='text' id='CMC_Item_24' value='" & CMC_Item_24 & "' size='10' maxlength='15' title='透明色：transparent'>"
    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 "      <select name='CMC_Item_25' id='CMC_Item_25'>"
    Response.Write "        <option value='0' "
    If CMC_Item_25 = "0" Then Response.Write " selected"
    Response.Write "        >显示</option>"
    Response.Write "        <option value='1' "
    If CMC_Item_25 = "1" 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_Item_26' type='text' id='CMC_Item_26' value='" & CMC_Item_26 & "' 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 "      <select name='CMC_Item_27' id='CMC_Item_27'>"
    Response.Write "        <option value='0' "
    If CMC_Item_27 = "0" Then Response.Write " selected"
    Response.Write "        >显示</option>"
    Response.Write "        <option value='1' "
    If CMC_Item_27 = "1" 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_Item_28' type='text' id='CMC_Item_28' value='" & CMC_Item_28 & "' 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_Item_29' type='text' id='CMC_Item_29' value='" & CMC_Item_29 & "' 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 "      <select name='CMC_Item_30' id='CMC_Item_30'>"
    Response.Write "        <option value='0' "
    If CMC_Item_30 = "0" Then Response.Write " selected"
    Response.Write "        >不平铺</option>"
    Response.Write "        <option value='1' "
    If CMC_Item_30 = "1" Then Response.Write " selected"
    Response.Write "        >横向平铺</option>"
    Response.Write "        <option value='2' "
    If CMC_Item_30 = "2" Then Response.Write " selected"
    Response.Write "        >纵向平铺</option>"
    Response.Write "        <option value='3' "
    If CMC_Item_30 = "3" 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 "      <select name='CMC_Item_32' id='CMC_Item_32'>"
    Response.Write "        <option value='0' "
    If CMC_Item_32 = "0" Then Response.Write " selected"
    Response.Write "        >无边框</option>"
    Response.Write "        <option value='1' "
    If CMC_Item_32 = "1" Then Response.Write " selected"
    Response.Write "        >单实线</option>"
    Response.Write "        <option value='2' "
    If CMC_Item_32 = "2" Then Response.Write " selected"
    Response.Write "        >双实线</option>"
    Response.Write "        <option value='5' "
    If CMC_Item_32 = "5" Then Response.Write " selected"
    Response.Write "        >凹陷</option>"
    Response.Write "        <option value='6' "
    If CMC_Item_32 = "6" 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_Item_33' type='text' id='CMC_Item_33' value='" & CMC_Item_33 & "' 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_Item_34' type='text' id='CMC_Item_34' value='" & CMC_Item_34 & "' 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_Item_35' type='text' id='CMC_Item_35' value='" & CMC_Item_35 & "' 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_Item_36' type='text' id='CMC_Item_36' value='" & CMC_Item_36 & "' 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_Item_37' type='text' id='CMC_Item_37' value='" & CMC_Item_37 & "' 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_Item_38' type='text' id='CMC_Item_38' value='" & CMC_Item_38 & "' 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_Item_39' type='text' id='CMC_Item_39' value='" & CMC_Item_39 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr>"
    Response.Write "    <td height='40' colspan='6' align='center' class='td_50'>"
    Response.Write "      <input name='Action' type='hidden' id='Action' value='SaveConfig'>"
    Response.Write "   <input name='ChannelID' type='hidden' id='ChannelID' value='"& EL_Channel.ChannelID & "'>"
    Response.Write "      <input name='cmdSave' type='submit' id='cmdSave' value=' 保存设置 '>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "</form>"
	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

Sub ShowDemoMenu()
    Call ReadConfig()
    Response.Write "<script type='text/javascript' language='JavaScript1.2' src='" & InstallDir & "js/stm31.js'></script>"
    Response.Write "<script language='JavaScript'>"
    Response.Write stm_bm()
    Response.Write stm_bp_h()
    Response.Write stm_ai()
    Response.Write stm_aix("p0i1", "p0i0", "频道中心首页", "#", "_self", "", False)
    Response.Write stm_aix("p0i2", "p0i0", "|", "", "_self", "", False)
    Response.Write stm_aix("p0i3", "p0i0", "电脑书籍", "#", "_self", "", False)
    Response.Write stm_bp_v("p1")
    Response.Write stm_aix("p1i0", "p0i0", "数据库教程书籍", "#", "_self", "", False)
    Response.Write stm_aix("p1i1", "p0i0", "程序设计书籍", "#", "_self", "", True)
    Response.Write stm_bpx("p2", "p1", 1)
    Response.Write stm_aix("p2i0", "p1i0", "网络通讯", "#", "_self", "", False)
    Response.Write stm_aix("p2i1", "p1i0", "ASP相关书籍", "#", "_self", "", False)
    Response.Write stm_aix("p2i2", "p1i0", "JSP相关书籍", "#", "_self", "", False)
    Response.Write stm_aix("p2i3", "p1i0", "计算机等级考试", "#", "_self", "", False)
    Response.Write "stm_ep();"
    Response.Write stm_aix("p2i2", "p1i0", "平面与多媒体书籍", "#", "_self", "", False)
    Response.Write stm_aix("p2i3", "p1i0", "系统管理书籍", "#", "_self", "", True)
    Response.Write stm_bpx("p3", "p2", 1)
    Response.Write stm_aix("p3i0", "p2i0", "Windows相关", "#", "_self", "", False)
    Response.Write stm_aix("p3i1", "p2i0", "Linux相关", "#", "_self", "", False)
	Response.Write stm_aix("p3i2", "p2i0", "Unix相关", "#", "_self", "", False)
    Response.Write "stm_ep();"
    Response.Write stm_aix("p3i4", "p2i0", "网络安全", "#", "_self", "", False)
    Response.Write stm_aix("p3i5", "p2i0", "其它书籍", "#", "_self", "", False)
    Response.Write "stm_ep();"
    Response.Write stm_aix("p0i2", "p0i0", "|", "", "_self", "", False)
    Response.Write stm_aix("p0i4", "p0i0", "网络编程", "#", "_self", "", False)
    Response.Write stm_bpx("p3", "p2", 0)
    Response.Write stm_aix("p3i0", "p2i0", "PHP编程", "#", "_self", "", False)
    Response.Write stm_aix("p3i1", "p2i0", "JSP编程", "#", "_self", "", False)
    Response.Write stm_aix("p3i2", "p2i0", "JAVA编程", "#", "_self", "", False)
    Response.Write "stm_ep();"
    Response.Write stm_aix("p0i2", "p0i0", "|", "", "_self", "", False)
    Response.Write stm_aix("p0i5", "p0i0", "图片素材", "#", "_self", "", False)
    Response.Write stm_aix("p0i2", "p0i0", "|", "", "_self", "", False)
    Response.Write "stm_em();"
    Response.Write "</script>"
End Sub

Function FilterString(strChar)
    If strChar = "" Or IsNull(strChar) Then
        FilterString = ""
        Exit Function
    End If
    Dim strBadChar, arrBadChar, tempChar, i
    strBadChar = "',%,<,>," & Chr(34) & ""
    arrBadChar = Split(strBadChar, ",")
    tempChar = strChar
    For i = 0 To UBound(arrBadChar)
        tempChar = Replace(tempChar, arrBadChar(i), "")
    Next
    FilterString = tempChar
End Function
%>

</body>
</html>
上一页 1 2 34
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -