index_news.asp

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

<%sub index_news()
opennews
sql="SELECT top "&indexnews&" news_ahome, news_author, news_date, news_id, news_title FROM news ORDER BY news_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" >
<tr>

<td colspan="2" align="right" class="chinese">
</td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="6%" height="25" align="center"><img src="images/biao.gif">
</td>
<td width="88%" ><a href="shownews.asp?news_id=<%=rs("news_id")%>" ><%=rs("news_title")%></a>
<font color=#cccccc><%=rs("news_date")%></font> --- <%=rs("news_author")%></td>
</tr>
<tr>
<td colspan="2" valign="top" background="images/dotlineh.gif" height="1"></td>
</tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%>
<tr>
<td colspan="2" height="25" 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="news.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%>