📄 news_edit.asp
字号:
sp_array = split(str_SpecialEName,",")
for sp_i = 0 to ubound(sp_array)
set sp_rs=Conn.execute("select SpecialCName From FS_NS_Special where SpecialEName='"& sp_array(sp_i) &"' ")
if not sp_rs.eof then
if sp_i = ubound(sp_array) then
sp_char = sp_char&sp_rs("SpecialCName")
else
sp_char = sp_char&sp_rs("SpecialCName")&","
end if
end if
sp_rs.close:set sp_rs = nothing
next
sp_char = sp_char
end if
%>
<td colspan="3" class="hback">
<input name="SpecialID" type="text" id="SpecialID" style="width:45%" readonly value="<% = sp_char%>">
<input name="SpecialID_EName" type="hidden" id="SpecialID_EName" value="<%=str_SpecialEName%>">
<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:<%=str_URLAddress_1%>;" >
<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" value="<%=str_URLAddress%>">
</td>
</tr>
<tr id="str_CurtTitle" style="display:<%=str_CurtTitle_1%>" >
<td class="hback">
<div align="right"> 副标题</div>
</td>
<td width="38%" class="hback">
<input name="CurtTitle" type="text" id="CurtTitle" size="40" maxlength="255" value="<%=str_CurtTitle%>">
</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" value="<%=str_Keywords%>">
<input name="KeyWords" type="hidden" id="KeyWords" value="<%=str_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:<%=str_Templet_1%>" >
<td class="hback">
<div align="right">模板地址</div>
</td>
<td colspan="3" class="hback">
<input name="Templet" type="text" id="Templet" style="width:85%" value="<%=str_Templet%>" 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:<%=str_NewsSmallPicFile_1%>">
<td class="hback">
<div align="right">图片(小)</div>
<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>
<%if isnull(trim(str_NewsSmallPicFile)) or str_NewsSmallPicFile="" then%>
<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>
<%else%>
<td class="hback"><img src="<%=str_NewsSmallPicFile%>" id="pic_p_1" /></td>
<%end if%>
</tr>
</table>
<div align="center">
<div align="center">
<input name="NewsSmallPicFile" type="hidden" id="NewsSmallPicFile" style="width:85%" maxlength="255" value="<%=str_NewsSmallPicFile%>">
<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>
</div>
</td>
<td width="50%">
<table width="10" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<%if isnull(trim(str_NewsPicFile)) or str_NewsPicFile="" then%>
<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>
<%else%>
<td class="hback"><img src="<%=str_NewsPicFile%>" id="pic_p_2" /></td>
<%end if%>
</tr>
</table>
<div align="center">
<div align="center">
<input name="NewsPicFile" type="hidden" id="NewsPicFile" style="width:85%" maxlength="255" value="<%=str_NewsPicFile%>">
<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>
</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:<%=str_Author_1%>" >
<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" value="<%=str_Author%>" >
<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" value="<%=str_Source%>">
<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">
<input name="NewsProperty_Rec" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(0)="1" then Response.Write("checked")%>>
推荐
<input name="NewsProperty_mar" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(1)="1" then Response.Write("checked")%>>
滚动
<input name="NewsProperty_rev" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(2)="1" then Response.Write("checked")%>>
允许评论
<input name="NewsProperty_constr" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(3)="1" then Response.Write("checked")%>>
投稿
<input name="NewsProperty_tt" type="checkbox" id="NewsProperty" value="1" onClick="ChooseTodayNewsType();" <%if split(str_NewsProperty,",")(5)="1" then Response.Write("checked")%>>
头条
<input name="NewsProperty_hots" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(6)="1" then Response.Write("checked")%> disabled="disabled">
热点
<input name="NewsProperty_jc" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(7)="1" then Response.Write("checked")%>>
精彩
<input name="NewsProperty_unr" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(8)="1" then Response.Write("checked")%>>
不规则
<input name="NewsProperty_ann" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(9)="1" then Response.Write("checked")%>>
公告 <span id="str_filt" style="display:<%=str_filt_1%>">
<input name="NewsProperty_filt" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(10)="1" then Response.Write("checked")%>>
幻灯</span></div>
</td>
</tr>
<tr id="TodayNews" style="display:<%if split(str_NewsProperty,",")(5) =1 then:response.Write(";"):else:Response.Write("none;"):end if%>" >
<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='';}" <%if str_TodayNewsPic=1 then Response.Write("checked")%>>
图片头条 <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:<%if str_TodayNewsPic =1 then:response.Write(";"):else:Response.Write("none;"):end if%>;" >
<td width="120" height="26" align="center" class="xingmu">头条参数：</td>
<td height="26" class="hback"> 字体
<%
Dim Get_TodayPic,FontFace,FontSize,FontColor,FontSpace,FontBgColor,TodayTitle,Todaywidth
set Get_TodayPic = Conn.execute("select TodayPic_font,TodayPic_size,TodayPic_color,TodayPic_space,TodayPic_PicColor,TodayTitle,Todaywidth From FS_NS_TodayPic where NewsID='"& str_NewsID &"'")
if not Get_TodayPic.eof then
FontFace = Get_TodayPic("TodayPic_font")
FontSize = Get_TodayPic("TodayPic_size")
FontColor = Get_TodayPic("TodayPic_color")
FontSpace = Get_TodayPic("TodayPic_space")
FontBgColor = Get_TodayPic("TodayPic_PicColor")
TodayTitle = Get_TodayPic("TodayTitle")
Todaywidth = Get_TodayPic("Todaywidth")
Get_TodayPic.close:set Get_TodayPic = nothing
else
FontFace = "榛戜綋"
FontSize = "12"
FontColor = "000000"
FontSpace = "12"
FontBgColor ="FFFFFF"
TodayTitle = ""
Todaywidth = 300
Get_TodayPic.close:set Get_TodayPic = nothing
end if
%>
<SELECT name="FontFace" id="FontFace">
<option value="宋体" <%if FontFace = "宋体" then response.Write("selected")%>>宋体</option>
<option value="楷体_GB2312" <%if FontFace = "楷体_GB2312" then response.Write("selected")%>>楷体_GB2312</option>
<option value="新宋体" <%if FontFace = "新宋体" then response.Write("selected")%>>新宋体</option>
<option value="黑体" <%if FontFace = "黑体" then response.Write("selected")%>>黑体</option>
<option value="隶书" <%if FontFace = "隶书" then response.Write("selected")%>>隶书</option>
<OPTION value="Andale Mono" <%if FontFace = "Andale Mono" then response.Write("selected")%>>Andale
Mono</OPTION>
<OPTION value="Arial" <%if FontFace = "Arial" then response.Write("selected")%>>Arial</OPTION>
<OPTION value="Arial Black" <%if FontFace = "Arial Black" then response.Write("selected")%>>Arial
Black</OPTION>
<OPTION value="Book Antiqua" <%if FontFace = "Book Antiqua" then response.Write("selected")%>>Book
Antiqua</OPTION>
<OPTION value="Century Gothic" <%if FontFace = "Century Gothic" then response.Write("selected")%>>Century
Gothic</OPTION>
<OPTION value="Comic Sans MS" <%if FontFace = "Comic Sans MS" then response.Write("selected")%>>Comic
Sans MS</OPTION>
<OPTION value="Courier New" <%if FontFace = "Courier New" then response.Write("selected")%>>Courier
New</OPTION>
<OPTION value="Georgia" <%if FontFace = "Georgia" then response.Write("selected")%>>Georgia</OPTION>
<OPTION value="Impact" <%if FontFace = "Impact" then response.Write("selected")%>>Impact</OPTION>
<OPTION value="Tahoma" <%if FontFace = "Tahoma" then response.Write("selected")%>>Tahoma</OPTION>
<OPTION value="Times New Roman" <%if FontFace = "Times New Roman" then response.Write("selected")%>>Times
New Roman</OPTION>
<OPTION value="Trebuchet MS" <%if FontFace = "Trebuchet MS" then response.Write("selected")%>>Trebuchet
MS</OPTION>
<OPTION value="Script MT Bold" <%if FontFace = "Script MT Bold" then response.Write("selected")%>>Script
MT Bold</OPTION>
<OPTION value="Stencil" <%if FontFace = "Stencil" then response.Write("selected")%>>Stencil</OPTION>
<OPTION value="Verdana" <%if FontFace = "Verdana" then response.Write("selected")%>>Verdana</OPTION>
<OPTION value="Lucida Console" <%if FontFace = "Lucida Console" then response.Write("selected")%>>Lucida
Console</OPTION>
</SELECT>
<select name="FontSize">
<option value="8" <%if FontSize = "8" then response.Write("selected")%>>8px</option>
<option value="9" <%if FontSize = "9" then response.Write("selected")%>>9px</option>
<option value="10" <%if FontSize = "10" then response.Write("selected")%>>10px</option>
<option value="12" <%if FontSize = "12" then response.Write("selected")%>>12px</option>
<option value="18" <%if FontSize = "18" then response.Write("selected")%>>18px</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -