📄 getclassnavigation.asp
字号:
<!--#include file="../../ACT.Function.asp"-->
<!--#include file="../ACT.F.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ACT_标签管理</title>
<link href="../../Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT src="../../../ACT_inc/dtreeFunction.js"></SCRIPT>
<LINK href="../../../ACT_inc/dtree.css" type=text/css rel=StyleSheet>
<SCRIPT src="../../../ACT_inc/dtree.js" type=text/javascript></SCRIPT>
<body>
<%
Dim Action,ID,LabelRS,LabelName,LabelContent,LabelFlag,LabelContentArr,Rs,pages,ModeID
Dim TitleCss,OpenType,NavWord,Navpic,NavType,ClassName,ColNumber,Division,NavHeight,sysdir
sysdir=actcms.ActSys
Action = Request.QueryString("Action")
ID = actcms.ChkNumeric(Request.QueryString("ID"))
Dim ActF,divid,divclass,ulid,ulclass,liid,liclass,Str,ACTIF,freetp,ATT
If Not ACTCMS.ACTCMS_QXYZ(0,"bqxt","") Then Call Actcms.Alert("对不起，你没有操作权限！","")
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
IF Action = "Add" Then
NavType = 0
ModeID= 0
ColNumber =1
NavHeight =20
ATT = 0
ActF=1
ClassName = "整站导航"
pages = "新建网站总导航标签"
ModeID = actcms.ChkNumeric(Request.QueryString("ModeID"))
Else
Set LabelRS = Server.CreateObject("Adodb.Recordset")
LabelRS.Open "Select LabelName,LabelContent,LabelFlag From Label_Act Where ID=" & ID & "", Conn, 1, 1
If LabelRS.EOF And LabelRS.BOF Then
LabelRS.Close
Conn.Close:Set Conn = Nothing
Set LabelRS = Nothing
Response.Write "参数传递出错!":Response.End
End If
LabelName = Replace(Replace(LabelRS("LabelName"), "{ACTCMS_", ""), "}", "")
LabelContent = LabelRS("LabelContent")
LabelFlag = Clng(LabelRS("LabelFlag"))
LabelRS.Close:Set LabelRS = Nothing
LabelContent = Replace(Replace(LabelContent, "{$GetClassNavigation(", ""), ")}", "")
LabelContent = Replace(LabelContent, """", "")
LabelContentArr = Split(LabelContent, "§")
ModeID = LabelContentArr(0)
OpenType = LabelContentArr(1)
ColNumber = LabelContentArr(2)
NavHeight = LabelContentArr(3)
TitleCss = LabelContentArr(4)
Division = LabelContentArr(5)
NavType = LabelContentArr(6)
ActF= LabelContentArr(8)
divid=LabelContentArr(9)
divclass=LabelContentArr(10)
ulid=LabelContentArr(11)
ulclass=LabelContentArr(12)
liid=LabelContentArr(13)
liclass=LabelContentArr(14)
IF NavType = 0 Then
NavWord = LabelContentArr(7)
Navpic = ""
Else
NavWord = ""
Navpic = LabelContentArr(7)
End IF
pages = "修改网站总导航标签"
End IF
Function ReturnAllChannel(FolderID)
Dim ChannelStr:ChannelStr = ""
ChannelStr = "<select name=""select1"" onChange=""SelectClass();"">"
ChannelStr = ChannelStr & "<option value=""0""> 整站导航 </option>"
if FolderID="888" then
ChannelStr = ChannelStr & "<option value=""888"" style=""color:red"" selected>当前频道通用</option>"
else
ChannelStr = ChannelStr & "<option value=""888"" style=""color:red"">当前频道通用</option>"
end if
if InStr(FolderID, ",") > 0 then
ChannelStr = ChannelStr & "<option value=""973"" style=""color:blue"" selected>指定栏目</option>"
else
ChannelStr = ChannelStr & "<option value=""973"" style=""color:blue"">指定栏目</option>"
end if
'ChannelStr = ChannelStr & "<option value=""973"" >指定栏目</option>"
ChannelStr = ChannelStr & "<optgroup label=""指定到模块"">"
ChannelStr = ChannelStr & ReturnChannelOption(FolderID)
ChannelStr = ChannelStr & "</Select>"
ReturnAllChannel = ChannelStr
End Function
Public Function ReturnChannelOption(SelectModeID)
Dim ChannelRS:Set ChannelRS=Server.CreateObject("ADODB.Recordset")
Dim ChannelStr:ChannelStr = ""
ChannelRS.Open "Select * From Mode_Act Where ModeStatus=0", Conn, 1, 1
If ChannelRS.EOF And ChannelRS.BOF Then
ChannelRS.Close:Set ChannelRS = Nothing:Exit Function
Else
Do While Not ChannelRS.EOF
If Cstr(ChannelRS("ModeID")) = Cstr(SelectModeID) Then
ChannelStr = ChannelStr & "<option selected value=" & ChannelRS("ModeID") & ">" & ChannelRS("ModeName") & "</option>"
Else
ChannelStr = ChannelStr & "<option value=" & ChannelRS("ModeID") & ">" & ChannelRS("ModeName") & "</option>"
End If
ChannelRS.MoveNext
Loop
ChannelRS.Close:Set ChannelRS = Nothing
End If
ReturnChannelOption = ChannelStr
End Function
%>
<form id="myform" name="myform" method="post" action="AddLabelSave.asp">
<input type="hidden" name="LabelContent">
<input type="hidden" name="LabelType" value="1">
<input type="hidden" name="Action" value="<%= Action %>">
<input type="hidden" name="ID" value="<%= ID %>">
<input type="hidden" name="FileUrl" value="GetNavigation.asp">
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr>
<td colspan="2" align="center" class="bg_tr"><%= pages %> </td>
</tr>
<tr>
<td width="50%" class="td_bg">标签名称
<input name="LabelName" class="textbox" type="text" id="LabelName" value="<%= LabelName %>"></td>
<td width="50%" class="td_bg"> </td>
</tr>
<tr>
<td class="td_bg">标签目录
<select name="LabelFlag" id="select">
<option value="0">系统默认</option>
<%=AF.ACT_LabelFolder(CInt(LabelFlag))%>
</select> <a href="ACT.LabelFolder.asp"><font color=red>新建存放目录</font></a></td>
<td width="50%" height="24" class="td_bg">导航排列方式
<input type="radio" <% IF ColNumber = 989 Then Response.Write("Checked") %> id="Arrangement1" name="Arrangement" value="0" onClick="Arrangements(0);"><label for="Arrangement1">横排</label>
<input type="radio" <% IF ColNumber <> 989 Then Response.Write("Checked") %> id="Arrangement2" name="Arrangement" value="1" onClick="Arrangements(1);"><label for="Arrangement2">竖排</label>
<br><font color="red" >横排一般应用网站总导航,竖排应用栏目导航</font></td>
</tr>
<tr>
<td width="50%" >
输出格式
<select class='textbox' style='width:70%' name="ActF" id="ActF" onChange="SetActF(this.options[this.selectedIndex].value);">
<option value="1" <% IF ActF = 1 Then Response.Write("selected") %>>普通Table格式</option>
<option value="2" <% IF ActF = 2 Then Response.Write("selected") %>>DIV+CSS格式</option>
</select>
</td>
<td width="50%" ><font color=red>请选择系统支持的输出格式</font>
</td>
</tr>
<tr id=ActFs ><td colspan="2" ><div id="
<input name="divid" type="text" value="<%= divid %>" id="divid" size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width:0px;border-bottom-color: #000000" class='textbox' title="DIV调用的ID号，必须在CSS中预先定义且不能为空!">
" Class=" <input name="divclass" class='textbox' type="text" value="<%= divclass %>" id="divclass" size="6" style="border-top-width: 0px; border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="DIV调用的Class名称，请在CSS中预先定义,可以为空!">
"> <ul id=" <input value="<%= ulid %>" name="ulid" type="text" id="ulid" class='textbox' size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="生成ul调用的ID，请在CSS中预先定义,可以为空!">
" Class=" <input class='textbox' value="<%= ulclass %>" name="ulclass" type="text" id="ulclass" size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="生成ul调用的class名称，请在CSS中预先定义。可以为空!">
"> <li id=" <input value="<%= liid %>" name="liid" type="text" id="liid" size="6" class='textbox' style="border-top-width: 0px; border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="生成li调用的ID，请在CSS中预先定义。可以为空!">
" Class=" <input value="<%= liclass %>" name="liclass" class='textbox' type="text" id="liclass" size="6" style="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000" title="生成li调用的class名称，请在CSS中预先定义。可以为空!">
"><br><font color=green>如果不想输出该标签,请将ID设为0,例:ul的id设为0,将不输出ul</font></td>
</tr>
<tr>
<td class="td_bg">
所属栏目 <input name="ModeID" type="text" id="ModeID" value="<%= ModeID %>" readonly disabled=true>
<%= ReturnAllChannel(ModeID) %> <a href="#" onClick="SelectClass()">快速打开</a></td>
<td class="td_bg"><div style="position:relative;">链接目标<span style="margin-left:175px;width:18px;overflow:hidden;">
<select name="select" class='textbox' style="width:185px;margin-left:-167px" onChange="this.parentNode.nextSibling.value=this.value">
<option value=""></option>
<option value="_blank"> _blank </option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -