zhuanti.asp

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

<table border="0" width="80%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><img src="../images/pic-044.gif"  width="160" height="20"></td>
  </tr>
      <%  '输出相关专题图片推荐 
        sql="select top 3  * from news2_specialcommend where menuid='010009' 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="#F0F0F0" 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%><br></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#F0F0F0" 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 %>
  <tr>
    <td width="100%" bgcolor="#F0F0F0" height="20"><p align="right"><a class="l2" href="../zhuanti/index.asp" target="_blank">更多专题&gt;&gt;&gt;</a>&nbsp;  </td>
  </tr>
   
</table>