📄 news_edit.asp
字号:
<option value="20" <%if FontSize = "20" then response.Write("selected")%>>20px</option>
<option value="24" <%if FontSize = "24" then response.Write("selected")%>>24px</option>
<option value="28" <%if FontSize = "28" then response.Write("selected")%>>28px</option>
<option value="30" <%if FontSize = "30" then response.Write("selected")%>>30px</option>
<option value="32" <%if FontSize = "32" then response.Write("selected")%>>32px</option>
<option value="36" <%if FontSize = "36" then response.Write("selected")%>>36px</option>
<option value="40" <%if FontSize = "40" then response.Write("selected")%>>40px</option>
<option value="48" <%if FontSize = "48" then response.Write("selected")%>>48px</option>
<option value="54" <%if FontSize = "54" then response.Write("selected")%>>54px</option>
<option value="60" <%if FontSize = "60" then response.Write("selected")%>>60px</option>
<option value="72" <%if FontSize = "72" then response.Write("selected")%>>72px</option>
</select>
<input type="text" name="FontColor" maxlength=7 size=7 id="FontColor" value="<% = FontColor %>">
<img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontColorShow" style="cursor:pointer;background-Color:#<% = FontColor %>;" title="选取颜色!" onClick="GetColor(this,'FontColor');"> 字体间距：
<INPUT TYPE="text" maxlength="3" NAME="FontSpace" size=3 value="<% = FontSpace %>">
px 图片背景色
<input type="text" name="FontBgColor" maxlength=7 size=7 id="FontBgColor" value="<% = FontBgColor %>">
<img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontBgColorShow" style="cursor:pointer;background-Color:<% = FontBgColor %>;" title="选取颜色!" onClick="GetColor(this,'FontBgColor');"> <br>
图片头条标题：
<input name="PicTitle" type="text" id="PicTitle" value="<% = TodayTitle %>" size="40" maxlength="255">
图片宽度：
<input name="PicTitlewidth" type="text" id="PicTitlewidth" value="<% = Todaywidth %>" size="10" maxlength="10">
px </td>
</tr>
</table>
</td>
</tr>
<tr >
<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%"><%=str_NewsNaviContent%></textarea>
</div>
</td>
</tr>
<tr id="str_Content" style="display:<%=str_Content_1%>" >
<td class="hback">
<div align="left">
<input name="NewsProperty_Remote" type="checkbox" id="NewsProperty_Remote" value="1" <%if split(str_NewsProperty,",")(4)="1" then Response.Write("checked")%>>
下载内容中的图片到本地<br>
<span class="tx">启用此功能后，如果从其它网站上复制内容到右边的编辑器中，并且内容中包含有图片，本系统会在保存文章时自动把相关图片复制到本站服务器上。<br>
系统会因所下载图片的大小而影响速度，建议图片较多时不要使用此功能。</span><br>
<input name="ClearAllPage" type="checkbox" id="ClearAllPage" value="1">重新计算自动分页(<%=G_FS_Page_Txtlength&"字节/页"%>)</div>
</td>
<td colspan="3" class="hback">
<!--编辑器开始-->
<pre id="idTemporary" name="idTemporary" style="display:none"><%If str_Content<>"" Or Not IsNull(str_Content) Then Response.Write Server.HTMLEncode(str_Content)%></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="380";
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>
<!--自定义自段开始-->
<%
If IsArray(CustColumnArr) Then
response.Write"<tr><td colspan=""4"" class=""hback_1"">自定义开始</td></tr>"
Dim NewsAuxiInfoRs,NewsAuxiInfoSql
Dim InputModeStr,AuxiInfoList,AuxiListArr,k
For i = 0 to Ubound(CustColumnArr,2)
NewsAuxiInfoSql="select ColumnValue From FS_MF_DefineData Where InfoID='"&str_NewsID&"' and TableEName='" & CustColumnArr(3,i) & "' And InfoType='NS'"
Set NewsAuxiInfoRs=Conn.Execute(NewsAuxiInfoSql)
Select Case CStr(CustColumnArr(4,i)) '根据选择的输入类型生成输入方式
Case 1 '多行输入
If Not NewsAuxiInfoRs.Eof Then '如果为以前添加的新闻则回出现读不到数据的情况，避免出错
InputModeStr="<Textarea Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%;height:80;"">"&NewsAuxiInfoRs(0)&"</Textarea>"
Else
InputModeStr="<Textarea Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%;height:80;""></Textarea>"
End If
Case 4 '列表选择
Dim AuxiDictRs
InputModeStr="<Select Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%"">"&vbcrlf
AuxiListArr=Split(CustColumnArr(6,i),vbcrlf)
For k = 0 to UBound(AuxiListArr)
If AuxiListArr(k)<>"" Then
If Not NewsAuxiInfoRs.eof Then
If trim(AuxiListArr(k))=trim(NewsAuxiInfoRs(0)) Then
InputModeStr=InputModeStr&"<Option value="""&AuxiListArr(k)&""" selected>"&AuxiListArr(k)&"</option>"&vbcrlf
Else
InputModeStr=InputModeStr&"<Option value="""&AuxiListArr(k)&""">"&AuxiListArr(k)&"</option>"&vbcrlf
End IF
Else
If k=0 Then InputModeStr=InputModeStr&"<Option value="""" selected> </option>"&vbcrlf
InputModeStr=InputModeStr&"<Option value="""&AuxiListArr(k)&""">"&AuxiListArr(k)&"</option>"&vbcrlf
End If
End If
Next
InputModeStr=InputModeStr&"</select>"
Case Else '单行，数字，日期
If Not NewsAuxiInfoRs.Eof Then
InputModeStr="<Input Type=""text"" Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" value="""&NewsAuxiInfoRs(0)&""" style=""width:70%"">"
Else
InputModeStr="<Input Type=""text"" Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" value="""" style=""width:70%"">"
End If
End Select
If CStr(CustColumnArr(7,i))<>"" Then
InputModeStr=InputModeStr&"<span class=""tx"">说明："&CustColumnArr(3,i)&"</span>"
End If
Response.Write "<tr >"&vbcrlf
Response.Write "<td width=""10%"" align=""right"" class=""hback"">"&CustColumnArr(2,i)&"</td>"&vbcrlf
Response.Write "<td width=""90%"" colspan=""3"" align=""left"" class=""hback"">"&vbcrlf&InputModeStr&"</td>"&vbcrlf
Response.Write "</tr>"&vbcrlf
NewsAuxiInfoRs.Close
Next
response.Write"<tr><td colspan=""4"" class=""hback_1"">自定义结束</td></tr>"
End If
Set NewsAuxiInfoRs=Nothing
%>
<!--自定义自段结束-->
<tr id="str_GroupID" style="display:<%=str_GroupID_1%>" >
<td class="hback">
<div align="right">浏览点数</div>
</td>
<td colspan="3" class="hback">
<input name="PointNumber" type="text" id="PointNumber2" size="16" onChange="ChooseExeName();" value="<% = str_PointNumber%>">
金币
<input name="Money" type="text" id="Money2" size="16" onChange="ChooseExeName();" value="<% = str_Money%>">
浏览权限
<input name="BrowPop" id="BrowPop" type="text" onMouseOver="this.title=this.value;" readonly value="<% = str_GroupID%>">
<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:<%=str_FileName_1%>" >
<td class="hback">
<div align="right">文件名</div>
</td>
<td class="hback">
<input name="FileName" type="text" value="<% = str_FileName %>" readonly>
<span class="tx">不能修改</span> </td>
<td class="hback">
<div align="right">扩展名</div>
</td>
<td class="hback">
<input type="hidden" name="DefaultFileExtName" id="DefaultFileExtName" value="<% = str_FileExtName %>">
<select name="FileExtName" id="FileExtName">
<option value="html" <%if str_FileExtName = "html" then response.Write("selected")%>>.html</option>
<option value="htm" <%if str_FileExtName = "htm" then response.Write("selected")%>>.htm</option>
<option value="shtml" <%if str_FileExtName = "shtml" then response.Write("selected")%>>.shtml</option>
<option value="shtm" <%if str_FileExtName = "shtm" then response.Write("selected")%>>.shtm</option>
<option value="asp" <%if str_FileExtName = "asp" 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="<% = str_addtime %>" size="40" maxlength="255">
</td>
<td class="hback">
<div align="right">点击次数</div>
</td>
<td class="hback">
<input name="Hits" type="text" id="Hits" value="<% = str_hits %>" 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 Cint(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="submit" name="Submit" value="确认保存<% = Fs_news.allInfotitle %>">
<input type="reset" name="Submit" value="重新设置">
<input name="News_Action" type="hidden" id="News_Action2" value="Edit_Save">
<input name="NewsID" type="hidden" id="NewsID" value="<% = str_NewsID %>">
<input name="d_Id" type="hidden" id="d_Id" value="<%=tmp_defineid%>">
</td>
</tr>
</form>
</table>
</body>
</html>
<%
If Cint(IsAdPic)=1 Then Response.Write("<script language=""javascript"">document.getElementById('Adpic').style.display='';</script>")
set Fs_news = nothing
%>
<script language="JavaScript" type="text/JavaScript">
function CheckForm(FormObj)
{
if(FormObj.ClassName.value=="")
{
alert("请选择栏目！");
FormObj.ClassName.focus();
return false;
}
if(FormObj.ClassID.value=="")
{
alert("栏目参数错误！");
FormObj.ClassName.focus();
return false;
}
if(document.NewsForm.NewsTitle.value == "")
{
alert("请填写标题！");
FormObj.NewsTitle.focus();
return false;
}
FormObj.Content.value=FS_Edit1.getXHTMLBody();
return true;
}
function SwitchNewsType(NewsType)
{
switch (NewsType)
{
case "TitleNews":
document.getElementById('str_UrLaddress').style.display='';
document.getElementById('str_CurtTitle').style.display='none';
document.getElementById('str_NewsSmallPicFile').style.display='';
document.getElementById('str_Templet').style.display='none';
document.getElementById('str_Content').style.display='none';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -