<% 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"),"P139") then Call ReturnError1()
Dim DownLoadID,Sql,DownLoadIDArray,i
DownLoadID = Request("DownLoadID")
%>
<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>

<body leftmargin="0" topmargin="0">
<form action="" name="JSDellForm" method="post">
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
    <tr>
      <td width="9%" height="10">&nbsp;</td>
      <td width="19%" rowspan="3"><div align="center"><img src="../Images/Question.gif" width="39" height="37"></div></td>
      <td height="10" colspan="2">&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td colspan="2">您确定要审核并通过所选下载?</td>
    </tr>
    <tr>
      <td height="2">&nbsp;</td>
      <td height="2" colspan="2">&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit" value=" 确 定 ">
          <input type="hidden" name="action" value="trues">
          <input type="button" name="Submit2" value=" 取 消 " onClick="window.close();">
      </div></td>
      <td width="6%">&nbsp;</td>
    </tr>
    <tr>
      <td height="10">&nbsp;</td>
      <td height="10" colspan="2">&nbsp;</td>
      <td height="10">&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>
<%
	if request.Form("action")="trues" then
		if DownLoadID="" or isnull(DownLoadID) then
			'Sql = "Update DownLoad Set AuditTF=1,NewsTemplet='DownLoad.htm'"
			Sql = "Update DownLoad Set AuditTF=1"
			Conn.Execute(Sql)
		else
			DownLoadIDArray = Split(DownLoadID,"*")
			for i = LBound(DownLoadIDArray) to UBound(DownLoadIDArray)
				if DownLoadIDArray(i) <> "" then
					'Sql = "Update DownLoad Set AuditTF=1,NewsTemplet='DownLoad.htm' where DownLoadID='"&DownLoadIDArray(i)&"'"
					Sql = "Update DownLoad Set AuditTF=1 where DownLoadID='"&DownLoadIDArray(i)&"'"
					Conn.Execute(Sql)
				end if
			next
		end if
		Response.Write("<script>window.close();</script>")
		Response.End
	End If
Set Conn = Nothing
%>