📄 newswords.asp
字号:
INewsAddObj("FileExtName") = "asp" '新闻文件扩展名
else
INewsAddObj("FileExtName") = IFileExtName '新闻文件扩展名
end if
INewsAddObj("AddDate") = IAddDate
'=======================================================
'保存来源、关键字、作者、责任编辑
if Request("ChkKeyword") = "SaveKeyWords" then
call SaveOption(Request("KeywordText"),1)
End If
if Request("ChkSource") = "SaveSource" then
call SaveOption(Request("TxtSourceText"),2)
End If
if Request("ChkAuthor") = "SaveAuthor" then
call SaveOption(Request("AuthorText"),3)
End If
if Request("ChkEditer") = "SaveEditer" then
call SaveOption(Request("EditerText"),4)
End If
'==================================================
INewsAddObj("KeyWords") = Replace(Replace(Request("KeywordText"),"""",""),"'","")
INewsAddObj("TxtSource") = Replace(Replace(Request("TxtSourceText"),"""",""),"'","")
INewsAddObj("Author") = Replace(Replace(Request("AuthorText"),"""",""),"'","")
INewsAddObj("Editer") = Replace(Replace(Request("EditerText"),"""",""),"'","")
INewsAddObj("ClickNum") = IClickNum
if IRecTF = "1" then
INewsAddObj("RecTF") = 1
else
INewsAddObj("RecTF") = 0
end if
INewsAddObj("SpecialID") = Replace(Replace(ISpecialID,"""",""),"'","")
if IAuditTF = "1" then
INewsAddObj("AuditTF") = 1
else
INewsAddObj("AuditTF") = 0
end if
INewsAddObj("DelTF") = 0
if IBrowPop <> "" then
INewsAddObj("BrowPop") = Replace(Replace(IBrowPop,"""",""),"'","")
else
INewsAddObj("BrowPop") = 0
end if
if IShowReviewTF = "1" then
INewsAddObj("ShowReviewTF") = 1
else
INewsAddObj("ShowReviewTF") = 0
end if
if IReviewTF = "1" then
INewsAddObj("ReviewTF") = 1
else
INewsAddObj("ReviewTF") = 0
end if
if ISBSNews = "1" then
INewsAddObj("SBSNews") = 1
else
INewsAddObj("SBSNews") = 0
end if
if IMarqueeNews = "1" then
INewsAddObj("MarqueeNews") = 1
else
INewsAddObj("MarqueeNews") = 0
end if
if IProclaimNews = "1" then
INewsAddObj("ProclaimNews") = 1
else
INewsAddObj("ProclaimNews") = 0
end if
if ILinkTF = "1" then
INewsAddObj("LinkTF") = 1
else
INewsAddObj("LinkTF") = 0
end if
INewsAddObj("FilterNews") = 0
INewsAddObj("NewsTemplet") = INewsTemplet
INewsAddObj.Update
INewsAddObj.Close
Set INewsAddObj = Nothing
if IAuditTF = "1" then
Dim CreatePageObj
Set CreatePageObj = Conn.Execute("Select * from FS_News where NewsID='" & INewsID & "'")
If Not CreatePageObj.eof then
Dim ClassCache,ClassInfo,DateStr,f_SavePath
Set ClassCache =New Cls_FsCache
ClassCache.Name="ClassCache"
ClassCache.ArrayIndex=0
ClassCache.KnowValue=CreatePageObj("ClassID")
ClassInfo = ClassCache.FindNeedRecord("")
Set ClassCache = Nothing
If CInt(GetConfig(21))=1 Then
DateStr = CreatePageObj("Path")
Else
DateStr = ""
End If
If ClassInfo(13)="/" Then
f_SavePath= Get_RootDir & "/" & ClassInfo(2) & DateStr
Else
f_SavePath= Get_RootDir & ClassInfo(13) & "/" & ClassInfo(2) & DateStr
End If
'========================
'辅助字段信息保存 kedee 修改于2006年7月13日15:53:46
Call SaveAuixInfo("FS_News",AuixArrStr,INewsID)
'==========================
RefreshInfo "News",CreatePageObj("NewsID"),CreatePageObj("ClassID"),Get_RootDir & CreatePageObj("NewsTemplet"),CreatePageObj("FileName"),CreatePageObj("FileExtName"),f_SavePath
Else
CreatePageObj.Close
Set CreatePageObj = Nothing
if EditContentTF = False then
Response.Write("<script>if (confirm(""文字新闻添加成功,但未能成功生成新闻文件"")==false) {window.location='NewsList.asp?ClassID="&IClassID&"';} else {window.location=""?ClassID=" & IClassID & """;}</script>")
else
Response.Redirect("NewsList.asp?ClassID=" & IClassID & "")
end if
Response.End
End If
CreatePageObj.Close
Set CreatePageObj = Nothing
end if
if EditContentTF = False then
If GetConfig(12)="1" and GetConfig(15)="1" then
Response.Write("<script>if (confirm(""文字新闻添加成功,是否生成此栏目和首页?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
ElseIf GetConfig(12)="1" then
Response.Write("<script>if (confirm(""文字新闻添加成功,是否生成此栏目?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
ElseIf GetConfig(15)="1" then
Response.Write("<script>if (confirm(""文字新闻添加成功,是否生成首页?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
Else
Response.Write("<script>if (confirm(""文字新闻添加成功,是否继续添加?"")==false) {window.location='NewsList.asp?ClassID=" & IClassID & "';} else {window.location=""?ClassID="&IClassID&""";} </script>")
End If
else
Response.Redirect("NewsList.asp?ClassID=" & IClassID & "")
end if
Response.End
end if
%>
<html>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻添加</title>
</head>
<script language="JavaScript" type="text/JavaScript">
<!--
function insertPicAddress() {
if (document.NewsForm.IsPicNews.checked==true)
NewsPicAddress.style.display=''
else
NewsPicAddress.style.display='none'
}
//-->
</script>
<script language="JavaScript" src="../../SysJS/PublicJS.js"></script>
<body topmargin="2" leftmargin="2">
<!-- Ewebeditor JS Function 开始----->
<script language=JavaScript>
// 表单提交检测
function doCheck(){
// 检测表单的有效性
// 如：标题不能为空，内容不能为空，等等....
if (eWebEditor.getHTML()=="") {
alert("内容不能为空！");
return false;
}
// 表单有效性检测完后，自动上传远程文件
// 函数：remoteUpload(strEventUploadAfter)
// 参数：strEventUploadAfter ; 上传完后，触发的函数名，如果上传完后不需动作可不填参数
eWebEditor.remoteUpload("doSubmit()");
// 当一个表单中有多个编辑区时，你可以指定上传某个编辑区，如：
// eWebEditor1.remoteUpload();
// eWebEditor2.remoteUpload();
// eWebEditor4.remoteUpload("doSubmit()"); 这是最后一个，执行完后提交表单
return false;
}
// 表单提交（当远程上传完成后，触发此函数）
function doSubmit(){
document.NewsForm.submit();
}
</script>
<form action="" name="NewsForm" method="post">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="保存" <%if UserWebEditor=0 then response.write "onClick='SubmitFun();'" else response.write "OnClick='doCheck();'"%> onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="添加标题新闻" onClick="location='NewsTitle.asp?ClassID=<% = IClassID %>';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">标题</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="添加图片新闻" onClick="location='NewsPic.asp?ClassID=<% = IClassID %>';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">图片</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="添加下载" onClick="location='DownLoad.asp?ClassID=<% = IClassID %>';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">下载</td>
<td width=2 class="Gray">|</td>
<%If sHaveValueTF = True then%>
<td width=35 align="center" alt="添加商品" onClick="location='../mall/mall_addproducts.asp?ClassID=<% = IClassID %>';" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">商品</td>
<td width=2 class="Gray">|</td>
<%End if%>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> <input type="hidden" name="Content" value="<% = IContent %>">
<input type="hidden" name="Action" value="Submit">
<input type="hidden" name="ClassID" value="<% = IClassID %>"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60" height="30">
<div align="center">标题</div></td>
<td height="30">
<input style="width:60%;" type="text" name="Title" value="<% = ITitle %>">
<input type="checkbox" name="TitleShowReview" value="1" title="在栏目新闻标题后面加上评论2字"<%If ITitleShowReview="1" then response.write("Checked") End If%>>
显示评论
<select name="TitleColor" id="select">
<option <% if ITitleColor = "#UUUUUU" then Response.Write("Selected")%> value="#UUUUUU" selected>字体颜色</option>
<option <% if ITitleColor = "#ff0000" then Response.Write("Selected")%> value="#ff0000" style="background-color:#ff0000;color: #ffffff">#ff0000</option>
<option <% if ITitleColor = "#000000" then Response.Write("Selected")%> value="#000000" style="background-color:#000000;color: #ffffff">#000000</option>
<option <% if ITitleColor = "#FFFFFF" then Response.Write("Selected")%> value="#FFFFFF" style="background-color:#ffffff;color: #000000">#FFFFFF</option>
<option <% if ITitleColor = "#000099" then Response.Write("Selected")%> value="#000099" style="background-color:#000099;color: #ffffff">#000099</option>
<option <% if ITitleColor = "#660066" then Response.Write("Selected")%> value="#660066" style="background-color:#660066;color: #ffffff">#660066</option>
<option <% if ITitleColor = "#FF6600" then Response.Write("Selected")%> value="#FF6600" style="background-color:#FF6600;color: #ffffff">#FF6600</option>
<option <% if ITitleColor = "#666666" then Response.Write("Selected")%> value="#666666" style="background-color:#666666;color: #ffffff">#666666</option>
<option <% if ITitleColor = "#009900" then Response.Write("Selected")%> value="#009900" style="background-color:#009900;color: #ffffff">#009900</option>
<option <% if ITitleColor = "#0066CC" then Response.Write("Selected")%> value="#0066CC" style="background-color:#0066CC;color: #ffffff">#0066CC</option>
<option <% if ITitleColor = "#990000" then Response.Write("Selected")%> value="#990000" style="background-color:#990000;color: #ffffff">#990000</option>
<option <% if ITitleColor = "#CC9900" then Response.Write("Selected")%> value="#CC9900" style="background-color:#CC9900;color: #ffffff">#CC9900</option>
<option <% if ITitleColor = "#CCCCCC" then Response.Write("Selected")%> value="#CCCCCC" style="background-color:#CCCCCC;color: #000000">#CCCCCC</option>
<option <% if ITitleColor = "#99FF00" then Response.Write("Selected")%> value="#99FF00" style="background-color:#99FF00;color: #000000">#99FF00</option>
<option <% if ITitleColor = "#0000FF" then Response.Write("Selected")%> value="#0000FF" style="background-color:#0000FF;color: #FFFFFF">#0000FF</option>
<option <% if ITitleColor = "#9966CCU" then Response.Write("Selected")%> value="#9966CC" style="background-color:#9966CC;color: #FFFFFF">#9966CC</option>
</select>
<input type="checkbox" <% if TitleBoldstr = "1" then Response.Write("Checked") %> name="TitleBold" value="1">
粗体
<input type="checkbox" <% if TitleUstr = "1" then Response.Write("Checked") %> name="Titles" value="1">
斜体 </td>
</tr>
<tr>
<td height="30">
<div align="center">副标题</div></td>
<td height="30">
<input style="width:70%;" type="text" name="SubTitle" value="<% = ISubTitle %>">
<input name="IsPicNews" type="checkbox" id="IsPicNews2" value="IsPicNews" onClick="insertPicAddress()">
转为图片新闻 </td>
</tr>
<tr id="NewsPicAddress" style="display:none;">
<td height="30">
<div align="center">图片地址</div></td>
<td height="30">
<input type="text" name="PicPath" style="width:74%" value=<% = iPicPath %>> <input type="button" name="Submit4" value="选择图片" onClick="var TempReturnValue=OpenWindow('../../FunPages/SelectPic.asp?CurrPath=/<% = UpFiles %>',500,290,window);if (TempReturnValue!='') document.NewsForm.PicPath.value=TempReturnValue;"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0" height="20">
<tr>
<td width="60" height="26" align="center" bgcolor="#EFEFEF" class="LableSelected" id="ContentFolder" onClick="ChangeFolder(this);">新闻内容</td>
<td width="5" height="26" align="center" class="ToolBarButtonLine" style="cursor:default;"> </td>
<td width="60" height="26" align="center" class="LableDefault" id="AttributeFolder" onClick="ChangeFolder(this);">新闻属性</td>
<td height="26" class="ToolBarButtonLine" style="cursor:default;"> </td>
</tr>
</table></td>
</tr>
<tr id="AttributeArea" style="display:none;">
<td colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="ButtonListLeft">
<tr>
<td width="60" height="30">
<div align="center">所属栏目</div></td>
<td> <input type="text" style="width:74%;" name="ClassCNameShow" readonly value="<% = OldClassEName %>">
<input type="button" name="Submit" value="选择栏目" onClick="SelectClass();"></td>
</tr>
<tr>
<td height="30">
<div align="center">新闻模板</div></td>
<td>
<input name="NewsTemplet" type="text" id="NewsTemplet" value="<% = INewsTemplet %>" readonly style="width:74%;" >
<input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../../FunPages/SelectFileFrame.asp?CurrPath=<%=Get_RootDir %>/<% = TempletDir %>',400,300,window,document.NewsForm.NewsTemplet);document.NewsForm.NewsTemplet.focus();">
</td>
</tr>
<tr>
<td height="30">
<div align="center">添加日期</div></td>
<td>
<input name="AddDate" readonly type="text" value="<% = IAddDate %>" id="AddDate" style="width:74%;">
<input type="button" name="Submit4" value="选择日期" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,110,window,document.NewsForm.AddDate);document.NewsForm.AddDate.focus();">
</td>
</tr>
<!--显示自定义字段信息设置开始-->
<%Call ShowAuixInfo("FS_News",AuixArrStr,INewsID)%>
<!--显示自定义字段信息设置结束-->
<tr>
<td height="30">
<div align="center">所属专题</div></td>
<td>
<%
if Not IsNull(ISpecialID) And (ISpecialID <> "") then
Dim RsSpecialObj,TempISpecialID,SpecialCNameText
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -