index_news.asp

来自「功能强大的一个b/s工作站」· ASP 代码 · 共 28 行

<%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="100%" border="0" align="center" cellpadding="0" cellspacing="0">
          <%do while not rs.eof%>
          <tr> 
            <td width="13%" height="22" class="chinese"> <div align="right"><img src="images/xin.gif" width="9" height="7">&nbsp;&nbsp;</div></td>
            
    <td width="87%" class="chinese"><a href="shownews.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=rs("news_title")%></a></td>
          </tr>
          <%rs.movenext
		loop
		if rs.eof and rs.bof then%>
          <tr> 
            <td colspan="2" height="25" align="right" class="chinese"> 目前尚无任何新闻！</td>
          </tr>
          <%end if%>
          <%if not rs.eof or not rs.bof then%>
          <%end if%>
        </table>
<%
rs.close
set rs=nothing
end sub%>