<table class="singleborder" cellspacing=1 width="100%" align=center height=180>
        <tr>
          <th valign=middle height=25 width="100%">热门推荐</th>
        </tr>
        <tr><td class=tablebody1 valign=top><%
  dim h
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 "&hotnum&" id,showname,hits from download where hots=1 and stop=0"
    else
     sql="select top "&hotnum&" id,showname,hits from download where hots=1 and downshow<>6 and stop=0"
   end if
rs.close
else
  sql="select top "&hotnum&" id,showname,hits from download where hots=1 and stop=0"
end if
	sql=sql&" order by dateandtime,hits desc"
	rs.open sql,conndown,1,1
	if rs.eof and rs.bof then
for topcount=1 to hotnum
%>
暂无热门推荐<BR>
<%
next
else
h=0
%>
<%do while not rs.eof and h<hotnum%>       
<a href="down_list.asp?id=<%=rs("id")%>" title=<%=rs("showname")%>><img src="down_images/s002.gif" border="0"> <%=left(rs("showname"),10)%><font color=red>[<%=rs("hits")%>]</font></a><br>       
<%
	rs.movenext
	h=h+1
	loop
      
	end if
	rs.close
%></td></tr>
</table>