redian.asp

asp的新闻网站

<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="100%" cellpadding="3">
		<%
		'热点推荐
		sql="select * from news2_commend where menuid='002005'  and visible<>'0' order by infoindex"
		set rs2=server.CreateObject ("adodb.recordset")
		rs2.Open sql,conn,1,1
		while not rs2.EOF%>
          <tr>
            <td width="5%" valign="top"><font color="#8080FF">◆</font></td>
            <td width="95%" valign="top"><a class="l3" href="../looknews.asp?menuid=<%=rs2("menuid")%>&infoid=<%=rs2("infoid")%>"  target="_blank">
            <span class="l6"><%=rs2("newstitle")%></span></a>
            <%=" ["&rs2("derivation")&"]"%></td>
          </tr>
          <%
          rs2.MoveNext 
          wend
          set rs2=nothing%>
        </table>
        </center></div>