<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Function.asp" -->
<!--#include file="../Refresh/Function.asp" -->
<!--#include file="../Refresh/RefreshFunction.asp" -->
<!--#include file="../Refresh/SelectFunction.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System 2.0 
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0105") then Call ReturnError()
    Dim NewsID,TempClassID,OldClassObj,OldClassEName,RsContObj
	    NewsID = Cstr(Request("NewsID"))
		Set RsContObj = Conn.Execute("Select * from Contribution where ContID = '"&NewsID&"'")
		If RsContObj.eof then
		   Response.Write("<script>alert(""参数传递错误"");dialogArguments.location.reload();window.close();</script>")
		   Response.End
		End If
	Dim DummyPath_Riker
	If SysRootDir<>"" then
		DummyPath_Riker = "/" & SysRootDir
	Else
		DummyPath_Riker = ""
	End If
	
    Set OldClassObj = Conn.Execute("select ClassID,ClassEName from NewsClass where ClassID='"&RsContObj("ClassID")&"'")
	if Not OldClassObj.Eof then
		OldClassEName = OldClassObj("ClassEName")
	end if
	OldClassObj.Close
	Set OldClassObj = Nothing
	
dim TempClassListStr
TempClassListStr = ClassList
Function ClassList()
	Dim ClassListObj,SelectStr
	Set ClassListObj = Conn.Execute("select * from newsclass where ParentID = '0'")
	do while Not ClassListObj.Eof
		if OldClassEName = ClassListObj("ClassEName") then
			SelectStr = "selected"
		else
			SelectStr = ""
		end if
		ClassList = ClassList & "<option " & SelectStr & " value="&ClassListObj("ClassID")&"" & ">" & ClassListObj("ClassCName") & "</option><br>"
		ClassList = ClassList & ChildClassList(ClassListObj("ClassID"),"")
		ClassListObj.MoveNext	
	loop
	ClassListObj.Close
	Set ClassListObj = Nothing
End Function

Function ChildClassList(ClassID,Temp)
	Dim TempRs,TempStr,SelectStr
	Set TempRs = Conn.Execute("Select * from NewsClass where ParentID = '" & ClassID & "'")
	TempStr = Temp & " - "
	do while Not TempRs.Eof
		if OldClassEName = TempRs("ClassEName") then
			SelectStr = "selected"
		else
			SelectStr = ""
		end if
		if TempRs("ChildNum") = 0 then
			ChildClassList = ChildClassList & "<option " & SelectStr & " value="&TempRs("ClassID")&"" & ">" & TempStr & TempRs("ClassCName") & "</option><br>"
		else
			ChildClassList = ChildClassList & "<option " & SelectStr & " value="&TempRs("ClassID")&"" & ">" & TempStr & TempRs("ClassCName") & "</option><br>"
		end if
		ChildClassList = ChildClassList & ChildClassList(TempRs("ClassID"),TempStr)
		TempRs.MoveNext
	loop
	TempRs.Close
	Set TempRs = Nothing
End Function
	
Dim NewsContent
    If Request.Form("Content")<>"" then
		NewsContent = Replace(Replace(Request.Form("Content"),"""","%22"),"'","%27")
	Else
		NewsContent = Replace(Replace(RsContObj("Content"),"""","%22"),"'","%27")
	End If
%>
<html>
<head>
<link href="../Inc/ModeWindow.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>稿件审核</title>
</head>
<script language="JavaScript" src="../JS/PublicJS.js"></script>
<body>
<form action="" name="NewsForm" method="post">
  <table width="100%" border="0" cellspacing="4" cellpadding="0">
    <tr> 
      <td height="8" colspan="5"></td>
    </tr>
    <tr> 
      <td width="3%">&nbsp;</td>
      <td width="9%">新闻标题</td>
      <td width="38%"><input name="Title" type="text" id="Title" style="width:90%" value="<%=LoseHtml(RsContObj("Title"))%>"></td>
      <td width="9%">副 标 题</td>
      <td width="41%"><input name="SubTitle" type="text" id="SubTitle2" style="width:90%" value="<%=RsContObj("SubTitle")%>"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>所属栏目</td>
      <td> <select name="ClassID" id="select2" style="width:90%">
          <% =TempClassListStr %>
        </select></td>
      <td>浏览权限</td>
      <td><select name="BrowPop" style="width:90%" onChange="ChooseExeName();">
          <option value="" selected> </option>
          <%
		Dim BrowPopObj
		set BrowPopObj = Conn.Execute("Select Name,PopLevel from MemGroup order by PopLevel asc")
		while not BrowPopObj.eof
		%>
          <option value="<%=BrowPopObj("PopLevel")%>"><%=BrowPopObj("Name")%></option>
          <%
		BrowPopObj.Movenext
		Wend
		BrowPopObj.Close
		Set BrowPopObj = Nothing
		%>
        </select></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>新闻模板</td>
      <td><input name="NewsTemplet" type="text" id="NewsTemplet" size="24" readonly value="<%If Request("NewsTemplet")="" then Response.Write("/"&TempletDir&"/NewsClass/News.htm") else Response.Write(Request("NewsTemplet"))%>" >
        <input type="button" name="Submit" value="选择模板" onClick="OpenWindowAndSetValue('../Inc/SelectFileFrame.asp?CurrPath=/<% = TempletDir %>',400,300,window,document.NewsForm.NewsTemplet);document.NewsForm.NewsTemplet.focus();"> 
      </td>
      <td>图片地址</td>
      <td><input name="PicPath" type="text" id="PicPath" size="27" value="<%=Request("PicPath")%>" > <input type="button" name="PPPChoose" value="选择图片" onClick="OpenWindowAndSetValue('../inc/SelectPic.asp',550,290,window,document.NewsForm.PicPath);"></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>所属专题</td>
      <td><input name="SpecialIDText" type="text" size="24" readonly value="<%=Request("SpecialIDText")%>"><input type="hidden" name="SpecialID" value="<%=Request("SpecialID")%>"> 
        <select name="SelSpecialID" style="width:27%" onChange=ChooseSpecial(this.options[this.selectedIndex].value)>
          <option value="" selected> </option>
		  <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
          <%
		Dim SpecialIDObj
		set SpecialIDObj = Conn.Execute("Select CName,SpecialID from Special order by ID desc")
		while not SpecialIDObj.eof
		%>
          <option value="<%=SpecialIDObj("CName")&"***"&SpecialIDObj("SpecialID")%>"><%=SpecialIDObj("CName")%></option>
          <%
		SpecialIDObj.Movenext
		Wend
		SpecialIDObj.Close
		Set SpecialIDObj = Nothing
		%>
        </select></td>
      <td>新闻来源</td>
      <td><input name="TxtSourceText" type="text" size="27" readonly value="<%=Request("TxtSource")%>">
        <input type="hidden" name="TxtSource" value= "<%=Request("TxtSource")%>"><select name="SelTxtSource" style="width:25%" onChange="Dosusite(this.options[this.selectedIndex].value);">
          <option value="" selected> </option>
          <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
          <option value="本站原创">本站原创</option>
          <option value="不详">不详</option>
          <%
		Dim TxtSourceObj
		set TxtSourceObj = Conn.Execute("select * from Routine where Type=2 order by ID desc")
		While not TxtSourceObj.eof
		%>
          <option value="<%=TxtSourceObj("Name")&"***"&TxtSourceObj("Url")%>"><%=TxtSourceObj("Name")%></option>
          <%
		TxtSourceObj.Movenext
		Wend
		TxtSourceObj.Close
		Set TxtSourceObj = Nothing
		%>
        </select></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>关 键 字</td>
      <td><input name="KeywordText" type="text" size="24" readonly value="<%=RsContObj("KeyWords")%>"><input type="hidden" name="KeyWords" value="<%=RsContObj("KeyWords")%>"> 
        <select name="SelKeyWords" style="width:27%" onChange=Dokesite(this.options[this.selectedIndex].value)>
          <option value="" selected> </option>
		  <option value="Clean" style="color:red">清空</option>
          <%
		Dim KeyWordsObj
		set KeyWordsObj = Conn.Execute("select * from Routine where Type=1 order by ID desc")
		while not KeyWordsObj.eof
		%>
          <option value="<%=KeyWordsObj("Name")%>"><%=KeyWordsObj("Name")%></option>
          <%
		KeyWordsObj.Movenext
		Wend
		KeyWordsObj.Close
		Set KeyWordsObj = Nothing
		%>
        </select></td>
      <td>责任编辑</td>
      <td><input name="EditerText" type="text" size="27" readonly value="<%=Request("EditerText")%>">
        <input type="hidden" name="Editer" value="<%=Request("Editer")%>"><select name="Editer1" style="width:25%"  onChange="Editsite(this.options[this.selectedIndex].value);">
          <option value="" selected> </option>
          <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
          <%
		Dim EditerObj
		Set EditerObj = Conn.Execute("Select * from Routine where Type=4 order by ID desc")
		while not EditerObj.eof
		%>
          <option value="<%=EditerObj("Name")&"***"&EditerObj("Url")%>"><%=EditerObj("Name")%></option>
          <%
		EditerObj.Movenext
		Wend
		EditerObj.Close
		Set EditerObj = Nothing
		%>
        </select></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>新闻作者</td>
      <td><input name="AuthorText" type="text" size="24" readonly value="<%=RsContObj("Author")%>"><input type="hidden" name="Author" value="<%=RsContObj("Author")%>"> <select name="SelAuthor" id="SelAuthor" style="width:27%" onChange="Doauthsite(this.options[this.selectedIndex].value);" disabled>
          <option value="" selected> </option>
		  <option value="<%=""&"***"&"Clean"%>" style="color:red">清空</option>
          <option value="佚名">佚名</option>
          <option value="本站">本站</option>
          <option value="未知">未知</option>
          <%
		Dim AuthorObj
		set AuthorObj = Conn.Execute("select * from Routine where Type=3 order by ID desc")
		while not AuthorObj.eof
		%>
          <option value="<%=AuthorObj("Name")&"***"&AuthorObj("Url")%>"><%=AuthorObj("Name")%></option>
          <%
		AuthorObj.Movenext
		Wend
		AuthorObj.Close
		Set AuthorObj=nothing
		%>
        </select></td>
      <td>添加日期</td>
      <td><input name="AddDate" type="text" id="AddDate3" style="width:90%" value="<% if RsContObj("AddTime")="" then Response.Write(now()) else Response.Write(RsContObj("AddTime")) end if%>"></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>点击次数</td>
      <td><input name="ClickNum" type="text" id="ClickNum" style="width:90%" value="<%if Request("ClickNum")="" then Response.Write("0") else Response.Write(Request("ClickNum")) end if %>"></td>
      <td rowspan="2">导航文字</td>
      <td rowspan="2"><textarea name="NaviWords" rows="2" id="NaviWords2" style="width:90%"><%=Request("NaviWords")%></textarea></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>扩 展 名</td>
      <td><select name="FileExtName" id="select" style="width:90%">
        <option value="htm">htm</option>
        <option value="html">html</option>
        <option value="shtm">shtm</option>
        <option value="shtml">shtml</option>
        <option value="asp">asp</option>
      </select></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td colspan="4"><table width="100%" border="0" cellspacing="4" cellpadding="0">
          <tr> 
            <td>              图片新闻
              <input type="checkbox" name="PicNewsTF" value="1" <%If Request("PicNewsTF")="1" then Response.Write("checked") end if%> onClick="ChoosePicType();"> 
            </td>
            <td>滚动新闻 
              <input name="MarqueeNews" type="checkbox" id="MarqueeNews2" value="1" <%if Request("MarqueeNews")="1" then Response.Write("checked") end if%>> 
            </td>
            <td>允许评论 
              <input name="ReviewTF" type="checkbox" id="ReviewTF2" value="1" onClick="ChooseRiview();" <%if Request("ReviewTF")="1" then Response.Write("checked") end if%>> 
            </td>
            <td>显示评论 
              <input name="ShowReviewTF" type="checkbox" id="ShowReviewTF2" value="1" disabled <%if Request("ShowReviewTF")="1" then Response.Write("checked") end if%>> 
            </td>
            <td>公告新闻 
              <input name="ProclaimNews" type="checkbox" id="ProclaimNews2" value="1" <%if Request("ProclaimNews")="1" then Response.Write("checked") end if%>> 
            </td>
            <td>幻 灯 片 
              <input name="FilterNews" type="checkbox" id="FilterNews" value="1" <%if Request("FilterNews")="1" then Response.Write("checked") end if%>>
            </td>
            <td>焦点图片
              <input name="FocusNewsTF" type="checkbox" id="FocusNewsTF" value="1" <%if Request("FocusNewsTF")=1 then Response.Write("checked") end if%>></td>
            <td>今日头条
            <input name="TodayNewsTF" type="checkbox" id="TodayNewsTF" value="1"></td>
          </tr>
          <tr> 
            <td>推荐新闻 
              <input name="RecTF" type="checkbox" id="RecTF2" value="1" <%if Request("RecTF")="1" then Response.Write("checked") end if%>></td>
            <td>是否审核 
              <input name="AuditTF" type="checkbox" id="AuditTF2" value="1" <%if Request("AuditTF")="1" then Response.Write("checked") end if%>></td>
            <td>内部链接 
              <input name="LinkTF" type="checkbox" id="LinkTF2" value="1" <%if Request("LinkTF")="1" then Response.Write("checked") end if%>>
            </td>
            <td>用户投稿 
              <input name="ManuTF" type="checkbox" id="ManuTF2" value="1" disabled checked <%if Request("ManuTF")="1" then Response.Write("checked") end if%>></td>
            <td>远程存图 
              <input type="checkbox" name="SavePic" value="1" <%if Request("SavePic")="1" then Response.Write("checked") end if%>></td>
            <td>并排新闻
            <input name="SBSNews" type="checkbox" id="SBSNews" value="1" <%if Request("SBSNews")="1" then Response.Write("checked") end if%>></td>
            <td>精彩回顾
              <input name="ClassicalNewsTF" type="checkbox" id="ClassicalNewsTF" value="1" <%if Request("ClassicalNewsTF")=1 then Response.Write("checked") end if%>></td>
            <td>备用参数
            <input name="BackUp" type="checkbox" id="BackUp" value="1"></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td colspan="5"><div align="center"> 
          <iframe id='NewsContent' src='../Editer/NewsEditer.asp' frameborder=0 scrolling=no width='93%' height='360'></iframe>
        </div></td>
    </tr>
    <tr> 
      <td height="30" colspan="5"> <div align="center"> 
          <input type="button" name="Submit2" value=" 审 核 " onClick="SubmitFun();">
          <input type="hidden" name="Content" value="<% = NewsContent %>">
          <input name="action" type="hidden" id="action2" value="add"> 
          <input type="reset" name="Submit5" value=" 还 原 ">
          <input type="button" name="Submit3" value=" 取 消 " onClick="window.close();">
        </div></td>
    </tr>
  </table>
</form></body>
</html>
<script language="javascript">
 function ChooseRiview()
   {
      if (document.NewsForm.ReviewTF.checked==true) document.NewsForm.ShowReviewTF.disabled=false;
      else document.NewsForm.ShowReviewTF.disabled=true;
	}

function SubmitFun()
{
	frames["NewsContent"].SaveCurrPage();
	var TempContentArray=frames["NewsContent"].NewsContentArray;
	document.NewsForm.Content.value='';
	for (var i=0;i<TempContentArray.length;i++)
	{
		if (TempContentArray[i]!='')
		{
			if (document.NewsForm.Content.value=='') document.NewsForm.Content.value=TempContentArray[i];
			else document.NewsForm.Content.value=document.NewsForm.Content.value+'[Page]'+TempContentArray[i];
		} 
	}
	document.NewsForm.submit();
}

function ChoosePicType()
{
  if (document.NewsForm.PicNewsTF.checked==true)
     {
	   document.NewsForm.PicPath.disabled=false;
	   document.NewsForm.PPPChoose.disabled=false;
	   document.NewsForm.NaviWords.disabled=false;
	   document.NewsForm.FilterNews.disabled=false;
	   document.NewsForm.FocusNewsTF.disabled=false;
	   document.NewsForm.ClassicalNewsTF.disabled=false;
	  }
   else
      {
	   document.NewsForm.PicPath.disabled=true;
	   document.NewsForm.PPPChoose.disabled=true;
	   document.NewsForm.NaviWords.disabled=true;
	   document.NewsForm.FilterNews.disabled=true;
	   document.NewsForm.FocusNewsTF.disabled=true;
	   document.NewsForm.ClassicalNewsTF.disabled=true;
	   }
 }
 
function ChooseExeName()
{
  if (document.NewsForm.BrowPop.value!='') document.NewsForm.FileExtName.disabled=true;
  else document.NewsForm.FileExtName.disabled=false;
 }
 
ChooseRiview();
ChoosePicType();
ChooseExeName();
</script>
<%
  if Request.Form("action")="add" then
     Dim ITitle,IClassID,INewsTemplet,IClickNum,IAddDate,INewsAddObj,INewsAddSql
     if Request.Form("Title")<>"" then
		ITitle = Replace(Replace(Request.Form("Title"),"""",""),"'","")
	 else
	    Response.Write("<script>alert('请输入新闻标题');</script>")
		Response.End
	 end if
     if Request.Form("ClassID")<>"" then
		IClassID = Replace(Replace(Request.Form("ClassID"),"""",""),"'","")
	 else
	    Response.Write("<script>alert('栏目参数传递错误');</script>")
		Response.End
	 end if
     if Request.Form("NewsTemplet")<>"" then
		INewsTemplet = Replace(Replace(Request.Form("NewsTemplet"),"""",""),"'","")
	 else
	    Response.Write("<script>alert('请选择新闻模板文件');</script>")
		Response.End
	 end if 
     if Isnumeric(Request.Form("ClickNum")) then
		IClickNum = Clng(Request.Form("ClickNum"))
	 else
	    Response.Write("<script>alert('新闻初始点击次数必须为数字类型');</script>")
		Response.End
	 end if 
	 if IsDate(Request.Form("AddDate")) then
	 	IAddDate = Formatdatetime(Request.Form("AddDate"))
	 else
	    Response.Write("<script>alert('新闻添加时间类型错误,请重新输入');</script>")
		Response.End
	 end if
	 if Request.Form("PicNewsTF")="1" and Request.Form("PicPath")="" then
	    Response.Write("<script>alert('请输入图片地址');</script>")
		Response.End
	 end if
	 if Request.Form("Content")="" or isnull(Request.Form("Content")) then
	    Response.Write("<script>alert('请输入新闻内容');</script>")
		Response.End
	 end if
	Dim ConCheckNewsID
	ConCheckNewsID = GetRandomID18
	
	Dim NewsFileNames,RsNewsConfigObj
		Set RsNewsConfigObj = Conn.Execute("Select DoMain,NewsFileName from Config")
		NewsFileNames = NewsFileName(RsNewsConfigObj("NewsFileName"),IClassID,ConCheckNewsID)

	  set INewsAddObj=server.createobject("adodb.recordset")
	  INewsAddSql="select * from News"
	  INewsAddObj.open INewsAddSql,Conn,3,3
	  INewsAddObj.addnew
	  INewsAddObj("Title") =  ITitle
	  If Request.Form("SubTitle")<>"" then
		  INewsAddObj("SubTitle") = Replace(Replace(Request.Form("SubTitle"),"""",""),"'","")
	   end if
	  INewsAddObj("ClassID") =  IClassID
	  INewsAddObj("HeadNewsTF") =  "0"
	  INewsAddObj("Content") = ReplaceRemoteUrl(Request.Form("Content"),"/Files/"&BeyondPicDir,RsNewsConfigObj("DoMain"),DummyPath_Riker)   '新闻内容 尚未判断
	  INewsAddObj("NewsID") =  ConCheckNewsID    '新闻ID
	  INewsAddObj("ManuTF") =  "1"
	  INewsAddObj("FileName") = NewsFileNames   '新闻文件名 
	  if Request.Form("BrowPop") <> "" then
		  INewsAddObj("FileExtName") =  "asp"     '新闻文件扩展名
	  else
		  INewsAddObj("FileExtName") =  Request.Form("FileExtName")     '新闻文件扩展名
	  end if 
	  INewsAddObj("Path") =  year(now())&"/"&month(now())&"-"&day(now())&"/"             '新闻路径 
	  INewsAddObj("AddDate") =  IAddDate
	  if Request.Form("KeyWords") <> "" then 
		  INewsAddObj("KeyWords") = Replace(Replace(Request.Form("KeyWords"),"""",""),"'","")
	  end if
	  if Request.Form("TxtSource") <> "" then
		  INewsAddObj("TxtSource") = Replace(Replace(Request.Form("TxtSource"),"""",""),"'","")
	  end if
	  if Request.Form("Author") <> "" then
		  INewsAddObj("Author") = Replace(Replace(Request.Form("Author"),"""",""),"'","")
	  end if
	  if Request.Form("Editer") <> "" then
		  INewsAddObj("Editer") = Replace(Replace(Request.Form("Editer"),"""",""),"'","")
	  end if
	  INewsAddObj("ClickNum") =  IClickNum
	  if Request.Form("RecTF") = "1" then
		  INewsAddObj("RecTF") =  "1"
	  else
		  INewsAddObj("RecTF") =  "0"
	  end if
	  if Request.Form("SpecialID") <> "" then
		  INewsAddObj("SpecialID") = Replace(Replace(Request.Form("SpecialID"),"""",""),"'","")
	  end if
	  if Request.Form("PicNewsTF") = "1" then
		  INewsAddObj("PicNewsTF") =  "1"
	  else
		  INewsAddObj("PicNewsTF") =  "0"
	  end if
	  INewsAddObj("PicPath") =  Request.Form("PicPath")
	  if Request.Form("AuditTF") = "1" then
		  INewsAddObj("AuditTF") =  "0"
	  else
		  INewsAddObj("AuditTF") =  "1"
	  end if
	  INewsAddObj("DelTF") =  "0"
	  if Request.Form("BrowPop") <> "" then
		  INewsAddObj("BrowPop") =  Replace(Replace(Request.Form("BrowPop"),"""",""),"'","")
	  end if
	  if Request.Form("ShowReviewTF") = "1" then
		  INewsAddObj("ShowReviewTF") =  "1"
	  else
		  INewsAddObj("ShowReviewTF") =  "0"
	  end if
	  if Request.Form("ReviewTF") = "1" then
		  INewsAddObj("ReviewTF") =  "1"
	  else
		  INewsAddObj("ReviewTF") =  "0"
	  end if
	  if Request.Form("SBSNews") = "1" then
		  INewsAddObj("SBSNews") =  "1"
	  else
		  INewsAddObj("SBSNews") =  "0"
	  end if
	  if Request.Form("MarqueeNews") = "1" then
		  INewsAddObj("MarqueeNews") =  "1"
	  else
		  INewsAddObj("MarqueeNews") =  "0"
	  end if
	  if Request.Form("ProclaimNews") = "1" then
		  INewsAddObj("ProclaimNews") =  "1"
	  else
		  INewsAddObj("ProclaimNews") =  "0"
	  end if
	  if Request.Form("LinkTF") = "1" then
		  INewsAddObj("LinkTF") =  "1"
	  else
		  INewsAddObj("LinkTF") =  "0"
	  end if
	  If Request.Form("TodayNewsTF")<>"" then
		  INewsAddObj("TodayNewsTF") = 1
	  Else
		  INewsAddObj("TodayNewsTF") = 0
	  End If
	  if Request.Form("FilterNews") = "1" then
		  INewsAddObj("FilterNews") =  "1"
	  Else
		  INewsAddObj("FilterNews") =  "0"
	  End if
	  INewsAddObj("NewsTemplet") =  INewsTemplet
	  INewsAddObj("NaviWords") =  Request.Form("NaviWords")
	  If Request.Form("SavePic") = "1" then
		  INewsAddObj("Content") = ReplaceRemoteUrl(Request.Form("Content"),"/Files/"&BeyondPicDir,RsNewsConfigObj("DoMain"))
	  Else
		  INewsAddObj("Content") = Request.Form("Content")   '新闻内容
	  End If
	  INewsAddObj.Update
	  INewsAddObj.Close
	  Set INewsAddObj = Nothing
	  RsContObj.Close
	  Set RsContObj = Nothing
	  Conn.Execute("Delete from Contribution where ContID = '"&NewsID&"'")
	  
	  Dim CreatePageObj
	  Set CreatePageObj = Conn.Execute("Select * from News where NewsID='"&ConCheckNewsID&"'")
		If Not CreatePageObj.eof then
			RefreshNews CreatePageObj
		End If	
		CreatePageObj.Close
		Set CreatePageObj = Nothing  
	  conn.execute("update members set ConNumNews=ConNumNews+1 where MemName='"&Replace(Replace(Request.Form("Author"),"""",""),"'","")&"'")
	  conn.execute("update members set Point=Point+"&confimsn("NumberContPoint")&" where MemName='"&Replace(Replace(Request.Form("Author"),"""",""),"'","")&"'")
	  Response.Write("<script>alert(""稿件审核成功"");dialogArguments.location.reload();window.close();</script>")
	  Response.End
  end if
%>