index_news.asp

ASP源码

<%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
%>
<div align="center">
  <center>
<table width="98%" border="0" cellspacing="0" cellpadding="3" bgcolor="#E8E8E8" height="54" style="border-collapse: collapse" bordercolor="#111111">
  <tr bgcolor="#FFFFFF"> 
    <td class="newshead" colspan="2" height="10" bgcolor="#F5F5F5">
    <img border="0" src="images/pic000/shouyeNEWS.gif">&nbsp;
    <span style="font-size: 9pt">最新新闻</span></td>
  </tr>
  <tr> 
    <td colspan="2" valign="top" height="7" bgcolor="#FFFFFF"> </td>
  </tr>
  <%do while not rs.eof%>
  <tr> 
    <td width="6%" height="5" class="chinese" bgcolor="#FFFFFF"> 
      <div align="center"><font color="#666666">
        <img src="images/pic000/shouyeXT0.gif" align="middle"></font></div>
    </td>
    <td width="88%" class="chinese" height="5" bgcolor="#FFFFFF"><a href="shownews.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=rs("news_title")%></a><font color="#666666"><span style="font-size: 6pt">&nbsp; 
    (<%=rs("news_date")%>) ------ </span>
    </font> <a href="<%=rs("news_ahome")%>" target="_blank" class="fontcn">
    <font color="#666666"><span style="font-size: 6pt"><%=rs("news_author")%></span></font></a></td>
  </tr>
  <tr> 
    <td colspan="2" valign="top" background="images/dotlineh.gif" height="1" bgcolor="#FFFFFF"></td>
  </tr>
  <%rs.movenext
		loop
		if rs.eof and rs.bof then%>
  <tr> 
    <td colspan="2" height="12" align="right" class="chinese" bgcolor="#FFFFFF"> 
    <font color="#666666">目前尚无任何新闻！</font></td>
  </tr>
  <%end if%>
  <%if not rs.eof or not rs.bof then%>
  <tr> 
    <td colspan="2" align="right" class="chinese" height="8" bgcolor="#FFFFFF"> <a href="news.asp">
    <font color="#666666"><img src="images/more1.gif" width="50" height="17" border="0" alt="More News"></font></a><font color="#666666">
    </font> 
    </td>
  </tr>
  <%end if%>
</table>
  </center>
</div>

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