⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_rootclass_menu.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<!--#include file="Admin_Common.asp"-->
<!--#include file="RootClass_Menu_Config.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 1   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = ""   '其他权限

If ChannelID = 0 Then
    Response.Write "频道参数错！"
    Response.End
End If

If AdminPurview > 1 And CheckPurview_Other(AdminPurview_Others, "Menu_" & ChannelDir) = False Then
    Response.Write "你没有此项操作的权限！"
    Response.End
End If

Dim strTopMenu, pNum, pNum2, OpenType_Class, strMenuJS

Response.Write "<html><head><title>顶部栏目菜单管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'></head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write "  <tr class='topbg'> " & vbCrLf
Response.Write "    <td height='22' colspan='10'><table width='100%'><tr class='topbg'><td align='center'><b>顶部栏目菜单生成</b></td><td width='60' align='right'><a href='http://go.powereasy.net/go.aspx?UrlID=10013' target='_blank'><img src='images/help.gif' border='0'></a></td></tr></table></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "  <tr class='tdbg'>"
Response.Write "    <td width='70' height='30'><strong>管理导航：</strong></td>"
Response.Write "    <td height='30' colspan='2'>"
Response.Write "<a href='Admin_RootClass_Menu.asp?Action=ShowConfig&ChannelID=" & ChannelID & "' target=main>顶部栏目菜单参数设置</a>&nbsp;|&nbsp;"
Response.Write "<a href='Admin_RootClass_Menu.asp?Action=ShowCreate&ChannelID=" & ChannelID & "' target=main>顶部栏目菜单生成</a>"
Response.Write "    </td>"
Response.Write "  </tr>" & vbCrLf
Response.Write "  <tr>"
Response.Write "    <td width='70' height='30'><strong>菜单演示：</strong></td>"
Response.Write "    <td height='30'>"
Call ShowDemoMenu
Response.Write "    </td>"
Response.Write "    <td width='350'>注：参数设置，▲代表鼠标悬停时效果，▼代表鼠标移出时效果。</td>"
Response.Write "  </tr></table>" & vbCrLf

If Action = "ShowConfig" Then
    Call ShowConfig
ElseIf Action = "SaveConfig" Then
    Call SaveConfig
ElseIf Action = "ShowCreate" Then
    Call ShowCreate_RootClass_Menu
ElseIf Action = "Create" Then
    Call Create_RootClass_Menu
Else
    Call ShowConfig
End If
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>" & vbCrLf
Call CloseConn

Sub ShowConfig()
    Response.Write "<form method='POST' action='Admin_RootClass_Menu.asp' id='myform' name='myform'>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td height='22' colspan='6'><strong>顶部栏目菜单参数设置</strong> （注：部分特效只对特定的浏览器才有效）</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'> "
    Response.Write "    <td width='130' height='25'><strong>弹出方式：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <select name='RCM_Menu_1' id='RCM_Menu_1'>"
    Response.Write "        <option value='1' "
    If RCM_Menu_1 = "1" Then Response.Write " selected"
    Response.Write "        >向左</option>"
    Response.Write "        <option value='2' "
    If RCM_Menu_1 = "2" Then Response.Write " selected"
    Response.Write "        >向右</option>"
    Response.Write "        <option value='3' "
    If RCM_Menu_1 = "3" Then Response.Write " selected"
    Response.Write "        >向上</option>"
    Response.Write "        <option value='4' "
    If RCM_Menu_1 = "4" Then Response.Write " selected"
    Response.Write "        >向下</option>"
    Response.Write "      </select>"
    Response.Write "    </td>"
    Response.Write "    <td width='130' height='25'><strong>横向偏移量：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_2' type='text' id='RCM_Menu_2' value='" & RCM_Menu_2 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "    <td width='130' height='25'><strong>纵向偏移量：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_3' type='text' id='RCM_Menu_3' value='" & RCM_Menu_3 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'> "
    Response.Write "    <td width='130' height='25'><strong>菜单项边距：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_4' type='text' id='RCM_Menu_4' value='" & RCM_Menu_4 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "    <td width='130' height='25'><strong>菜单项间距：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_5' type='text' id='RCM_Menu_5' value='" & RCM_Menu_5 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "    <td width='130' height='25'><strong>菜单项左边距：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_6' type='text' id='RCM_Menu_6' value='" & RCM_Menu_6 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'> "
    Response.Write "    <td width='130' height='25'><strong>菜单项右边距：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_7' type='text' id='RCM_Menu_7' value='" & RCM_Menu_7 & "' size='10' maxlength='10'>"
    Response.Write "    </td>"
    Response.Write "    <td width='130' height='25'><strong>菜单透明度：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_8' type='text' id='RCM_Menu_8' value='" & RCM_Menu_8 & "' size='10' maxlength='10' title='0-100 完全透明-完全不透明'>"
    Response.Write "    </td>"
    Response.Write "    <td width='130' height='25'><strong>菜单其它特效：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <input name='RCM_Menu_9' type='text' id='RCM_Menu_9' value='" & RCM_Menu_9 & "' size='10' maxlength='200'>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'> "
    Response.Write "    <td width='130' height='25'><strong>菜单弹出效果▲：</strong></td>"
    Response.Write "    <td width='120'>"
    Response.Write "      <select name='RCM_Menu_10' id='RCM_Menu_10'>"
    Response.Write "        <option value='-1' "
    If RCM_Menu_10 = "-1" Then Response.Write " selected"
    Response.Write "        >无特效</option>"
    Response.Write "        <option value='0' "
    If RCM_Menu_10 = "0" Then Response.Write " selected"
    Response.Write "        >方形收缩</option>"
    Response.Write "        <option value='1' "
    If RCM_Menu_10 = "1" Then Response.Write " selected"
    Response.Write "        >方形扩散</option>"
    Response.Write "        <option value='2' "
    If RCM_Menu_10 = "2" Then Response.Write " selected"
    Response.Write "        >圆形收缩</option>"
    Response.Write "        <option value='3' "
    If RCM_Menu_10 = "3" Then Response.Write " selected"
    Response.Write "        >圆形扩散</option>"
    Response.Write "        <option value='4' "
    If RCM_Menu_10 = "4" Then Response.Write " selected"
    Response.Write "        >上拉效果</option>"
    Response.Write "        <option value='5' "
    If RCM_Menu_10 = "5" Then Response.Write " selected"
    Response.Write "        >下拉效果</option>"
    Response.Write "        <option value='6' "
    If RCM_Menu_10 = "6" Then Response.Write " selected"
    Response.Write "        >从左向右</option>"
    Response.Write "        <option value='7' "
    If RCM_Menu_10 = "7" Then Response.Write " selected"
    Response.Write "        >从右向左</option>"
    Response.Write "        <option value='8' "
    If RCM_Menu_10 = "8" Then Response.Write " selected"
    Response.Write "        >左右百叶</option>"
    Response.Write "        <option value='9' "
    If RCM_Menu_10 = "9" Then Response.Write " selected"
    Response.Write "        >上下百叶</option>"
    Response.Write "        <option value='10' "
    If RCM_Menu_10 = "10" Then Response.Write " selected"
    Response.Write "        >左右网格</option>"
    Response.Write "        <option value='11' "
    If RCM_Menu_10 = "11" Then Response.Write " selected"
    Response.Write "        >左右网格</option>"
    Response.Write "        <option value='12' "
    If RCM_Menu_10 = "12" Then Response.Write " selected"
    Response.Write "        >模糊效果</option>"
    Response.Write "        <option value='13' "
    If RCM_Menu_10 = "13" Then Response.Write " selected"
    Response.Write "        >左右关门</option>"
    Response.Write "        <option value='14' "
    If RCM_Menu_10 = "14" Then Response.Write " selected"
    Response.Write "        >左右开门</option>"
    Response.Write "        <option value='15' "
    If RCM_Menu_10 = "15" Then Response.Write " selected"
    Response.Write "        >上下关门</option>"
    Response.Write "        <option value='16' "
    If RCM_Menu_10 = "16" Then Response.Write " selected"
    Response.Write "        >上下开门</option>"
    Response.Write "        <option value='17' "
    If RCM_Menu_10 = "17" Then Response.Write " selected"
    Response.Write "        >左下拉开</option>"
    Response.Write "        <option value='18' "
    If RCM_Menu_10 = "18" Then Response.Write " selected"
    Response.Write "        >左上拉开</option>"
    Response.Write "        <option value='19' "
    If RCM_Menu_10 = "19" Then Response.Write " selected"
    Response.Write "        >右下拉开</option>"
    Response.Write "        <option value='20' "
    If RCM_Menu_10 = "20" Then Response.Write " selected"
    Response.Write "        >右上拉开</option>"
    Response.Write "        <option value='21' "
    If RCM_Menu_10 = "21" Then Response.Write " selected"
    Response.Write "        >上下条纹</option>"
    Response.Write "        <option value='22' "
    If RCM_Menu_10 = "22" Then Response.Write " selected"
12345

⌨️ 快捷键说明

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