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

📄 admin_classmenu.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
On Error Resume Next
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=EL_Channel.ChannelName%></title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" align="center" class="top_25"><strong><%=EL_Channel.ChannelName%>——<%=EL_Channel.ClassItemName%>导航管理</strong></td>
  </tr>
  <tr>
    <td colspan="2" class="td_50">管理导航：<a href="Admin_ClassMenu.asp?ChannelID=<%=EL_Channel.ChannelID%>"><%=EL_Channel.ClassItemName%>导航设置</a> | <a href="Admin_ClassMenu.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Create">生成导航栏</a></td>
  </tr>
  <tr>
    <td width="10%" nowrap class="item_25">导航效果演示：</td>
    <td class="item_25"><%Call ShowDemoMenu()%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="25" align="right">注：参数设置，▲代表鼠标悬停时效果，▼代表鼠标移出时效果。 &nbsp;</td>
  </tr>
</table>
<%
Dim 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
Dim CMC_16 , CMC_17, CMC_18, CMC_19, CMC_20, CMC_21, CMC_22, CMC_23
Dim CMC_Item_1, CMC_Item_2, CMC_Item_3, CMC_Item_4, CMC_Item_5, CMC_Item_6, CMC_Item_7, CMC_Item_8, CMC_Item_9, CMC_Item_10
Dim CMC_Item_11, CMC_Item_12, CMC_Item_13, CMC_Item_14, CMC_Item_15, CMC_Item_16, CMC_Item_17, CMC_Item_18, CMC_Item_19
Dim CMC_Item_20, CMC_Item_21, CMC_Item_22, CMC_Item_23, CMC_Item_24, CMC_Item_25, CMC_Item_26, CMC_Item_27, CMC_Item_28
Dim 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
Dim CMC_Item_38, CMC_Item_39
Dim pNum, pNum2

Select Case Action
  Case "": Call ManageConfig()
  Case "SaveConfig": Call SaveConfig()
  Case "Create": Call ShowCreate()
  Case "CreateJs": Call CreateJs()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub CreateJs()
    On Error Resume Next
	Dim RootCmd, rsRoot, RootCount
	Dim JString, i, ArrOpenType(1)
	Dim FSO, JsFile, ClassNumLine
	
	Call ReadConfig()
	ClassNumLine = EL_Common.ELClng(EL_Channel.ClassNumLine)
	JString = ""
	ArrOpenType(0) = "_self"
	ArrOpenType(1) = "_blank"
	pNum = 1
	pNum2 = 0
	
	Call EL_Common.InitCommonCmd(RootCmd, rsRoot, "EL_Class", "ClassID,ClassName,OpenType,ArrChildID", "ChannelID="& EL_Channel.ChannelID &" AND ShowName="& EL_True &" And ParentID=0 Order By OrderID")
	rsRoot.Close()
	RootCount = RootCmd(0)
	
	JString = stm_bm() & VBCRLF
	JString = JString & stm_bp_h() & VBCRLF
    JString = JString & stm_ai() & VBCRLF
	JString = JString & stm_aix("p0i1", "p0i0", EL_Channel.ChannelName & "首页", InstallDir & EL_Channel.ChannelDir & "/Index.asp", "_self", "", False) & VBCRLF
	JString = JString & stm_aix("p0i2", "p0i0", "|", "", "_self", "", False) & VBCRLF
	
	rsRoot.Open()
	For i = 1 To RootCount
	   JString = JString & stm_aix("p0i" & (i+2) & "", "p0i0", Replace(rsRoot("ClassName"), "'", "\'"), InstallDir & EL_Channel.ChannelDir & "/ShowClass.asp?ClassID=" & rsRoot("ClassID"), ArrOpenType(rsRoot("OpenType")), "", False) & VBCRLF
	   If rsRoot("ArrChildID") <> "" And Not IsNULL(rsRoot("ArrChildID")) Then
	      JString = JString & GetChildClass(rsRoot("ClassID"), 0)
	   End If
	   JString = JString & stm_aix("p0i2", "p0i0", "|", "", "_self", "", False) & VBCRLF
	   If (i Mod ClassNumLine) = 0 And RootCount > ClassNumLine Then
	      JString = JString & "stm_em();" & VBCRLF
		  JString = JString & stm_bm() & VBCRLF
		  JString = JString & stm_bp_h() & VBCRLF
		  JString = JString & stm_ai() & VBCRLF
	   End If
	   If i<RootCount Then rsRoot.MoveNext
	Next
	rsRoot.Close()
	Set rsRoot = Nothing
	Set RootCmd = Nothing
	JString = JString & "stm_em();" & VBCRLF
	
	Set FSO = Server.CreateObject(Object_FSO)
	Set JsFile = FSO.CreateTextFile(Server.MapPath(InstallDir & EL_Channel.ChannelDir &"/Js/ShowClassMenu.js"), True)
	JsFile.Write JString
	JsFile.Close()
	Set JsFile = Nothing
	Set FSO = Nothing
	
	EL_Common.ShowSuccessMsg("生成导航菜单成功")
	EL_Common.ShowScriptError()
End Sub

Function GetChildClass(ByVal ParentID, ShowType)
    On Error Resume Next
    Dim ChildCmd, rsChild, ChildCount
	Dim JString, i, ArrOpenType(1), Depth
	
	JString = ""
	ArrOpenType(0) = "_self"
	ArrOpenType(1) = "_blank"
	
	If pNum = 1 Then
	   JString = JString & stm_bp_v("p" & pNum & "") & VBCRLF
	Else
	   JString = JString & stm_bpx("p" & pNum & "", "p" & pNum2 & "", ShowType) & VBCRLF
	End If
	
	Call EL_Common.InitCommonCmd(ChildCmd, rsChild, "EL_Class", "ClassID,ClassName,OpenType,ArrChildID,Depth", "ChannelID="& EL_Channel.ChannelID &" AND ShowName="& EL_True &" And ParentID="& ParentID &" Order By OrderID")
	rsChild.Close()
	ChildCount = ChildCmd(0)
	rsChild.Open()
	For i = 1 To ChildCount	   
	   If rsChild("ArrChildID") <> "" And Not IsNULL(rsChild("ArrChildID")) Then
	      JString = JString & stm_aix("p" & pNum & "i" & (i-1) & "", "p" & pNum2 & "i0", Replace(rsChild("ClassName"), "'", "\'"), InstallDir & EL_Channel.ChannelDir & "/ShowClass.asp?ClassID=" & rsChild("ClassID"), ArrOpenType(rsChild("OpenType")), "", True) & VBCRLF
	      pNum = pNum + 1
		  pNum2 = pNum2 + 1
		  JString = JString & GetChildClass(rsChild("ClassID"), 1)
	   Else
	      JString = JString & stm_aix("p" & pNum & "i" & (i-1) & "", "p" & pNum2 & "i0", rsChild("ClassName"), InstallDir & EL_Channel.ChannelDir & "/ShowClass.asp?ClassID=" & rsChild("ClassID"), ArrOpenType(rsChild("OpenType")), "", False) & VBCRLF
	   End If
	   If i<ChildCount Then rsChild.MoveNext
	Next
	rsChild.Close()
	Set rsChild = Nothing
	Set ChildCmd = Nothing
	JString = JString & "stm_ep();" & VBCRLF
	
	GetChildClass = JString
	EL_Common.ShowScriptError()
End Function

Sub SaveConfig()
    On Error Resume Next
    Dim ConfigString, FSO, ConfigFile, FilePath
	
	FilePath = Server.MapPath(InstallDir & EL_Channel.ChannelDir &"/ClassMenuConfig.asp")
	Set FSO = Server.CreateObject(Object_FSO)
	EL_Common.ShowScriptError()
	Set ConfigFile = FSO.CreateTextFile(FilePath, True)

    ConfigString =  "<" & "%"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_1"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_2"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_3"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_4"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_5"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_6"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_7"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_8"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_9"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_10"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_11"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_12"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_13"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_14"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_15"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_16"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_17"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_18"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_19"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_20"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_21"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_22"))) & "@@"
    ConfigString = ConfigString & "#ffffff@@"
    ConfigString = ConfigString & "0@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & "-1@@"
    ConfigString = ConfigString & "-1@@"
    ConfigString = ConfigString & "0@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_12"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_13"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_14"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_15"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_16"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_17"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_18"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_19"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_20"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_21"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_22"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_23"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_24"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_25"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_26"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_27"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_28"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_29"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_30"))) & "@@"
    ConfigString = ConfigString & "3@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_32"))) & "@@"
    ConfigString = ConfigString & EL_Common.ELClng(Trim(request("CMC_Item_33"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_34"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_35"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_36"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_37"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_38"))) & "@@"
    ConfigString = ConfigString & FilterString(Trim(request("CMC_Item_39")))
    ConfigString = ConfigString & "%" & ">"
    ConfigFile.Write ConfigString
    Set ConfigFile = Nothing
    Set FSO = Nothing
    EL_Common.ShowSuccessMsg(EL_Channel.ClassItemName &"导航设置成功")
	EL_Common.ShowScriptError()
End Sub

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
1234

⌨️ 快捷键说明

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