shendu.asp

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

 <table border="0" width="100%" cellspacing="0" cellpadding="0">                                                                           
      <tr>                                                                           
        <td width="100%" background="../images/bg-010.gif" bgcolor="#FFFFFF"><img                                                                           
        src="../images/pic-150.gif"  width="160" height="27"></td>                                                                           
      </tr>                                                                           
      <tr>                                                                           
        <td width="100%" bgcolor="#32BEB7">                                         
        <div align="center"><center>                                             
        <table border="0"  width="100%" cellpadding="3">                                                                           
        <% '输出深度报道推荐（注：输出六条信息）                                         
        sql="select top 6  * from news2_specialcommend where menuid='010005' and visible<>'0' order by infoindex "                                            
        rs.Open sql,conn,3,1                                            
        if not rs.EOF then                                            
        for i=1 to rs.RecordCount                                          
        %>                                         
                                                 
          <tr>                                                                           
            <td width="5%" valign="top"><img src="../images/pic-155.gif"  width="8" height="8"></td>                                                                           
            <td width="95%" valign="top"><a class="l9" href="index.asp?infoid=<%=rs("infoid")%>"                                                                           
            target="_blank"><span class="l4"><%=rs("newsTitle")%></span></a></td>                                                                           
          </tr>                                                                           
        <%rs.MoveNext                                             
         next                                            
         end if                                            
         rs.Close                                        
        %>                                                                            
        </table>                                                                           
        </center></div>                                         
        </td>                                                                           
      </tr>                                         
      <tr>                                                            
        <td width="100%" bgcolor="#00A49E" height="20" background="../images/bg-012.gif">                                      
         <p align="right"><a class="l10"  href="moresubject.asp?menuid=010002"                                                              
            target="_blank"><font color="#FFFFFF">更多</font></a><a></p>                                      
          </a></td>                                                            
      </tr>                                                             
    </table>