index_article.asp

一个很COOL的按钮FLASH,满不错的!

<%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="554" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#dddddd" bordercolordark="#FFFFFF">
<tr><td height=30 background=images/anbg2.gif style="border:1px solid #CCCCCC; ">&nbsp;&nbsp;：：：技 术 专 题 ：：：</td></tr>
<tr><td>
<table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
<%do while not rs.eof
sql="select cat_id,cat_name from cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1%>
<tr>
<td width="6%" align="center" height="25"><img src="images/biao.gif">
</td>
<td class="chinese" width="96%"><a href="showart.asp?art_id=<%=rs("art_id")%>&cat_id=<%=rs("cat_id")%>" title="文章名称：<%=rs("art_title")%>&#10;发表时间：<%=rs("art_date")%>&#10;欢迎程度：已经被阅读<%=rs("art_count")%>次" ><%=rs("art_title")%></a> &nbsp;[<a href="article.asp?cat_id=<%=rscat("cat_id")%>" ><%=rscat("cat_name")%></a>] <font color="#cccccc"><%=rs("art_date")%></font></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 height=27 colspan="2" align="center">正在更新之中........</td>
</tr>
<%end if%>
<%if not rs.eof or not rs.bof then%>
<tr>
<td colspan="2" align="right" class="chinese"><font color=#dddddd>软件技巧&nbsp;大有可观…</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="article.asp"><img src="images/bottom.gif" border="0" alt="更多文章"></a>
</td>
</tr>
<%end if%>
</table>
</td></tr></table>
<br>
<%
rs.close
set rs=nothing
end sub
%>