📄 news_add_conc.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="lib/cls_main.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_Inc/md5.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<%'Copyright (c)2006 by Foosun Inc. Code by Simpwind.Xie
Dim Conn,User_Conn,sRootDir,tmp_sFileExtName,tmp_sTemplets,tmp_defineid
Dim Fs_news,str_ClassID,news_SQL,obj_news_rs,icNum,isUrlStr,str_Href,str_Href_title,obj_news_rs_1,str_action,obj_cnews_rs,news_count,str_CurrPath
MF_Default_Conn
MF_User_Conn
MF_GetUserGroupID
'session判断
MF_Session_TF
'权限判断
set Fs_news = new Cls_News
Fs_News.GetSysParam()
if Fs_News.isOpen=0 then
Response.Redirect("lib/error.asp?ErrCodes=<li>新闻发布功能关闭!</li>&ErrorURL=")
Response.End()
end if
If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
str_ClassID = NoSqlHack(Request.QueryString("ClassID"))
if not Get_SubPop_TF(str_ClassID,"NS001","NS","news") then Err_Show
if Trim(str_ClassID)<>"" then
Dim tmp_class_obj
set tmp_class_obj = conn.execute("select FileExtName,NewsTemplet,DefineID from FS_NS_NewsClass where classID='"& str_ClassID &"'")
if not tmp_class_obj.eof then
Select Case tmp_class_obj(0)
Case "html"
tmp_sFileExtName = 0
Case "htm"
tmp_sFileExtName =1
Case "shtml"
tmp_sFileExtName = 2
Case "shtm"
tmp_sFileExtName = 3
Case "asp"
tmp_sFileExtName = 4
End Select
tmp_sTemplets = tmp_class_obj(1)
tmp_defineid = tmp_class_obj(2)
tmp_class_obj.close:set tmp_class_obj=nothing
Else
tmp_defineid = 0
tmp_sFileExtName = fs_news.fileExtName
tmp_sTemplets = Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")
end if
Else
tmp_sFileExtName = fs_news.fileExtName
tmp_sTemplets = Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")
End if
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
If Session("Admin_FilesTF") = 0 Then
str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
Else
str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
End If
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理___Powered by foosun Inc.</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<link rel="Stylesheet" href="../../word_edit/images/word_edit.css" type="text/css" media="all" />
</head>
<body>
<script language="JavaScript" src="js/Public.js"></script>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../FS_Inc/Prototype.js" type="text/JavaScript"></script>
<script language="JavaScript" src="../../FS_Inc/CheckJs.js" type="text/JavaScript"></script>
<script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
<script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
<iframe width="260" height="165" id="colorPalette" src="lib/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
<form action="News_Save.asp" name="NewsForm" method="post">
<tr class="xingmu">
<td colspan="4" class="xingmu">添加
<% = Fs_news.allInfotitle %>
<a href="../../help?Lable=NS_News_add" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr class="hback">
<td class="hback">
<div align="right">
<table width="95" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
<% = Fs_news.allInfotitle %>
类型 </div>
</td>
<td colspan="3" class="hback">
<input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TextNews');" value="TextNews" checked>
普通
<input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('PicNews');" value="PicNews">
图片
<input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TitleNews');" value="TitleNews">
标题
<input name="isdraft" type="checkbox" id="isdraft" value="1">
存到草稿箱中</td>
</tr>
<tr class="hback">
<td width="12%" class="hback">
<div align="right">
<% = Fs_news.allInfotitle %>
标题</div>
</td>
<td colspan="3" class="hback">
<input name="NewsTitle" type="text" id="NewsTitle" size="40" maxlength="255">
<input name="TitleColor" id="TitleColor" type="hidden">
<img src="images/rectNoColor.gif" width="18" height="17" border=0 align="absmiddle" id="TitleColorShow" style="cursor:pointer;background-color:;" title="选取颜色!" onClick="GetColor(document.getElementById('TitleColorShow'),'TitleColor');">
<input name="titleBorder" type="checkbox" id="titleBorder" value="1">
粗体
<input name="TitleItalic" type="checkbox" id="TitleItalic" value="1">
斜体
<input name="isShowReview" type="checkbox" id="isShowReview" value="1">
评论连接 权重
<select name="PopID" id="PopID">
<option value="5">总置顶</option>
<option value="4">栏目置顶</option>
<option value="0" selected>一般</option>
</select>
</td>
</tr>
<tr class="hback">
<td class="hback">
<div align="right">选择栏目</div>
</td>
<td colspan="3" class="hback">
<input name="ClassName" type="text" id="ClassName5" style="width:50%" value="<%=Fs_News.GetAdd_ClassName(str_ClassID)%>" readonly>
<input name="ClassID" type="hidden" id="ClassID" value="<% = str_ClassID %>">
<input type="button" name="Submit" value="选择栏目" onClick="SelectClass();">
</td>
</tr>
<tr class="hback" style="display:none">
<td class="hback">
<div align="right">选择专题</div>
</td>
<td colspan="3" class="hback">
<input name="SpecialID" type="text" id="SpecialID" style="width:50%" readonly>
<input name="SpecialID_EName" type="hidden" id="SpecialID_EName">
<span class="tx"> </span>
<input type="button" name="Submit" value="选择专题" onClick="SelectSpecial();">
<span class="tx">
<input name="Submit" type="button" id="Submit" onClick="dospclear();" value="清除专题">
</span> <span class="tx"> 可多选</span> <a href="../../help?Lable=NS_News_add_special" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr class="hback" id="str_URLAddress" style="display:none;">
<td class="hback">
<div align="right">连接地址 </div>
</td>
<td colspan="3" class="hback">
<input name="URLAddress" type="text" id="URLAddress" style="width:96%" maxlength="255">
</td>
</tr>
<tr class="hback" id="str_CurtTitle" style="display:none">
<td class="hback">
<div align="right"> 副标题</div>
</td>
<td width="38%" class="hback">
<input name="CurtTitle" type="text" id="CurtTitle" size="40" maxlength="255">
</td>
<td width="10%" class="hback">
<div align="right">关键字</div>
</td>
<td width="40%" class="hback">
<input name="KeywordText" type="text" id="KeywordText" size="15" maxlength="255">
<input name="KeyWords" type="hidden" id="KeyWords">
<select name="selectKeywords" id="selectKeywords" style="width:120px" onChange=Dokesite(this.options[this.selectedIndex].value)>
<option value="" selected>选择关键字</option>
<option value="Clean" style="color:red">清空</option>
<%=Fs_news.GetKeywordslist("",1)%>
</select>
<input name="KeywordSaveTF" type="checkbox" id="KeywordSaveTF" value="1">
记忆</td>
</tr>
<tr class="hback" id="str_Templet">
<td class="hback">
<div align="right">模板地址</div>
</td>
<td colspan="3" class="hback">
<input name="Templet" type="text" id="Templet" style="width:85%" value="<%=tmp_sTemplets%>" maxlength="255" readonly>
<input name="Submit5" type="button" id="selNewsTemplet" value="选择模板" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.NewsForm.Templet);document.NewsForm.Templet.focus();">
</td>
</tr>
<tr class="hback" id="str_NewsSmallPicFile" style="display:none">
<td class="hback">
<div align="right">图片(小)</div>
</td>
<td colspan="3" class="hback">
<input name="NewsSmallPicFile" type="text" id="NewsSmallPicFile" style="width:85%" maxlength="255">
<input type="button" name="PPPChoose" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.NewsForm.NewsSmallPicFile);">
</td>
</tr>
<tr class="hback" id="str_NewsPicFile" style="display:none">
<td class="hback">
<div align="right">图片(大)</div>
</td>
<td colspan="3" class="hback">
<input name="NewsPicFile" type="text" id="NewsPicFile" style="width:85%" maxlength="255">
<input type="button" name="PPPChoose2" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.NewsForm.NewsPicFile);">
</td>
</tr>
<tr class="hback" id="str_PicborderCss" style="display:none">
<td class="hback">
<div align="right">图片CSS</div>
</td>
<td colspan="3" class="hback">
<select name="PicborderCss" id="PicborderCss">
<option value="1" selected>图片CSS样式一</option>
<option value="2">图片CSS样式二</option>
<option value="3">图片CSS样式三</option>
<option value="4">图片CSS样式四</option>
<option value="5">图片CSS样式五</option>
</select>
图片前台显示CSS样式，方便加边框 <a href="../../help?Lable=NS_News_add_PicCSS" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr class="hback" id="str_Author" style="display:none">
<td class="hback">
<div align="right">
<% = Fs_news.allInfotitle %>
作者</div>
</td>
<td class="hback">
<input name="Author" type="text" id="Author" size="15" maxlength="255">
<select name="selectAuthor" id="selectAuthor" style="width:120px" onChange="document.NewsForm.Author.value=this.options[this.selectedIndex].text;">
<option style="color:red"> </option>
<option value="佚名">佚名</option>
<option value="本站">本站</option>
<option value="未知">未知</option>
<%=Fs_news.GetKeywordslist("",3)%>
</select>
<input name="AuthorSaveTF" type="checkbox" id="AuthorSaveTF" value="1">
记忆</td>
<td class="hback">
<div align="right">
<% = Fs_news.allInfotitle %>
来源</div>
</td>
<td class="hback">
<input name="Source" type="text" id="Source" size="15" maxlength="255">
<select name="selectSource" id="selectSource" style="width:120px" onChange="document.NewsForm.Source.value=this.options[this.selectedIndex].text;">
<option value="" selected> </option>
<option value="本站原创">本站原创</option>
<option value="不详">不详</option>
<%=Fs_news.GetKeywordslist("",2)%>
</select>
<input name="SourceSaveTF" type="checkbox" id="SourceSaveTF" value="1">
记忆</td>
</tr>
<tr class="hback" style="display:none">
<td class="hback">
<div align="right">
<% = Fs_news.allInfotitle %>
导读</div>
</td>
<td colspan="3" class="hback">
<div align="left">
<textarea name="NewsNaviContent" rows="6" id="NewsNaviContent" style="width:96%"></textarea>
</div>
</td>
</tr>
<tr class="hback">
<td class="hback">
<div align="right">类型</div>
</td>
<td colspan="3" class="hback">
<div align="left">
<input name="NewsProperty_Rec" type="checkbox" id="NewsProperty" value="1">
推荐
<input name="NewsProperty_mar" type="checkbox" id="NewsProperty" value="1" checked>
滚动
<input name="NewsProperty_rev" type="checkbox" id="NewsProperty" value="1" checked>
允许评论
<input name="NewsProperty_constr" type="checkbox" id="NewsProperty" value="1">
投稿
<input name="NewsProperty_tt" type="checkbox" id="NewsProperty" value="1" onClick="ChooseTodayNewsType();">
头条
<input name="NewsProperty_hots" type="checkbox" id="NewsProperty" value="1" disabled="disabled">
热点
<input name="NewsProperty_jc" type="checkbox" id="NewsProperty" value="1">
精彩
<input name="NewsProperty_unr" type="checkbox" id="NewsProperty" value="1">
不规则
<input name="NewsProperty_ann" type="checkbox" id="NewsProperty" value="1">
公告 <span id="str_filt" style="display:none">
<input name="NewsProperty_filt" type="checkbox" id="NewsProperty" value="1">
幻灯</span></div>
</td>
</tr>
<tr bgcolor="#FFFFFF" id="TodayNews" style="display:none;">
<td colspan="4" class="hback">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="table">
<tr>
<td height="26" align="center" width="120" class="xingmu">头条
<% = Fs_news.allInfotitle %>
类型：</td>
<td height="26" class="hback">
<input name="TodayNewsPicTF" value="" type="radio" checked onClick="if(this.checked){document.getElementById('TodayPicParam').style.display='none';}">
文字头条
<input name="TodayNewsPicTF" value="FoosunCMS" type="radio" onClick="if(this.checked){document.getElementById('TodayPicParam').style.display='';}">
图片头条 <a href="../../help?Lable=NS_News_add_tt" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr id="TodayPicParam" style="display:none;">
<td width="120" height="26" align="center" class="xingmu">头条
<% = Fs_news.allInfotitle %>
参数：</td>
<td height="26" class="hback"> 字体
<SELECT name="FontFace" id="FontFace">
<option value="宋体">宋体</option>
<option value="楷体_GB2312">楷体</option>
<option value="新宋体">新宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<OPTION value="Andale Mono">Andale Mono</OPTION>
<OPTION value="Arial">Arial</OPTION>
<OPTION value="Arial Black">Arial Black</OPTION>
<OPTION value="Book Antiqua" >Book Antiqua</OPTION>
<OPTION value="Century Gothic">Century Gothic</OPTION>
<OPTION value="Comic Sans MS">Comic Sans MS</OPTION>
<OPTION value="Courier New">Courier New</OPTION>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -