<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<%
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"),"P0112") then Call ReturnError1()
Dim NewsID,Sql,NewsIDArray,i
NewsID = Request("NewsID")
if NewsID="" or isnull(NewsID) then
	Sql = "Update News Set AuditTF=1"
	Conn.Execute(Sql)
else
	NewsIDArray = Split(NewsID,"*")
	for i = LBound(NewsIDArray) to UBound(NewsIDArray)
		if NewsIDArray(i) <> "" then
			Sql = "Update News Set AuditTF=1 where NewsID='"&NewsIDArray(i)&"'"
			Conn.Execute(Sql)
		end if
	next
end if
if Err.Number = 0 then
	Response.Write("<script>alert(""新闻审核成功"");window.close();</script>")
	Response.End
else
	Response.Write("<script>alert(""新闻审核未能成功"");window.close();</script>")
	Response.End
end if
Set Conn = Nothing
%>