<!--#include file="down_conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="down_function.asp" -->

<%
Dvbbs.LoadTemplates("")
Dvbbs.Stats="下载中心"
Dvbbs.Nav()'输出头
Dvbbs.Head_var 2,0,Dvbbs.Stats,""

%>

<!-- #include file="down_Forum_js.asp" -->
<table class="tableborder1" cellspacing=1 width="<%= Dvbbs.mainsetting(0) %>" align=center>
        <tr>
          <th valign=middle height=25 width="100%">
<%
	dim sql1,rs1,newSoft
	set rs=server.createobject("adodb.recordset")
	sql="select class,classid from Dclass"
	rs.open sql,conndown,1,3
	do while not rs.eof
%>
<a href="down_index.asp?classid=<%=rs("classid")%>" onMouseOver="showmenu(event,'<%=showdown(rs("classid"),0)%>')" style="CURSOR:hand"><font color="ffffff"><%=rs("class")%></font></a>|        
<%
	rs.movenext
	loop
	rs.close
%>
</th>
        </tr>
</table><BR>

<table align=center  width="<%= Dvbbs.mainsetting(0) %>">
  <tr>

   <td width="24%" valign="top" align="left" rowspan="2">
<%if showset(2)=1 then%><!--#include file="down_day.asp"--><BR><%end if%>
<%if showset(3)=1 then%><!--#include file="down_week.asp"--><BR><%end if%>
<%if showset(4)=1 then%><!--#include file="down_all.asp"--><BR><%end if%></td>
    <td width="52%" valign="top" align="left">
    <table class="singleborder" cellspacing=1 width="100%" align=center >


        
        <tr>
          <th valign=middle height=25 width="100%">本站新进软件</th>
        </tr>
<tr><td class=tablebody1><%set rs = server.CreateObject ("Adodb.recordset")
	sql="select * from showpage"
	rs.open sql,conndown,0,1
	if not(rs.eof and rs.bof) then
%>
    <marquee scrollamount=3 onmouseover=this.stop(); onmouseout=this.start(); width="80%"><font color=red><%=rs("gonggao")%></font></marquee><%
rs.close
end if%></td></tr>

        <tr><td class=tablebody1><table align=center border="0" width="100%">
<%

sql="select top "&newnum&" "
sql=sql&"download.id,download.showname,download.dateandtime,download.hits,download.classid,download.Nclassid,DNclass.Nclass "
if vipshow=2 then 
sqlvip="select * from [DV_user] where username='"&DVBBS.membername&"' and vip=5"
    rs.open sqlvip,conn,1,3
     if not(rs.bof and rs.eof) then
	
	sql=sql&" from download,DNclass where download.stop=0 and download.Nclassid=DNclass.Nclassid "
    else
         sql=sql&" from download,DNclass where downshow<>6 and download.stop=0  and download.Nclassid=DNclass.Nclassid "
  end if
      rs.close
else
sql=sql&" from download,DNclass where download.stop=0 and download.Nclassid=DNclass.Nclassid "
end if

	sql=sql&" order by download.dateandtime DESC, download.id DESC"
	rs.open sql,conndown,1,1
	if rs.eof and rs.bof then
%>
没有任何软件    
<%else
	newSoft = 0
%>
<%do while not rs.eof and newSoft<newnum%><tr><td height=20>    
&nbsp;&nbsp;[<a href='down_index.asp?classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>'><%=rs("Nclass")%></a>]        
<a href="down_list.asp?id=<%=rs("id")%>" title=<%=rs("showname")%>><%=left(rs("showname"),20)%></a>
(<%if rs("dateandtime")=date() then%><font color=red><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font><img src="down_images/new.gif"><%else%><font color='#999999'><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font><%end if%>,<font color=green><%=rs("hits")%></font>)<br> 
</td></tr>
<%
	rs.movenext
	newSoft=newSoft+1
	loop
	end if
	rs.close
%>
      </table></td></tr>
</table>
    <br>
    <!--#include file=down_query.asp--> </td>
     <td width="24%" valign="top" align="left"><%if showset(0)=1 then%>
<!--#include file="down_allhot.asp"--><br><%end if%><%if showset(1)=1 then%><!--#include file="down_hot.asp"--><BR><%end if%>
<!--#include file="down_tongji.asp"-->
    </td>
  </tr>

            </table>
        </td></tr>
</table>
    </td>
  </tr>
</table>

<table class="tableborder1" cellspacing=1 width="<%= Dvbbs.mainsetting(0) %>" align=center valign="top">
        <tr>
          <th valign=middle height=25 width="100%">软件详细分类</th>
        </tr>
        <tr><td class=tablebody1 valign="top" align="left">
            <table border="0" width="100%" cellspacing="1">
              <%
	sql="select class,classid from Dclass"
	rs.open sql,conndown,1,1
	if rs.bof and rs.eof then
		response.write "<tr><td>没有任何分类</td></tr>"
	else
	do while not rs.eof
%><tr>
                <td width="1%" valign="middle" nowrap bgcolor="#eeeeee" >
                  <IMG SRC="down_images/form.gif" BORDER=0 align="absmiddle">  <a href="down_index.asp?classid=<%=rs("classid")%>"><font color=blue><%=rs("class")%></font></a>
</td>
                <td align="left" valign="middle"><%set rs1=server.createobject("adodb.recordset")
	sql1="select Nclass,Nclassid,classid from DNclass where classid="&rs("classid")
	rs1.open sql1,conndown,1,3
	do while not rs1.eof
%><a href="down_index.asp?classid=<%=rs1("classid")%>&Nclassid=<%=rs1("Nclassid")%>"><%=rs1("Nclass")%></a>&nbsp;&nbsp;    
 <%
	rs1.movenext
	loop
	rs1.close
%></td>
              </tr>            <%
	rs.movenext
	loop
	end if
	rs.close
%>
            </table>
        </td></tr>
</table>
<br>
<%	
call down_payuser()
	call down_manage()
	conndown.close
	set conndown=nothing
Dvbbs.ActiveOnline	
Dvbbs.footer()

%>
