
<!--#include file="../inc/Conn.asp"-->
<!--#include file="Inc/Admin.Asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
PurviewValue="downloadcheck"
If not CheckAdmin(PurviewValue) then
Response.Write("<script language=""JavaScript"">alert(""越权操作!"");history.go(-1);")
response.end
End If
%>
<%
dim strFileName
const MaxPerPage=20
dim totalPut   
dim CurrentPage
dim TotalPages
dim i,j
dim ID
dim Title
dim BigClassName,SmallClassName
dim Passed
dim PurviewChecked
dim strAdmin,arrAdmin

PurviewChecked=false
Passed=trim(request("Passed"))
strFileName="Download_Check.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName

if Passed="" then
	if Session("Passed")="" then
		Passed="False"
	else
		Passed=Session("Passed")
	end if
end if
session("Passed")=Passed
Title=Trim(request("Title"))
ID=Request("ID")
BigClassName=Trim(request("BigClassName"))
SmallClassName=Trim(request("SmallClassName"))
if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

dim sql
dim rs
sql="select * from Download where Passed=" & Passed
if Title<>"" then
	sql=sql & " and Title like '%" & Title & "%' "
else
	if BigClassName<>"" then
		sql=sql & " and BigClassName='" & BigClassName & "' "
		if SmallClassName<>"" then
			sql=sql & " and SmallClassName='" & SmallClassName & "' "
		end if
	else
'		if SpecialName<>"" then
'			sql=sql & " and SpecialName='" & SpecialName & "' "
'		end if
	end if
end if
sql=sql & " order by ID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<SCRIPT language=javascript>
function unselectall()
{
    if(document.Check.chkAll.checked){
	document.Check.chkAll.checked = document.Check.chkAll.checked&0;
    } 	
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll")
       e.checked = form.chkAll.checked;
    }
  }
</SCRIPT>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border">
  <form name="Passed" method="Get" action="Download_Check.asp">
    <tr>
      <td class="tdbg"><strong>下载选项：</strong>
          <input name="Passed" type="radio" value="False" onClick="submit();" <%if Passed="False" then response.write " checked"%>>
        未审核的下载&nbsp;&nbsp;&nbsp;&nbsp;
        <input name="Passed" type="radio" value="True" onClick="submit();" <%if Passed="True" then response.write " checked"%>>
        已审核的下载
        <input name="BigClassName" type="hidden" id="BigClassName" value="<%=BigClassName%>">
        <input name="SmallClassName" type="hidden" id="SmallClassName" value="<%=SmallClassName%>">
      </td>
    </tr>
  </form>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" class="border" >
  <tr>
    <td height="25" class="tdbg">|&nbsp;
        <%
dim sqlBigClass,sqlSmallClass,rsBigClass,rsSmallClass,sqlSpecial,rsSpecial
sqlBigClass="select * from BigClass_down"
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open sqlBigClass,conn,1,1
if rsBigClass.eof then 
	response.Write("还没有任何类别，请首先添加类别。")
end if
do while not rsBigClass.eof
	if rsBigClass("BigClassName")=BigClassName then
		response.Write("<a href='Download_Check.asp?BigClassName=" & rsBigClass("BigClassName") & "'><font color='red'>" & rsBigClass("BigClassName") & "</font></a> | ")
		if session("purview")=3 then
			strAdmin=rsBigClass("Admin")
			if Instr(strAdmin,"|")>0 then
				arrAdmin=split(strAdmin)
				for i=0 to ubound(arrAdmin)
					if trim(arrAdmin(i))=session("admin") then
						PurviewChecked=True
						exit for
					end if
				next
			else
				if trim(strAdmin)=session("Admin") then
					PurviewChecked=True
				end if
			end if
		end if
	else
		response.Write("<a href='Download_Check.asp?BigClassName=" & rsBigClass("BigClassName") & "'>" & rsBigClass("BigClassName") & "</a> | ")
	end if
	rsBigClass.movenext
loop
rsBigClass.close
set rsBigClass=nothing
%>
    </td>
  </tr>
  <%
if BigClassName<>"" then
	sqlSmallClass="select * from SmallClass_down where BigClassName='" & BigClassName & "'"
	Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
	rsSmallClass.open sqlSmallClass,conn,1,1
	if not (rsSmallClass.bof and rsSmallClass.eof) then
		response.write "<tr><td class=tdbg>"
		do while not rsSmallClass.eof
			if rsSmallClass("SmallClassName")=SmallClassName then
				response.Write("&nbsp;<a href='Download_Check.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'><font color='red'>" & rsSmallClass("SmallClassName") & "</font></a>&nbsp;&nbsp;")
				if session("purview")=4 then
					strAdmin=rsSmallClass("Admin")
					if Instr(strAdmin,"|")>0 then
						arrAdmin=split(strAdmin)
						for i=0 to ubound(arrAdmin)
							if trim(arrAdmin(i))=session("admin") then
								PurviewChecked=True
								exit for
							end if
						next
					else
						if trim(strAdmin)=session("Admin") then
							PurviewChecked=True
						end if
					end if
				end if
			else
				response.Write("&nbsp;<a href='Download_Check.asp?BigClassName=" & rsSmallClass("BigClassName") & "&SmallClassName=" & rsSmallClass("SmallClassName") & "'>" & rsSmallClass("SmallClassName") & "</a>&nbsp;&nbsp;")
			end if
			rsSmallClass.movenext
		loop
		response.write "</td></tr>"
	end if
	rsSmallClass.close
	set rsSmallClass=nothing
end if
%>
</table>
<form action="Download_Check_Set.asp" method="Post" name="Check" id="Check">
  <table width="100%" height="22" border="0" cellpadding="2" cellspacing="1" class="border">
    <tr>
      <td width="453" height="22" class="tdbg"><a href="Download_Check.asp">&nbsp;下载审核</a>&nbsp;&gt;&gt;&nbsp;
          <%
if Title="" and BigClassName="" and SmallClassName="" then
	if Passed="False" then
		response.write "所有未审核的下载"
	else
		response.write "所有已审核的下载"
	end if
else
	if request("Query")<>"" then
		if Title<>"" then
			response.write "标题中含有“<font color=blue>" & Title & "</font>”并且未审核的下载"
		else
			response.Write("所有未审核的下载")
		end if
 	else
		if BigClassName<>"" then
			response.write "<a href='Download_Check.asp?BigClassName=" & BigClassName & "'>" & BigClassName & "</a>&nbsp;&gt;&gt;&nbsp;"
			if SmallClassName<>"" then
				response.write "<a href='Download_Check.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName & "'>" & SmallClassName & "</a>"
			else
				response.write "所有小类"
			end if
		end if
	end if
end if
%>
      </td>
      <td width="161" class="tdbg">&nbsp;
          <%
	if rs.eof and rs.bof then
	response.write "共找到 0 个下载</td></tr></table>"
else
		totalPut=rs.recordcount
		if currentpage<1 then
				currentpage=1
		end if
		if (currentpage-1)*MaxPerPage>totalput then
			if (totalPut mod MaxPerPage)=0 then
				currentpage= totalPut \ MaxPerPage
			else
					currentpage= totalPut \ MaxPerPage + 1
			end if

		end if
	response.Write "共找到 " & totalPut & " 个下载"
%>
      </td>
    </tr>
  </table>
</form>
<table cellpadding="2" cellspacing="1" border="0" width="90%" align="center" class="border">
	<tr>
		<td class="topbg" height="25" align="center"><strong>下 载 审 核</strong></td>
	</tr>
	<tr>
		<td align="center"><form action="Download_Check_Set.asp" method="Post" name="Check" id="Check">
		    <%		
		if currentPage=1 then
				showContent
				showpage strFileName,totalput,MaxPerPage,true,false," 个下载"
		else
				if (currentPage-1)*MaxPerPage<totalPut then
						rs.move  (currentPage-1)*MaxPerPage
					dim bookmark
						bookmark=rs.bookmark
						showContent
						showpage strFileName,totalput,MaxPerPage,true,false," 个下载"
				else
					currentPage=1
						showContent
						showpage strFileName,totalput,MaxPerPage,true,false," 个下载"
			end if
	end if
end if
%>
<%  
sub showContent
   	dim i
    i=0
%>
<table  border="0" cellspacing="1" width="100%" cellpadding="2" style="word-break:break-all">
				<tr class="title"> 
					<td width="30" height="25" align="center" class="Title"><strong>选择</strong></td>
					<td width="37"  height="20" align="center" class="Title"><strong>ID</strong></td>
					<td width="317" align="center" class="Title" ><strong>下载名称</strong></td>
					<td width="63" align="center" class="Title" ><strong>加入时间</strong></td>
					<td width="57" align="center" class="Title" ><strong>点击数</strong></td>
					<td width="40" align="center" class="Title" ><strong>已审核</strong></td>
					<td width="60" align="center" class="Title" ><strong>操作</strong></td>
				</tr>
<%do while not rs.eof%>
				<tr class="tdbg"> 
					<td width="30" height="22" align="center" class="tdbg"> 
					<input name='ID' type='checkbox' onClick="unselectall()" id="ID2" value='<%=cstr(rs("ID"))%>'>
				  </td>
					<td width="37" align="center" class="tdbg"><%=rs("ID")%></td>
					<td class="tdbg"> <a href="../DownloadShow.asp?ID=<%=rs("ID")%>" 
					title="<%=replace(left(nohtml(rs("Content")),200),chr(34),"") & "……"%>">&nbsp;<%=rs("Title")%></a></td>
					<td width="63" align="center" class="tdbg"><%= FormatDateTime(rs("AddDate"),2) %></td>
					<td width="57" align="center" class="tdbg"><%=rs("Hits")%> </td>
					<td width="40" align="center" class="tdbg">
<%if rs("Passed")=true then response.write "是" else response.write "否" end if%>
				  </td>
					<td width="60" align="center" class="tdbg"> 
<%
if session("purview")<=2 or PurviewChecked=True then
	If rs("Passed")=False Then 
%>
<a href="Download_Check_Set.asp?Action=Check&ID=<%=rs("ID")%>">通过审核</a> 
<% Else %>
<a href="Download_Check_Set.asp?Action=CancelCheck&ID=<%=rs("ID")%>">取消通过</a> 
<%
	End If
end if
%>
				  </td>
				</tr>
<%
i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
		  </table>
			<table width="100%" border="0" cellpadding="2" cellspacing="0">
				<tr> 
					<td width="250" height="30" class="tdbg" >
				  <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">选中本页显示的所有下载</td>
					<td class="tdbg" ><input name="submit" type='submit'
					value="<%if Passed="True" then response.write "取消"%>审核选定的下载" 
					<%if session("purview")>=3 and session("purview")<=4 and PurviewChecked=False then response.write "disabled"%>> 
				  <input name="Action" type="hidden" id="Action" value="
<%
if Passed="False" then
response.write "Check"
else
response.write "CancelCheck"
end if%>"></td>
				</tr>
		  </table>
<%
end sub 
%>
		  </form>
	  </td>
	</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border" >
  <tr class="tdbg">
    <form name="searchsoft" method="get" action="Download_Check.asp">
      <td height="30" ><strong>查找下载：</strong>
          <input name="Title" type="text" class=smallInput id="Title3" size="20">
          <input name="Query" type="submit" id="Query" value="查 询">
        &nbsp;&nbsp;请输入下载名称。如果为空，则查找所有下载。 </td>
    </form>
  </tr>
</table>
<BR>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.close
set rs=nothing  
call CloseConn()

sub CheckArticle(id)
    dim sql
    sql="update Download set Passed = True where ID="&cstr(id)
    conn.execute sql
    if err.Number<>0 then
		err.clear
		'response.write "删 除 失 败 !<br>"
    else
        'response.write "删除成功！<br>"
    end if	
End sub
sub CancelCheckArticle(id)
    dim sql
    sql="update Download set Passed = False where ID="&cstr(id)
    conn.execute sql
    if err.Number<>0 then
		err.clear
		'response.write "删 除 失 败 !<br>"
    else
        'response.write "删除成功！<br>"
    end if	
End sub
%>