index_article.asp

一个很好的下载系统原码

<%sub index_article()
openarticle
sql="select top "&indexarticle&" art_id,cat_id,art_title,art_date,art_count from art order by art_date 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
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1%>
          <tr bgcolor="#FFFFFF"> 
            <td width="6%" height="25" align="center" class="chinese"><img src="images/wen.gif" width="9" height="7"> 
            </td>
            <td width="96%" height="25" class="chinese"><a href="showart.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>" title="<%=rs("art_title")%>,发表于<%=rs("art_date")%>,已经被阅读<%=rs("art_count")%>次。" target="_blank"><%=rs("art_title")%></a> </td>
          </tr>
          <tr> 
            <td height="1" colspan="2" background="images/dotlineh.gif"></td>
          </tr>
          <%
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
%>
          <tr> 
            <td colspan="2" bgcolor="#F6F6F6" class="chinese">暂时没有文章！</td>
          </tr>
          <%end if%>
        </table></TD>
    </TR>
  </TBODY>
</TABLE>

<%
rs.close
set rs=nothing
end sub
%>