<table  class="singleborder" cellspacing=1 width="100%" height=180 align=center>
        <tr>
          <th valign=top height=25 width="100%">今日下载Top<%=daytop%>
</th>
</tr>
<tr>
<td class=tablebody1 valign=top><%
	dim tdate,rs_day,d
	tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
	set rs_day=server.createobject("adodb.recordset")
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="select top "&daytop&" id,showname,dayhits from download where lasthits=date() and stop=0 and dayhits>0 order by dayhits desc"
    else 
       sql="select top "&daytop&" id,showname,dayhits from download where lasthits=date() and stop=0 and dayhits>0 and downshow<>6 order by dayhits desc"
   end if
    rs.close
else
 sql="select top "&daytop&" id,showname,dayhits from download where lasthits=date() and stop=0 and dayhits>0 order by dayhits desc"
end if
	rs_day.open sql,conndown,0,1
	'set daynum=conndown.OpenRecordset("select count(*)  from [download] where lasthits=date() and stop=0 and dayhits>0")
	if rs_day.eof and rs_day.bof then
for topcount=1 to daytop
%>
本日暂时没有下载<BR>
<%
next

else
	d=0
		do while (not rs_day.eof and d<daytop) %>
		<a href="down_list.asp?id=<%=rs_day("id")%>" title="<%=rs_day("showname")%>"><img src="down_images/s001.gif" border="0"> <%=left(rs_day("showname"),10)%>[<%=rs_day("dayhits")%>] </a><br>
		<%
		rs_day.movenext
		d=d+1
		loop
		end if
		%>		

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