zhuanti.asp

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

    <table border="0" width="159" cellspacing="0" cellpadding="0"> 
      <tr> 
        <td width="100%"><img src="../images/pic-196.gif"  width="159" height="23"></td> 
      </tr> 
      <tr> 
        <td width="100%" bgcolor="#8CCCCA"><table border="0" width="100%"> 
        <%  '输出网络文摘_专题新闻（注：后台控制输出记录数） 
        sql="select   * from news2_specialcommend where menuid='010015' 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="75" border="0"></a>
            <%end if%>
            </td> 
          </tr> 
          <tr> 
            <td width="100%"><p align="center"><font color="#FFFFFF"><a class="l2" href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank"><%=rs("newsTitle")%></a></font></td>
          </tr> 
        <%rs.MoveNext     
         next    
         end if    
         rs.Close             
        %> 
           
        </table> 
        </td> 
      </tr> 
      <tr> 
        <td width="100%"><p align="right"><img src="../images/pic-197.gif" 
         width="159" height="8"></td> 
      </tr> 
    </table>