zhuanti.asp

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

<table border="0" width="100%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" background="../images/bg-010.gif"><img src="../images/pic-145.gif"
         width="160" height="27"></td>
      </tr>
      <tr>
        <td width="100%" bgcolor="#32BEB7">　<div align="center"><center><table border="0"
        width="96%" cellpadding="2" cellspacing="3">
       <%  '输出相关专题图片推荐（注：只能输出三条信息） 
        sql="select top 3  * from news2_specialcommend where menuid='010004' 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%"><p align="center">
            <%if not isnull(rs("smallpic")) then%>
            <a  href="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="l10" href="index.asp?infoid=<%=rs("infoid")%>" target="_blank"><%showbody(rs("newsTitle"))%></a></font></td>
          </tr>
         <%rs.MoveNext     
         next    
         end if    
         rs.Close             
        %> 
          
        </table>
        </center></div></td>
      </tr>
    </table>