baodao.asp

asp的新闻网站

<table border="0" width="94%" cellspacing="0" cellpadding="3">
      <tr>
        <td width="100%" background="../images/bg-003.gif"><p align="center"><span
        style="font-size: 14px"><font color="#FFFFFF">专题报道</font></span></td>
      </tr>
      
      <tr>
        <td width="100%"
        style="border-left: 1px solid rgb(128,0,0); border-right: 1px solid rgb(128,0,0); border-bottom: 1px solid rgb(128,0,0)">
        <table   border="0" width="100%">
         <%  '输出相关专题图片推荐 
        sql="select top 3  * from news2_specialcommend where menuid='010010' 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%" 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 width="100%" align="center">
            <a class="l2" href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank"><%=rs("newsTitle")%></a></td>
          </tr>
          <%rs.MoveNext 
      next 
      end if
      rs.Close %>
         
        </table>
        </td>
       </tr>
 </table>