index_soft.asp

一个很好的下载系统原码

<%sub index_soft()
opendown
sql="select top "&indexsoft&" soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount from soft order by soft_joindate DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<TABLE width=98% border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY>
    <TR> 
      <TD width="940" height=39 valign="top"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="1" align="center">
          <%do while not rs.eof%>
          <tr bgcolor="#FFFFFF"> 
            <td width="6%" height="25" align="center" class="chinese"><img src="images/xia.gif" width="9" height="7"></td>
            <td width="86%" class="chinese"><a href="showsoft.asp?soft_id=<%=rs("soft_id")%>" target="_blank" title="<%=rs("soft_name")%>,已经被下载<%=rs("soft_dcount")%>次"><%=rs("soft_name")%></a>&nbsp;</td>
            <td width="8%" class="chinese"><font color="#666666">[</font><font color="#ff6600"><%=rs("soft_dcount")%></font><font color="#666666">/</font><font color="#ff6600"><%=rs("soft_rcount")%></font><font color="#666666">]</font></td>
          </tr>
          <tr> 
            <td height="1" colspan="3" background="images/dotlineh.gif"></td>
          </tr>
          <%rs.movenext
loop
if rs.eof and rs.bof then%>
          <tr> 
            <td bgcolor="#E8E8E8" class="chinese" colspan="3">暂时没有程序下载</td>
          </tr>
          <%end if%>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>
<%
rs.close
set rs=nothing
end sub
%>