right.asp

asp的新闻网站

<table                    
    border="0" width="100%" cellspacing="0" cellpadding="0">                    
      <tr>                    
        <td width="100%"><img src="../images/pic-184.gif"  width="142" height="25"></td>                    
      </tr>                    
                  
        <% '输出故事连载图片推荐  %>                 
        <%sql="select * from news2_commend where menuid='011006' and visible<>'0' order by infoindex "                  
        rs.Open sql,conn,3,1                  
        if not rs.EOF then%>             
                   
      <tr>                    
        <td width="100%" height="10"><table border="0" width="100%" cellpadding="3">                    
          <tr>                    
            <td width="100%"><p align="center"><a class="l7"                   
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"                   
            target="_blank"><font color="#D52B73"><%=rs("newstitle")%></font></a> <br></td>                    
          </tr>                    
                      
             
          <tr>                    
            <td width="100%"><p align="center"><a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank">                  
        <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="100" height="70" border="0"></a></td>                    
          </tr>                    
          <tr>                    
            <td width="100%"><a class="l2"                   
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"                   
            target="_blank"><%=rs("introduction")%></a></td>                     
          </tr>                     
          <%              
          end if      
          rs.close             
               
          '输出故事连载文章推荐            
          sql="select * from news2_commend where menuid='011004' 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="100%">             
            <img src="../images/pic-187.gif"  width="10" height="9"> <a class="l2"                   
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"                   
            target="_blank"><font color="#D52B73"><%=rs("newstitle")%></font></a>                    
            </td>                     
          </tr>                     
          <%rs.MoveNext                    
           next                   
           end if                   
           rs.Close%>             
                       
</center>             
                       
          <tr>                     
            <td width="100%">         
              <p align="right"><a class="l7"         
            href="gushi.asp?menuid=011004" target="_blank"><strong><font          
            color="#000000">更多</font></strong><font color="#D52B73"><img src="../images/pic-186.gif"          
             width="24" height="12" border="0"></font></a></p>         
            </td>                     
          </tr>                     
        </table>                     
        </td>                     
      </tr>                     
<center>          
          
      <tr>                     
        <td width="100%" height="10"><font color="#D52B73"><img src="../images/pic-188.gif"                     
         width="142" height="25"></font></td>                     
      </tr>                     
      <tr>                     
        <td width="100%"><div align="center"><center><table border="0" width="100%"                     
        cellpadding="3">                     
       <% '输出e周精彩推荐文章  %>                   
       <%sql="select * from news2_review where menuid='011008' 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"><font color="#8080FF">◆</font></td>                     
            <td width="95%" valign="top"><a class="l3"                     
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"                     
            target="_blank"><span class="l6"><%=rs("newstitle")%></span></a></td>                     
          </tr>                    
       <%rs.MoveNext                    
         next                   
         end if                   
         rs.Close                   
                            
        %>                   
                       
         </table>