huigu.asp

来自「asp的新闻网站」· ASP 代码 · 共 35 行

<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#DBDBDB"><p align="center"><strong><span style="font-size: 14px"><font
        color="#FF8040">◇</font><font color="#008000"> </font><font color="#0080FF">上周新闻回顾</font><font
        color="#008000"> </font><font color="#FF8040">◇</font></span></strong></td>
      </tr>
      <tr>
        <td width="100%"><div align="center">
        <center>
        <table border="0" width="96%" cellpadding="3" bgcolor="#F5F5F5">
	<%
      sql="select infoid,newstitle,menuid from news2_review where menuid='002006' and visible<>'0' order by infoindex"
      set rs=server.CreateObject ("adodb.recordset")
      rs.Open sql,conn,3,1
     for i=1 to rs.recordcount%>
          <tr>
            <td width="5%" valign="top"><img src="../images/ord<%=i%>.gif"  width="12" height="13"></td>
            <td width="95%" valign="top"><a class="l3" href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank">
            <span class="l6"><%showbody( rs("newstitle"))%></span></a></td>
          </tr>
         <%
         rs.MoveNext 
         next
         set rs=nothing
         %>
          <tr>
            <td width="100%" valign="top" colspan="2"><span class="l6"><p align="right"></span>
            <a href="morereview.asp?menuid=002006&menuname=一周回顾" target="_blank" class="l2">更多&gt;&gt;&gt; </a>
            <span class="l6"></span></td>
          </tr>

        </table>
        </center></div></td>
      </tr>
    </table>