📄 getarticlelist.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 sysdir,Action,ID,LabelRS,LabelName,Descript,LabelContent,LabelFlag,LabelContentArr,ClassID,ClassName,Rs,pages
Dim ArticleSort,ListNumber,TitleLen,RowHeight,ColNumber,TitleCss,DateCss,DateForm,DateAlign,NavType,TypeWordPic
Dim TypeClassName,OpenType,MoreLinkType,MoreLinkWord,MoreLinkpic,Division,TypeNew,ATT,NavPic,NavWord
Dim ActF,divid,divclass,ulid,ulclass,liid,liclass,Str,ACTIF,freetp,ModeID
If Not ACTCMS.ACTCMS_QXYZ(0,"bqxt","") Then Call Actcms.Alert("对不起，你没有操作权限！","")
sysdir=actcms.ActSys
Action = Request.QueryString("Action")
ID = actcms.ChkNumeric(Request.QueryString("ID"))
IF Action = "Add" Then
ClassID = 0
ListNumber = 10
TitleLen =30
MoreLinkType = 0
ATT = 0
ActF=1
ColNumber = 1
RowHeight = 22
ClassName = 0
ModeID = actcms.ChkNumeric(Request.QueryString("ModeID"))
pages = "新建栏目文章列表标签"
Else
Set LabelRS = Server.CreateObject("Adodb.Recordset")
LabelRS.Open "Select * 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_", ""), "}", "")
Descript = LabelRS("Description")
LabelContent = LabelRS("LabelContent")
LabelFlag = Clng(LabelRS("LabelFlag"))
LabelRS.Close:Set LabelRS = Nothing
LabelContent = Replace(Replace(LabelContent, "{$GetArticleList(", ""), ")}", "")
LabelContent = Replace(LabelContent, """", "")
LabelContentArr = Split(LabelContent, "§")
ClassID = LabelContentArr(0)
ActF = LabelContentArr(1)'是否包含子栏目
ATT = LabelContentArr(2)'文章属性
ArticleSort = LabelContentArr(3)'排序方法
OpenType = LabelContentArr(4)'链接目标
ListNumber = LabelContentArr(5)'文章数量
RowHeight = LabelContentArr(6)'文章行距
TitleLen = LabelContentArr(7)'标题字数
ColNumber = LabelContentArr(8)'排列列数
TypeClassName = LabelContentArr(9)'是否显示栏目
TypeNew = LabelContentArr(10)'图文标志
ACTIF = LabelContentArr(11)'最新文章标志
NavType = LabelContentArr(12)
MoreLinkType=LabelContentArr(14)
Division = LabelContentArr(16)
DateForm = LabelContentArr(17)
DateAlign = LabelContentArr(18)
TitleCss = LabelContentArr(19)
DateCss = LabelContentArr(20)
divid=LabelContentArr(21)
divclass=LabelContentArr(22)
ulid=LabelContentArr(23)
ulclass=LabelContentArr(24)
liid=LabelContentArr(25)
liclass=LabelContentArr(26)
ModeID=LabelContentArr(27)
IF NavType = 0 Then
NavWord = LabelContentArr(13)
Navpic = ""
Else
NavWord = ""
Navpic = LabelContentArr(13)
End IF
IF MoreLinkType = 0 Then
MoreLinkWord = LabelContentArr(15)
MoreLinkpic = ""
Else
MoreLinkWord = ""
MoreLinkpic = LabelContentArr(15)
End If
pages = "修改栏目文章列表标签"
End IF
With Response
IF ModeID = 0 Or ModeID="" Then ModeID = 1
%>
<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="ModeID" value="<%=ModeID%>">
<input type="hidden" name="FileUrl" value="GetArticleList.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%" >标签名称
<input name="LabelName" type="text" id="LabelName" value="<%= LabelName %>"></td>
<td width="50%" ><font color="red">* 调用格式"{ACTCMS_标签名称}"</font></td>
</tr>
<tr>
<td >标签目录
<select name="LabelFlag" id="select">
<option value="0">系统默认</option>
<%=AF.ACT_LabelFolder(CInt(LabelFlag))%>
</select> <a href="ACT.LabelFolder.asp"><font color=red><b>新建存放目录</b></font></a></td>
<td width="50%" height="24"> <font color=green>标签存放目录,日后方便管理标签</font></td>
</tr>
<tr>
<td width="50%" >
输出格式
<select 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" title="DIV调用的ID号，必须在CSS中预先定义且不能为空!">
" Class=" <input name="divclass" 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" 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 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" 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" 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中预先定义。可以为空!">
"><font color=green>如果不想输出该标签,请将ID设为0,例:ul的id设为0,将不输出ul</font></td>
</tr>
<tr>
<td >
所属栏目
<input name="ClassID" type="text" id="ClassID" value="<%= ClassID %>" readonly disabled=true>
<select name="select1" onChange="SelectClass();">
<option value="0" <% IF ClassID = "0" Then Response.Write "selected" %>>不指定栏目</option>
<option value="1" style="color:red" <% IF ClassID = "1" Then Response.Write "selected" %>>当前栏目通用</option>
<option value="2" <% IF ClassID <> "0" And ClassID <> "1" Then Response.Write "selected" %>>指定栏目</option>
</select><a href="#" onClick="SelectClass()">快速打开</a>
</td>
<td >文章属性
<select name="ATT" id="ATT">
<option value="0">普通文章</option>
<%=ACTCMS.ACT_ATT(CInt(ATT))%>
</select> </td>
</tr>
<tr>
<td >排序方法
<select name="ArticleSort">
<%.Write AF.ACT_ArticleSort(ArticleSort) %>
</select> </td>
<td ><div style="position:relative;">链接目标<span style="margin-left:175px;width:18px;overflow:hidden;">
<select name="select" style="width:185px;margin-left:-167px" onChange="this.parentNode.nextSibling.value=this.value">
<option value=""></option>
<option value="_blank"> _blank </option>
<option value="_parent"> _parent </option>
<option value="_self"> _self </option>
<option value="_top"> _top </option>
</select>
</span>
<input name="OpenType" style="width:175px;position:absolute;left:55px;" value="<%= OpenType %>">
</div></td>
</tr>
<tr>
<td >文章数量
<input name="ListNumber" type="text" id="ListNumber2" style="width:70%;" value="<%= ListNumber %>"></td>
<td >文章行距
<input name="RowHeight" type="text" id="RowHeight2" style="width:70%;" value="<%= RowHeight %>"></td>
</tr>
<tr>
<td >标题字数
<input name="TitleLen" type="text" style="width:70%;" value="<%= TitleLen %>"></td>
<td >排列列数
<input type="text" size="4" value="<%= ColNumber %>" name="ColNumber"><font color=red>每行显示数量,如果是DIV+CSS,请在CSS里控制条数</font></td>
</tr>
<tr>
<td colspan="1" >附加显示
<input name="TypeClassName" type="checkbox" id="TypeClassName" value="<%= TypeClassName %>" <% IF TypeClassName = "true" Then Response.Write("Checked") %>><label for="TypeClassName">显示栏目</label>
<%
.Write " "
If cbool(TypeNew) = True Then
.Write ("<input id=""TypeNew1"" type=""checkbox"" value=""true"" name=""TypeNew"" checked><label for=""TypeNew1"">最新文章标志</label>")
Else
.Write ("<input id=""TypeNew2"" type=""checkbox"" value=""true"" name=""TypeNew""><label for=""TypeNew2"">最新文章标志</label>")
End If
%> </td>
<td>SQL判断条件<input type="text" style="width:60%;" size="4" value="<%= ACTIF %>" name="ACTIF"><font color=red>格式</font></td>
</tr>
<tr >
<td >导航类型
<input id="NavType1" <% IF NavType = 0 Then Response.Write("Checked") %> type="radio" name="NavType" value="0" onClick="SetNavStatus(1);"><label for="NavType1">文字导航</label>
<input id="NavType2" <% IF NavType = 1 Then Response.Write("Checked") %> type="radio" name="NavType" value="1" onClick="SetNavStatus(2);"><label for="NavType2">图片导航</label></td>
<td width="50%" height="24" id=SetNavStatus1
<% if NavType=1 then %>
style="DISPLAY: none"
<% end if %>>
<input name="NavWord" type="text" id="NavWord" style="width:60%;" value="<%= NavWord %>">
支持HTML语法</td>
<td width="50%" height="24" id=SetNavStatus2
<% if NavType=0 then %>
style="DISPLAY: none"
SetNavStatus1.style.display=''
<% end if %> >
<input name="NavPic" type="text" id="NavPic" style="width:60%;" value="<%= NavPic %>" readonly>
<input class="ACT_btn" type="button" onClick="OpenWindowAndSetValue('../print/SelectPic.asp?CurrPath=<%=sysdir%>',500,320,window,document.myform.NavPic);" value="选择图片..."> <span style="cursor:hand;color:green;" onClick="javascript:document.myform.NavPic.value='';" onMouseOver="this.style.color='red'" onMouseOut="this.style.color='green'">清除</span></td>
</tr>
<tr id="MoreLinkArea" <% If InStr(ClassID,",") > "1" Then .Write " style=""display:none""" %>>
<td >更多链接
<input id="label" <% IF MoreLinkType = 0 Then Response.Write("Checked") %> type="radio" name="MoreLinkType" value="0" onClick=SetMoreLinkType(1)><label for="label">文字链接</label>
<input id="label2" <% IF MoreLinkType = 1 Then Response.Write("Checked") %> type="radio" name="MoreLinkType" value="1" onClick=SetMoreLinkType(2)><label for="label2">图片链接</label></td>
<td width="50%" height="24" id=SetMoreLinkType1
<% if MoreLinkType=1 then %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -