redian.asp

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

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr><td width="140" valign="top" bgcolor="#9F579F"><p align="center"><br>
    <img src="../images/pic-156.gif"  width="114" height="181"></td>
    <td width="5" valign="top" bgcolor="#CBA5D5"></td>
    <td width="625" valign="top"><table border="0" width="100%">
      <tr>
        <td width="100%" colspan="2"><img src="../images/pic-157.gif"  width="298" height="38"></td>
      </tr>
      <tr>
        <%sql="select * from news2_commend where menuid='009009' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
        <td width="30%" valign="top" enctype=multipart/form-data><p  align="center">
        <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l2">
        <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="120" height="150" border="0">
        <%=rs("newstitle")%>
        </a></td>
        
        <%end if
      
        rs.close%>
        <td width="70%" valign="top"><ul>
          <%sql="select * from news2_commend where menuid='009010' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%> <br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>  
          </ul>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>