📄 down_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/DS_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='DS' 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_DS_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="66%" class="xingmu"><strong>常规标签创建</strong></td>
<td width="34%"><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="down_C_Label.asp?type=ReadNews" target="_self">下载浏览</a></div></td>
<td width="12%"><div align="center"><a href="down_C_Label.asp?type=ClassNavi" target="_self">栏目导航</a></div></td>
<td width="16%"><div align="center"><a href="down_C_Label.asp?type=siteMap" target="_self">站点地图</a></div></td>
<td width="15%"><div align="center"><a href="down_C_Label.asp?type=Search" target="_self">搜索表单</a></div></td>
<td width="16%"><div align="center"><a href="down_C_Label.asp?type=infoStat" target="_self">信息统计</a></div></td>
<td width="16%"><div align="center"><a href="down_C_Label.asp?type=down_relative" target="_self">相关下载</a></div></td>
</tr>
<tr class="hback">
<td><div align="center"><a href="down_C_Label.asp?type=SpecialNavi" target="_self">专区导航</a></div></td>
<td><div align="center"><a href="down_C_Label.asp?type=SpecialCode" target="_self">专区调用</a></div></td>
<td><div align="center"><a href="down_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>
</tr>
</table>
<%
select case Request.QueryString("type")
case "ReadNews"
call readnews()
case "siteMap"
call siteMap()
case "Search"
call Search()
case "infoStat"
call infoStat()
case "ClassNavi"
call ClassNavi()
case "SpecialNavi"
call SpecialNavi()
case "SpecialCode"
call SpecialCode()
case "down_relative"
call down_relative()
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:DS=ReadNews┆';
retV+='引用样式$' + obj.NewsStyle.value + '┆';
retV+='日期格式$' + obj.DateStyle.value + '';
retV+='}';
window.parent.returnValue = retV;
window.close();
}
</script>
<%end sub%>
<%sub siteMap()%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td width="22%" class="hback"><div align="right">选择栏目</div></td>
<td width="78%" class="hback"> <input name="ClassName" type="text" id="ClassName" size="12" readonly>
<input name="ClassID" type="hidden" id="ClassID"> <input name="button22" type="button" onClick="SelectClass();" value="选择栏目">
<span class="tx"></span></td>
</tr>
<tr style="display:none">
<td class="hback"><div align="right">排列方式</div></td>
<td class="hback"><select name="cols" id="cols">
<option value="0" selected>横向</option>
<option value="1">纵向</option>
</select></td>
</tr>
<tr>
<td class="hback"><div align="right">标题CSS</div></td>
<td class="hback"><input name="Titlecss" type="text" id="Titlecss" size="12" ></td>
</tr>
<tr>
<td class="hback"><div align="right"></div></td>
<td class="hback"> <input name="button2" type="button" onClick="ok(this.form);" value="确定创建此标签">
<input name="button2" type="button" onClick="window.returnValue='';window.close();" value=" 取 消 "></td>
</tr>
</table>
<script language="JavaScript" type="text/JavaScript">
function ok(obj)
{
var retV = '{FS:DS=siteMap┆';
retV+='栏目$' + obj.ClassID.value + '┆';
retV+='标题CSS$' + obj.Titlecss.value + '';
retV+='}';
window.parent.returnValue = retV;
window.close();
}
</script>
<%end sub%>
<%sub SpecialNavi()%>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td width="22%" class="hback">
<div align="right">输出格式</div>
</td>
<td width="78%" class="hback">
<select name="out_char" id="out_char" onChange="selectHtml_express(this.options[this.selectedIndex].value);">
<option value="out_Table">普通格式</option>
<option value="out_DIV">DIV+CSS格式</option>
</select>
</td>
</tr>
<tr class="hback" id="div_id" style="font-family:宋体;display:none;" >
<td rowspan="3" align="center" class="hback">
<div align="right"></div>
<div align="right">DIV控制</div>
</td>
<td colspan="3" class="hback" ><div id="
<input name="DivID" type="text" id="DivID" size="6" disabled 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" 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中预先定义。可以为空!!">
"> <span class="tx">对生成列表进行定位，样式控制,ID定义</span></td>
</tr>
<tr class="hback" id="ul_id" style="font-family:宋体;display:none;">
<td colspan="3" class="hback" ><ul id="
<input 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 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中预先定义。可以为空!!">
"> <span class="tx">对生成列表进行定位，样式控制,ID定义</span></td>
</tr>
<tr class="hback" id="li_id" style="font-family:宋体;display:none;">
<td colspan="3" class="hback" ><li id="
<input 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 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中预先定义。可以为空!!">
"> <span class="tx">对生成列表进行定位，样式控制,ID定义</span></td>
</tr>
<tr>
<td class="hback">
<div align="right">排列方式</div>
</td>
<td class="hback">
<select name="cols" id="cols">
<option value="0" selected>横向</option>
<option value="1">纵向</option>
</select>
</td>
</tr>
<tr>
<td class="hback">
<div align="right">专题CSS</div>
</td>
<td class="hback">
<input name="Titlecss" type="text" id="Titlecss" size="12" >
</td>
</tr>
<tr>
<td class="hback">
<div align="right">标题导航图片/文字</div>
</td>
<td class="hback">
<label>
<input name="TitleNavi" type="text" id="TitleNavi" value="·">
请使用html语法</label>
</td>
</tr>
<tr>
<td class="hback">
<div align="right"></div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -