📄 news_c_label.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim Conn
MF_Default_Conn
'session判断
MF_Session_TF
if not MF_Check_Pop_TF("MF_sPublic") then Err_Show
Dim obj_label_style_Rs,label_style_List
label_style_List=""
Set obj_label_style_Rs = server.CreateObject(G_FS_RS)
obj_label_style_Rs.Open "Select ID,StyleName from FS_MF_Labestyle where StyleType='NS' Order by id desc",Conn,1,3
do while Not obj_label_style_Rs.eof
label_style_List = label_style_List&"<option value="""& obj_label_style_Rs(0)&""">"& obj_label_style_Rs(1)&"</option>"
obj_label_style_Rs.movenext
loop
obj_label_style_Rs.close:set obj_label_style_Rs = nothing
Dim obj_special_Rs,label_special_List
label_special_List=""
Set obj_special_Rs = server.CreateObject(G_FS_RS)
obj_special_Rs.Open "Select SpecialID,SpecialCName,specialEName from FS_NS_Special Order by SpecialID desc",Conn,1,3
do while Not obj_special_Rs.eof
label_special_List = label_special_List&"<option value="""& obj_special_Rs(2)&""">"& obj_special_Rs(1)&"</option>"
obj_special_Rs.movenext
loop
obj_special_Rs.close:set obj_special_Rs = nothing
'================================
'获取新闻子系统自由标签下拉列表
'================================
Function GetNewsFreeList(SysType)
Dim Rs,Sql
Sql = "Select LabelID,LabelName From FS_MF_FreeLabel Where ID > 0 And SysType = '" & SysType & "'"
Set Rs = Conn.ExeCute(Sql)
GetNewsFreeList = "<select name=""FreeList"" id=""FreeList"">" & vbnewline
GetNewsFreeList = GetNewsFreeList & "<option value="""">选择自由标签</option>"
If Rs.Eof Then
GetNewsFreeList = GetNewsFreeList & ""
Else
Do While Not Rs.Eof
GetNewsFreeList = GetNewsFreeList & "<option value=""" & Rs(0) & """>" & Rs(1) & "</option>" & vbnewline
Rs.MoveNext
Loop
End If
GetNewsFreeList = GetNewsFreeList & "</select>" & vbnewline
Rs.Close : Set Rs = NOthing
End Function
%>
<html>
<head>
<title>新闻标签管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<base target=self>
</head>
<body class="hback">
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<form name="form1" method="post">
<table width="98%" height="29" border="0" align=center cellpadding="3" cellspacing="1" class="table" valign=absmiddle>
<tr class="hback" >
<td height="27" align="Left" class="xingmu">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" class="xingmu"><strong>常规标签创建</strong></td>
<td width="80%">
<div align="right">
<input name="button4" type="button" onClick="window.returnValue='';window.close();" value="关闭">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
<tr class="hback">
<td width="13%" height="15">
<div align="center"><a href="News_C_Label.asp?type=ReadNews" target="_self">新闻浏览</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=AllCode" target="_self">通用调用</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=FlashFilt" target="_self">FLASH幻灯</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=NorFilt" target="_self">轮换幻灯</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=siteMap" target="_self">站点地图</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=TodayWord" target="_self">文字头条</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=TodayPic" target="_self">图片头条</a></div>
</td>
<td width="13%">
<div align="center"><a href="News_C_Label.asp?type=Search" target="_self">搜索表单</a></div>
</td>
</tr>
<tr class="hback">
<td>
<div align="center"><a href="News_C_Label.asp?type=ClassNavi" target="_self">栏目导航</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=SpecialNavi" target="_self">专题导航</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=RssFeed" target="_self">RSS聚合</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=SpecialCode" target="_self">专题调用</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=ClassCode" target="_self">栏目调用</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=infoStat" target="_self">信息统计</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=c_news" target="_self">相关新闻</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=c_ext" target="_self"></a><a href="News_C_Label.asp?type=OldNews" target="_self">归档标签</a></div>
</td>
</tr>
<tr class="hback">
<td>
<div align="center"><a href="News_C_Label.asp?type=ClassInfo" target="_self">栏目信息</a></div>
</td>
<td>
<div align="center"><a href="News_C_Label.asp?type=FreeLabel" target="_self">自由标签</a></div>
</td>
<td>
<div align="center"></div>
</td>
<td>
<div align="center"></div>
</td>
<td>
<div align="center"></div>
</td>
<td>
<div align="center"></div>
</td>
<td>
<div align="center"></div>
</td>
<td>
<div align="center"></div>
</td>
</tr>
</table>
<%
select case Request.QueryString("type")
case "ReadNews"
call readnews()
case "OldNews"
call OldNews()
case "FlashFilt"
call FlashFilt()
case "NorFilt"
call NorFilt()
case "siteMap"
call siteMap()
case "Search"
call Search()
case "infoStat"
call infoStat()
case "TodayPic"
call TodayPic()
case "TodayWord"
call TodayWord()
case "ClassNavi"
call ClassNavi()
case "SpecialNavi"
call SpecialNavi()
case "RssFeed"
call RssFeed()
case "SpecialCode"
call SpecialCode()
case "ClassCode"
call ClassCode()
Case "OldNews"
call OldNews()
Case "c_news"
call c_news()
Case "AllCode"
call AllCode()
Case "ClassInfo"
call ClassInfo()
Case "FreeLabel"
call FreeLabel()
case else
call readnews()
end select
%>
<%sub readnews()%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td width="21%" class="hback">
<div align="right">引用样式</div>
</td>
<td width="79%" class="hback">
<select id="NewsStyle" name="NewsStyle" style="width:40%">
<% = label_style_List %>
</select>
<input name="button3" type="button" id="button32" onClick="showModalDialog('News_label_styleread.asp?ID='+document.form1.NewsStyle.value,'WindowObj','dialogWidth:420pt;dialogHeight:180pt;status:yes;help:no;scroll:yes;');" value="查看">
<span class="tx">请在各个子系统中建立前台页面新闻显示样式</span> </td>
</tr>
<tr>
<td class="hback">
<div align="right">显示日期格式</div>
</td>
<td class="hback">
<input name="DateStyle" type="text" id="DateStyle" value="YY02-MM-DD HH:MI:SS" size="28">
<span class="tx">格式:YY02代表2位的年份(如06表示2006年),YY04表示4位数的年份(2006)，MM代表月，DD代表日，HH代表小时，MI代表分，SS代表秒</span></td>
</tr>
<tr>
<td class="hback">
<div align="right"></div>
</td>
<td class="hback">
<input name="button" type="button" onClick="ok(this.form);" value="确定创建此标签">
<input name="button" type="button" onClick="window.returnValue='';window.close();" value=" 取 消 ">
</td>
</tr>
</table>
<script language="JavaScript" type="text/JavaScript">
function ok(obj)
{
var retV = '{FS:NS=ReadNews┆';
retV+='引用样式$' + obj.NewsStyle.value + '┆';
retV+='日期格式$' + obj.DateStyle.value + '';
retV+='}';
window.parent.returnValue = retV;
window.close();
}
</script>
<%end sub%>
<%sub c_news()%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td class="hback">
<div align="right">根据条件</div>
</td>
<td class="hback">
<label>
<select name="ifelse" id="ifelse" onChange="if(this.options[this.selectedIndex].value=='3')ifelsearea.style.display=''; else ifelsearea.style.display='none';">
<option value="0">新闻标题相关</option>
<option value="1" selected>新闻关键字相关</option>
<option value="2">关键字和标题相关</option>
<option value="3">标题关联某个关键字</option>
</select>
<span id="ifelsearea" style="display:none">
<select name="ifelsetype" id="ifelsetype">
<%=PrintOption("=","==:等于,<>:不等于,*s:以开头,*e:以结尾,**:像")%>
</select>
<input type="text" maxlength="3" name="ifelsevalue" id="ifelsevalue" title="指定源新闻的关键字序号.如关键字:江苏,周庄图片,指定1表示江苏,2表示周庄图片"
onKeyUp="value=value.replace(/[^0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^0-9]/g,''))" onMouseOver="this.focus();">
</span> </label>
</td>
</tr>
<tr>
<td width="21%" class="hback">
<div align="right">显示数量</div>
</td>
<td width="79%" class="hback">
<label>
<input name="titleNumber" type="text" id="titleNumber" value="10">
</label>
</td>
</tr>
<tr>
<td class="hback">
<div align="right">显示标题字数</div>
</td>
<td class="hback">
<label>
<input name="leftTitle" type="text" id="leftTitle" value="40">
中文占2个字符</label>
</td>
</tr>
<tr>
<td width="21%" class="hback">
<div align="right">引用样式</div>
</td>
<td width="79%" class="hback">
<select id="NewsStyle" name="NewsStyle" style="width:40%">
<% = label_style_List %>
</select>
<input name="button3" type="button" id="button32" onClick="showModalDialog('News_label_styleread.asp?ID='+document.form1.NewsStyle.value,'WindowObj','dialogWidth:420pt;dialogHeight:180pt;status:yes;help:no;scroll:yes;');" value="查看">
<span class="tx">请在各个子系统中建立前台页面新闻显示样式</span> </td>
</tr>
<tr>
<td class="hback">
<div align="right"></div>
</td>
<td class="hback">
<input name="button" type="button" onClick="ok(this.form);" value="确定创建此标签">
<input name="button" type="button" onClick="window.returnValue='';window.close();" value=" 取 消 ">
</td>
</tr>
</table>
<script language="JavaScript" type="text/JavaScript">
function ok(obj)
{
var value3='';
if(obj.ifelse.value=='3')
{
if (obj.ifelsevalue.value=='') {alert('请指定源新闻的关键字序号.');obj.ifelsevalue.focus();return false;}
value3 = obj.ifelse.value+''+obj.ifelsetype.value+obj.ifelsevalue.value;
}
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -