📄 newspic.asp
字号:
INewsAddObj("PicPath") = IPicPath
INewsAddObj("Content") = replace(Save_Content,WebDomain,"") '新闻内容 尚未判断
if IManuTF <> "" then
INewsAddObj("ManuTF") = 1
else
INewsAddObj("ManuTF") = 0
end if
If ITodayNewsTF <> "" then
INewsAddObj("TodayNewsTF") = 1
Else
INewsAddObj("TodayNewsTF") = 0
End If
if IBrowPop <> "" then
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"),"""",""),"'","")
'end if
'if Request("TxtSourceText") <> "" then
INewsAddObj("TxtSource") = Replace(Replace(Request("TxtSourceText"),"""",""),"'","")
'end if
'if Request("AuthorText") <> "" then
INewsAddObj("Author") = Replace(Replace(Request("AuthorText"),"""",""),"'","")
'end if
'if Request("EditerText") <> "" then
INewsAddObj("Editer") = Replace(Replace(Request("EditerText"),"""",""),"'","")
'end if
if IRecTF <> "" then
INewsAddObj("RecTF") = 1
else
INewsAddObj("RecTF") = 0
end if
'if ISpecialID <> "" then
INewsAddObj("SpecialID") = Replace(Replace(ISpecialID,"""",""),"'","")
'end if
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<> "" then
INewsAddObj("ShowReviewTF") = 1
else
INewsAddObj("ShowReviewTF") = 0
end if
if IReviewTF<> "" then
INewsAddObj("ReviewTF") = 1
else
INewsAddObj("ReviewTF") = 0
end if
if ISBSNews <> "" then
INewsAddObj("SBSNews") = 1
else
INewsAddObj("SBSNews") = 0
end if
If ITitleShowReview<>"" then
INewsAddObj("TitleShowReview")=1
Else
INewsAddObj("TitleShowReview")=0
End If
if IMarqueeNews <> "" then
INewsAddObj("MarqueeNews") = 1
else
INewsAddObj("MarqueeNews") = 0
end if
if IProclaimNews <> "" then
INewsAddObj("ProclaimNews") = 1
else
INewsAddObj("ProclaimNews") = 0
end if
if ILinkTF <> "" then
INewsAddObj("LinkTF") = 1
else
INewsAddObj("LinkTF") = 0
end if
if IFilterNews <> "" then
INewsAddObj("FilterNews") = 1
Else
INewsAddObj("FilterNews") = 0
End if
If IFocusNewsTF <> "" then
INewsAddObj("FocusNewsTF") = 1
Else
INewsAddObj("FocusNewsTF") = 0
End If
If IClassicalNewsTF <> "" then
INewsAddObj("ClassicalNewsTF") = 1
Else
INewsAddObj("ClassicalNewsTF") = 0
End If
INewsAddObj("NewsTemplet") = INewsTemplet
INewsAddObj("NaviWords") = INaviWords
if IClickNum <> "" then
INewsAddObj("ClickNum") = IClickNum
else
INewsAddObj("ClickNum") = 0
end if
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
RefreshInfo "News",CreatePageObj("NewsID"),CreatePageObj("ClassID"),Get_RootDir & CreatePageObj("NewsTemplet"),CreatePageObj("FileName"),CreatePageObj("FileExtName"),f_SavePath
'RefreshNews CreatePageObj
Else
Response.Write("<script>if (confirm(""图片新闻添加成功,但未能成功生成新闻文件,是否继续添加?"")==false) {window.location='NewsList.asp?ClassID=" & IClassID & "';} else {window.location=""?ClassID="&IClassID&""";}</script>")
Response.End
End If
CreatePageObj.Close
Set CreatePageObj = Nothing
end if
if EditContentTF = True then
Response.Redirect("NewsList.asp?ClassID=" & IClassID)
else
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
end if
Response.End
end if
%>
<html>
<head>
<script language="JavaScript" type="text/JavaScript">
<!--
function insertPicAddress() {
if (document.NewsForm.ToWords.checked==true)
{
PicPathAddress.style.display='none';
document.NewsForm.PicPath.value='';
}
else
PicPathAddress.style.display='';
}
//-->
</script>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻添加</title>
</head>
<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='NewsWords.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='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='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%" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"><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="select2">
<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="ToWords" type="checkbox" value="ToWords" onClick="insertPicAddress()">
转为文字新闻 </td>
</tr>
<tr style="display:none;"><td><input name="IsPicNews" type="checkbox" value="IsPicNews" checked=true></td></tr>
<tr id="PicPathAddress">
<td height="30">
<div align="center">图片地址</div></td>
<td> <input name="PicPath" type="text" id="PicPath2" 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> <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" align="center" class="ToolBarButtonLine" style="cursor:default;"> </td>
<td onClick="ChangeFolder(this);" id="AttributeFolder" width="60" align="center" class="LableDefault">新闻属性</td>
<td class="ToolBarButtonLine" style="cursor:default;"> </td>
</tr>
</table></td>
</tr>
<tr style="display:none;" id="AttributeArea">
<td height="30"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="ButtonListLeft">
<tr>
<td width="86" height="30"> <div align="center">所属栏目</div></td>
<td colspan="3"> <input type="text" style="width:74%;" name="ClassCNameShow" readonly value="<% = OldClassEName %>">
<input type="button" name="Submit" value="选择栏目" onClick="SelectClass();"></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -