📄 news_add.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
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,IsAdPic,AdPicWH,AdPicLink,AdPicAdress
MF_Default_Conn
MF_User_Conn
MF_GetUserGroupID
MF_Session_TF
if not MF_Check_Pop_TF("NS013") then
if not MF_Check_Pop_TF("NS001") then Err_Show
end if
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
str_ClassID = NoSqlHack(Request.QueryString("ClassID"))
if str_ClassId<>"" then
if not Get_SubPop_TF(str_ClassID,"NS001","NS","news") then Err_Show
Dim GetClassAdPicInfoRs,GetClassAdPicInfoSql
GetClassAdPicInfoSql="Select IsAdPic,AdPicWH,AdPicLink,AdPicAdress From FS_NS_NewsClass Where ClassID='"&str_ClassId&"'"
Set GetClassAdPicInfoRs=Conn.execute(GetClassAdPicInfoSql)
If Not GetClassAdPicInfoRs.Eof Then
IsAdPic=GetClassAdPicInfoRs("IsAdPic")
AdPicWH=GetClassAdPicInfoRs("AdPicWH")
AdPicLink=GetClassAdPicInfoRs("AdPicLink")
AdPicAdress=GetClassAdPicInfoRs("AdPicAdress")
End If
GetClassAdPicInfoRs.Close
Set GetClassAdPicInfoSql=Nothing
end if
if Trim(str_ClassID)<>"" then
Dim tmp_class_obj,tmp_defineid
set tmp_class_obj = conn.execute("select FileExtName,NewsTemplet,DefineID from FS_NS_NewsClass where classID='"& str_ClassID &"'")
if tmp_class_obj.eof then
tmp_class_obj.close:set tmp_class_obj = nothing
response.Write "错误的参数,找不到栏目"
Response.end
end if
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)
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
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
'获取辅助字段信息,保存到数组CustColumnArr中
'(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie
if not isnull(trim(tmp_defineid)) or trim(tmp_defineid)>0 then
Dim CustColumnRs,CustSql,CustColumnArr
CustSql="select DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType from [FS_MF_DefineTable] Where D_SubType='NS' and Classid="& tmp_defineid &""
Set CustColumnRs=CreateObject(G_FS_RS)
CustColumnRs.Open CustSql,Conn,1,3
If Not CustColumnRs.Eof Then
CustColumnArr=CustColumnRs.GetRows()
End If
CustColumnRs.close:Set CustColumnRs = Nothing
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">
<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>
</head>
<body>
<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="5" cellspacing="1" class="table">
<tr>
<td class="hback"><a href="News_Manage.asp">栏目管理</a>┆<a href="News_Manage.asp?ClassId=<%=Request.QueryString("ClassId")%>">返回本类栏目管理</a></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 >
<td class="hback">
<div align="right">
<table width="95" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
</table>
类型 </div> </td>
<td colspan="3" class="hback">
<input name=NewsType type=radio onClick="SwitchNewsType('TextNews');" value="TextNews" checked>
普通
<input name=NewsType type=radio onClick="SwitchNewsType('PicNews');" value="PicNews">
图片
<input name=NewsType type=radio onClick="SwitchNewsType('TitleNews');" value="TitleNews">
标题
<input name="isdraft" type="checkbox" id="isdraft" value="1">
存到草稿箱中</td>
</tr>
<tr >
<td width="12%" class="hback">
<div align="right"> 标题</div> </td>
<td colspan="3" class="hback">
<input name="NewsTitle" type="text" id="NewsTitle" size="40" maxlength="255" onFocus="Do.these('NewsTitle',function(){return isEmpty('NewsTitle','span_NewsTitle')})" onKeyUp="Do.these('NewsTitle',function(){return isEmpty('NewsTitle','span_NewsTitle')})" style="background-image:url(../Images/bg.gif);">
<span id="span_NewsTitle"></span>
<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 >
<td class="hback">
<div align="right">选择栏目</div> </td>
<td colspan="3" class="hback">
<input name="ClassName" type="text" id="ClassName" style="width:50%" value="<%=Fs_News.GetAdd_ClassName(str_ClassID)%>" readonly onFocus="Do.these('ClassName',function(){return isEmpty('ClassName','span_ClassName')})" onKeyUp="Do.these('ClassName',function(){return isEmpty('ClassName','span_ClassName')})">
<input name="ClassID" type="hidden" id="ClassID" value="<% = str_ClassID %>">
<input type="button" name="Submit" value="选择栏目" onClick="SelectClass();">
<input type="button" name="Submit2" value="添加栏目" onClick="window.location.href='Class_add.asp?ClassID=<%=str_ClassID %>&Action=add'">
<span id="span_ClassName"></span> </td>
</tr>
<tr >
<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 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 id="str_CurtTitle" style="display:" >
<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 id="str_Templet" style="display:" >
<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 id="str_NewsSmallPicFile" style="display:none">
<td class="hback">
<div align="right">选择图片地址</div> </td>
<td colspan="3" class="hback">
<table width="417" border="0" cellspacing="1" cellpadding="5">
<tr>
<td width="50%">
<table width="10" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="hback"><img src="../Images/nopic_supply.gif" id="pic_p_1" onload="Javascript:if(this.width > 90 || this.height > 90){if(this.width > this.height){this.width=90;}else{this.height=90;}}" /></td>
</tr>
</table>
<div align="center">
<input name="NewsSmallPicFile" type="hidden" id="NewsSmallPicFile" style="width:85%" maxlength="255">
<img src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',500,320,window,document.NewsForm.NewsSmallPicFile);" style="cursor:hand;"> <img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_1();" style="cursor:hand;"> </div> </td>
<td width="50%">
<table width="10" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="hback"><img src="../Images/nopic_supply.gif" id="pic_p_2" onload="Javascript:if(this.width > 90 || this.height > 90){if(this.width > this.height){this.width=90;}else{this.height=90;}}" /></td>
</tr>
</table>
<div align="center">
<input name="NewsPicFile" type="hidden" id="NewsPicFile" style="width:85%" maxlength="255">
<img src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',500,320,window,document.NewsForm.NewsPicFile);" style="cursor:hand;"> <img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_2();" style="cursor:hand;"> </div> </td>
</tr>
<tr>
<td class="hback">
<div align="center">小图地址</div> </td>
<td class="hback">
<div align="center">大图地址</div> </td>
</tr>
</table> </td>
</tr>
<tr id="str_Author" style="display:" >
<td class="hback">
<div align="right"> 作者</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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -