📄 news_add.asp
字号:
<input name="AuthorSaveTF" type="checkbox" id="AuthorSaveTF" value="1">
记忆</td>
<td class="hback">
<div align="right"> 来源</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 >
<td class="hback">
<div align="right"> 导读</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 >
<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 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">头条类型：</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">头条参数：</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>
<OPTION value="Georgia">Georgia</OPTION>
<OPTION value="Impact">Impact</OPTION>
<OPTION value="Tahoma">Tahoma</OPTION>
<OPTION value="Times New Roman">Times New Roman</OPTION>
<OPTION value="Trebuchet MS">Trebuchet MS</OPTION>
<OPTION value="Script MT Bold">Script MT Bold</OPTION>
<OPTION value="Stencil">Stencil</OPTION>
<OPTION value="Verdana">Verdana</OPTION>
<OPTION value="Lucida Console">Lucida Console</OPTION>
</SELECT>
<select name="FontSize">
<option value="8">8px</option>
<option value="9">9px</option>
<option value="10">10px</option>
<option value="12">12px</option>
<option value="18">18px</option>
<option value="20">20px</option>
<option value="24">24px</option>
<option value="28">28px</option>
<option value="30">30px</option>
<option value="32">32px</option>
<option value="36">36px</option>
<option value="40">40px</option>
<option value="48">48px</option>
<option value="54">54px</option>
<option value="60">60px</option>
<option value="72">72px</option>
</select>
<input type="text" name="FontColor" maxlength=7 size=7 id="FontColor" value="000000">
<img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontColorShow" style="cursor:pointer;background-Color:#000000;" title="选取颜色!" onClick="GetColor(this,'FontColor');"> 字体间距：
<INPUT TYPE="text" maxlength="3" NAME="FontSpace" size=3 value="12">
px 图片背景色
<input type="text" name="FontBgColor" maxlength=7 size=7 id="FontBgColor" value="FFFFFF">
<img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontBgColorShow" style="cursor:pointer;background-Color:;" title="选取颜色!" onClick="GetColor(this,'FontBgColor');"><br>
图片头条标题：
<input name="PicTitle" type="text" id="PicTitle" size="40" maxlength="255">
图片宽度：
<input name="PicTitlewidth" type="text" id="PicTitlewidth" size="10" maxlength="10">
px </td>
</tr>
</table> </td>
</tr>
<tr id="str_Content">
<td class="hback">
<div align="left">
<input name="NewsProperty_Remote" type="checkbox" id="NewsProperty_Remote" value="1">
远程存图 <br>
<span class="tx">启用此功能后，如果从其它网站上复制到右边的编辑器中，并且中包含有图片，本系统会在保存文章时自动把相关图片复制到本站服务器上。<br>
系统会因所下载图片的大小而影响速度，建议图片较多时不要使用此功能。</span> </div> </td>
<td colspan="3" class="hback">
<!--编辑器开始-->
<pre id="idTemporary" name="idTemporary" style="display:none"></pre>
<script language="JavaScript">
<!--
var FS_Edit1 = new InnovaEditor("FS_Edit1");
FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_ADMIN_DIR %>/CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',670,450)";
FS_Edit1.width="100%";
FS_Edit1.height="360";
FS_Edit1.btnFlash=true;
FS_Edit1.btnMedia=true;
FS_Edit1.btnCustomTag=true;
FS_Edit1.arrCustomTag=[["Fs:Page","[FS:PAGE]"]];
FS_Edit1.RENDER($("idTemporary").innerHTML);
//-->
</script>
<textarea name="Content" style="display:none" ></textarea>
<!--编辑器结束--> </td>
</tr>
<!--自定义自段开始-->
<%
'(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie
If IsArray(CustColumnArr) Then
response.Write"<tr><td colspan=""4"" class=""hback_1""><b>自定义开始</b></td></tr>"
Dim InputModeStr,AuxiInfoList,AuxiListArr,k,tmp_k,i,tmp_nulls_span,tmp_nulls
For i = 0 to Ubound(CustColumnArr,2)
if CustColumnArr(5,i)=0 then
tmp_nulls="onFocus=""Do.these('FS_NS_Define_"&CustColumnArr(3,i)&"',function(){return isEmpty('FS_NS_Define_"&CustColumnArr(3,i)&"','span_FS_NS_Define_"&CustColumnArr(3,i)&"')})"" onKeyUp=""Do.these('FS_NS_Define_"&CustColumnArr(3,i)&"',function(){return isEmpty('FS_NS_Define_"&CustColumnArr(3,i)&"','span_FS_NS_Define_"&CustColumnArr(3,i)&"')})"""
tmp_nulls_span=" <span id=""span_FS_NS_Define_"&CustColumnArr(3,i)&"""></span>"
else
tmp_nulls=""
tmp_nulls_span=""
end if
Select Case CStr(CustColumnArr(4,i)) '根据选择的输入类型生成输入方式
Case 0
Response.Write "<tr ><td class=""hback"" align=""right"">"&CustColumnArr(2,i)&"</td><td colspan=""3"" class=""hback""><input name=""FS_NS_Define_"&CustColumnArr(3,i)&""" type=""test"" style=""width:70%"" value="""&CustColumnArr(6,i)&""" "& tmp_nulls &">"& tmp_nulls_span &" <span class=""tx"">"&CustColumnArr(7,i)&"</span></td></tr>"&vbcrlf
case 1
Response.Write "<tr ><td class=""hback"" align=""right"">"&CustColumnArr(2,i)&"</td><td colspan=""3"" class=""hback""><textarea rows=""4"" name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%"" "& tmp_nulls &">"&CustColumnArr(6,i)&"</textarea>"& tmp_nulls_span &" <span class=""tx"">"&CustColumnArr(7,i)&"</span></td></tr>"&vbcrlf
Case 4
Response.Write "<tr ><td class=""hback"" align=""right"">"&CustColumnArr(2,i)&"</td><td colspan=""3"" class=""hback""><Select Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%"">"&vbcrlf
AuxiListArr=Split(CustColumnArr(6,i),vbcrlf)
For tmp_k = 0 to UBound(AuxiListArr) '读辅助字典的选项信息
If AuxiListArr(tmp_k)<>"" Then
Response.Write"<Option value="""&AuxiListArr(tmp_k)&""">"&AuxiListArr(tmp_k)&"</option>"&vbcrlf
End if
Next
Response.Write "</Select> <span class=""tx"">"&CustColumnArr(7,i)&"</span></td></tr>"&vbcrlf
Case Else '单行，数字，日期
Response.Write "<tr ><td class=""hback"" align=""right"">"&CustColumnArr(2,i)&"</td><td colspan=""3"" class=""hback""><input name=""FS_NS_Define_"&CustColumnArr(3,i)&""" type=""test"" style=""width:70%"" value="""&CustColumnArr(6,i)&""" "& tmp_nulls &">"& tmp_nulls_span &" <span class=""tx"">"&CustColumnArr(7,i)&"</span></td></tr>"&vbcrlf
End Select
Next
response.Write"<tr><td colspan=""4"" class=""hback_1""><b>自定义结束</b></td></tr>"
End If
%>
<!--自定义自段结束-->
<tr id="str_GroupID" style="display:" >
<td class="hback">
<div align="right">浏览点数</div> </td>
<td colspan="3" class="hback">
<input name="PointNumber" type="text" id="PointNumber2" size="16" onChange="ChooseExeName();">
金币
<input name="Money" type="text" id="Money2" size="16" onChange="ChooseExeName();">
浏览权限
<input name="BrowPop" id="BrowPop" type="text" onMouseOver="this.title=this.value;" readonly>
<select name="selectPop" id="selectPop" style="overflow:hidden;" onChange="ChooseExeName();">
<option value="" selected>选择会员组</option>
<option value="del" style="color:red;">清空</option>
<% = MF_GetUserGroupID %>
</select>
<a href="../../help?Lable=NS_News_add_pop" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
</tr>
<tr id="str_FileName" style="display:" >
<td class="hback">
<div align="right">文件名</div> </td>
<td class="hback">
<%
Dim RoTF
if instr(Fs_News.strFileNameRule(Fs_News.fileNameRule,0,0),"自动编号ID")>0 or instr(Fs_News.strFileNameRule(Fs_News.fileNameRule,0,0),"唯一NewsID") then:RoTF="Readonly":End if
Response.Write"<input name=""FileName"" type=""text"" id=""FileName"" size=""40"" "& RoTF &" maxlength=""255"" value="""&Fs_News.strFileNameRule(Fs_News.fileNameRule,0,0)&""" title=""如果参数设置中设定为自动编号，将不能修改"">"
%> </td>
<td class="hback">
<div align="right">扩展名</div> </td>
<td class="hback">
<select name="FileExtName" id="FileExtName">
<option value="html" <%if tmp_sFileExtName = 0 then response.Write("selected")%>>.html</option>
<option value="htm" <%if tmp_sFileExtName = 1 then response.Write("selected")%>>.htm</option>
<option value="shtml" <%if tmp_sFileExtName = 2 then response.Write("selected")%>>.shtml</option>
<option value="shtm" <%if tmp_sFileExtName = 3 then response.Write("selected")%>>.shtm</option>
<option value="asp" <%if tmp_sFileExtName = 4 then response.Write("selected")%>>.asp</option>
</select> </td>
</tr>
<tr >
<td class="hback">
<div align="right">添加日期</div> </td>
<td class="hback">
<input name="addtime" type="text" id="addtime" value="<% = now %>" size="40" maxlength="255"> </td>
<td class="hback">
<div align="right">点击次数</div> </td>
<td class="hback">
<input name="Hits" type="text" id="Hits" value="0" size="20" onFocus="Do.these('Hits',function(){return isNumber('Hits','span_Hits','请填写正确的格式',true)})" onKeyUp="Do.these('Hits',function(){return isNumber('Hits','span_Hits','请填写正确的格式',true)})">
<span id="span_Hits"></span></td>
</tr>
<tr id="IsShowAdpic">
<td class="hback"><div align="right">是否显示画中画</div></td>
<td colspan="3" class="hback"><input name="IsAdPic" type="checkbox" id="IsAdPic" value="1" onClick="javascript:ShowAdpicInfo();" <%If IsAdPic="1" Then Response.Write("checked")%>></td>
</tr>
<tr id="Adpic" style="display:none" class="hback">
<td class="hback" colspan="4"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr>
<td width="12%" height="2" class="hback"><div align="right">画中画参数设置</div></td>
<td width="88%" height="2" class="hback"><input name="AdPicWH" type="text" id="AdPicWH" size="20" maxlength="20" value="<%=AdPicWH%>">
(宽度,高度,左(1)右(0),插入位置在新闻内容前多少字(正整数)：如100,100,1,400)</td>
</tr>
<tr>
<td height="5" class="hback"><div align="right">图片地址</div></td>
<td height="5" class="hback"><input name="AdPicAdress" type="text" id="AdPicAdress" size="20" maxlength="250" readonly value="<%=AdPicAdress%>">
<input name="SelectAdPic" type="button" id="SelectAdPic" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath%>',500,300,window,document.NewsForm.AdPicAdress);" value="选择图片或FLASH">
链接地址
<input name="AdPicLink" type="text" id="AdPicLink" size="36" maxlength="250" value="<%=AdPicLink%>"></td>
</tr>
</table></td>
</tr>
<tr >
<td class="hback">
<div align="right"></div> </td>
<td colspan="3" class="hback"><input type="button" name="Submit3" value="确认保存<% = Fs_news.allInfotitle %>" onClick="SubmitFun(this.form);">
<input type="reset" name="Submit4" value="重新设置">
<input name="News_Action" type="hidden" id="News_Action" value="add_Save">
<input name="d_Id" type="hidden" id="d_Id" value="<%=tmp_defineid%>"></td>
</tr>
</form>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -