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

📄 admin_rootclass_menu.asp

📁 一本关于大学的书
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.buffer = True
Const PurviewLevel = 0
Const PurviewLevel_Channel = 1
Const PurviewLevel_Others = ""
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="RootClass_Menu_Config.asp"-->
<%
Dim rsConfig, SiteUrlType, SiteUrlInstallDir
Set rsConfig = Conn.Execute("select top 1 * from PE_Config")
If Not (rsConfig.bof And rsConfig.EOF) Then
    SiteUrlType = rsConfig("SiteUrlType")
    If SiteUrlType = 1 Then
        SiteUrlInstallDir = SiteUrl & strInstallDir
    Else
        SiteUrlInstallDir = strInstallDir
    End If
End If
rsConfig.Close
Set rsConfig = Nothing

Dim ChannelUrl, UseCreateHTML, MaxPerLine, ListFileType, FileExt_List
If ChannelID = "" Or ChannelID = 0 Then
    Response.Write "频道参数错！"
    Response.End
End If
sqlChannel = "select * from PE_Channel Where ChannelID=" & ChannelID & " order by OrderID"
Set rsChannel = Server.CreateObject("adodb.recordset")
rsChannel.open sqlChannel, Conn, 1, 1
If Not rsChannel.EOF Then
    If rsChannel("ChannelID") = ChannelID Then
        If rsChannel("Disabled") = True Then
            Response.Write "此频道已经被管理员禁用！"
            Response.End
        End If
        UseCreateHTML = rsChannel("UseCreateHTML")
        MaxPerLine = rsChannel("MaxPerLine")
        ListFileType = rsChannel("ListFileType")
        Select Case rsChannel("FileExt_List")
        Case 0
            FileExt_List = "html"
        Case 1
            FileExt_List = "htm"
        Case 2
            FileExt_List = "shtml"
        Case 3
            FileExt_List = "shtm"
        Case 4
            FileExt_List = "asp"
        Case Else
            FileExt_List = "asp"
        End Select
        If IsNull(rsChannel("LinkUrl")) Or Trim(rsChannel("LinkUrl")) = "" Then
            ChannelUrl = strInstallDir & ChannelDir
        Else
            ChannelUrl = rsChannel("LinkUrl")
        End If
        If Right(ChannelUrl, 1) = "/" Then
            ChannelUrl = Left(ChannelUrl, Len(ChannelUrl) - 1)
        End If
    End If
Else
    Response.Write "频道不存在！"
    Response.End
End If
rsChannel.Close
Set rsChannel = Nothing

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

Dim hf, strTopMenu, pNum, pNum2, OpenType_Class, strMenuJS
Dim ObjInstalled, FSO
ObjInstalled = IsObjInstalled(objName_FSO)
If ObjInstalled = True Then
    Set FSO = Server.CreateObject(objName_FSO)
End If
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

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' "
12345

⌨️ 快捷键说明

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