zhuanti.asp

asp的新闻网站

<table border="0" width="100%"
    cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%"><img src="../images/pic-103.gif"  width="167" height="47"></td>
      </tr>
      <tr>
        <td width="100%"><div align="right"><table border="0" width="157" cellspacing="0"
        cellpadding="0" bgcolor="#F4A0BD">
          <tr>
            <td width="100%"><div align="center"><center><table border="0" width="94%" cellspacing="1" cellpadding="0">
        <%  '输出娱乐_最棒专题新闻（注：后台控制输出记录数） 
        sql="select   * from news2_specialcommend where menuid='010013' 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%" bgcolor="#E2007F" height="80"><p align="center">
            <%if not isnull(rs("smallpic")) then%>
            <a  href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank">
            <img src="<%=smallpicUrl%><%=rs("smallpic")%>" alt="<%showbody(rs("introduction"))%>" width="100" height="70" border="0"></a>
            <%end if%>
                        </td> 
          </tr> 
          <tr>
          <td bgcolor="#E2007F"><p align="center">
          <font color="#FFFFFF"><strong><span style="font-size: 14px"><a class="l8" href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank"><%=rs("newsTitle")%></a></span></strong></font>
          </td></tr>
        <%rs.MoveNext     
         next    
         end if    
         rs.Close             
        %> 
              
              
            </table>
            </center></div></td>
          </tr>
          <tr>
            <td width="100%"><p align="right"><img src="../images/pic-104.gif"
             width="10" height="4"></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>