week.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<TABLE bgColor=#817af3 border=0 cellPadding=1 cellSpacing=0 width="100%">
              <TR>
                <TD>
                  <TABLE border=0 cellPadding=3 cellSpacing=0 width="100%">
              <TR>
               <TD style="border-bottom-style: solid;border-color:#817af3;border-width:1px" bgcolor="#CCCCFF">
              <table border="0" width="100%" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="5%"><img border="0" src="images/Form.gif"></td>
                  <td width="95%">&nbsp;本周下载Top10</td>
                </tr>
              </table>
              </TD></TR>
                    <TR bgColor=#ffffff>
                      <TD> 
<font style=line-height:150%>
<%
	OldWeek = WeekDay(Date())-1
	If OldWeek = 0 Then OldWeek = 7
	OldWeek = Date()-OldWeek
	NewWeek = Date()+(9-WeekDay(Date()))
	sql="select top 10 id,showname from download where "
	sql=sql&"  (lasthits < #" & NewWeek & "#) And (lasthits > #" & OldWeek & "#) and stop=0 and weekhits>0 "
	sql=sql&" order by weekhits desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
本周没有下载
<%else%>
<%do while not rs.eof%>
<a href="list.asp?id=<%=rs("id")%>"><%=rs("showname")%></a><br>
<%
	rs.movenext
	loop
	end if
	rs.close
%>
</font>
            </TD></TR></TABLE></TD></TR></TABLE>