right.asp

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

<table border="1" width="100%"
    bgcolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%"><p align="center"><strong><font color="#72C8FC"><span
        style="font-size: 14px">体育专题</span></font></strong></td>
      </tr>
     <%  '输出相关专题图片推荐 
        sql="select top 3  * from news2_specialcommend where menuid='010012' 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"><br>
        <%if not isnull(rs("smallpic")) then%>
            <a  href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank">
            <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="100" height="70" border="0"></a>
            <%end if%><br>
        <br>
        <font color="#FFFFFF"><a class="l8" href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank"><%=rs("newsTitle")%></a><br>
        <%showbody(rs("introduction"))%></font></td>
      </tr>
      
      <%rs.MoveNext 
      next 
      end if
      rs.Close %>
      <tr>
        <td width="100%" align="center" bgcolor="#800000"><strong><font color="#72C8FC"><span
        style="font-size: 14px">性感体坛</span></font></strong></td>
      </tr>
      <%sql="select * from news2_photocommend where picmenuid='001000' and visible='1' order by infoindex "
        rs.open sql,conn,3,1
        if not rs.eof then
        
      %>
      <tr>
        <td width="100%" align="center"><a href="looklist.asp?photoid=<%=rs("photoid")%>&picmenuid=<%=rs("picmenuid")%>"  target="_blank">
        <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="120" height="150"  border="0"></a>
       <br><font color="#ffffff"><%=rs("phototitle")%></font>
       <br>
      <%'显示文字推荐
      rs.movenext
      for i=2 to rs.recordcount
      Response.Write "<br>"%>
     <a href="looklist.asp?photoid=<%=rs("photoid")%>&picmenuid=<%=rs("picmenuid")%>"  target="_blank">
    <b> <font color="#ffffff"><%=rs("phototitle")%></font></b></a>
     <%rs.movenext
     next 
      %>
      <br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <font color="#ffffff"><a href="morephoto.asp?picmenuid=001000" class="l8" target="_blank">更多&gt;&gt;&gt;</font></a></td>
      </tr>
      <%end if
      rs.close
      
      %>
       <tr>
        <td width="100%" align="center" bgcolor="#800000"><strong><font color="#72C8FC"><span
        style="font-size: 14px">体坛星图</span></font></strong></td>
      </tr>
      <%sql="select * from news2_photocommend where picmenuid='002000' and visible='1' order by infoindex"
        rs.open sql,conn,3,1
        if not rs.eof then
        
      %>
      <tr>
        <td width="100%" align="center"><a href="looklist.asp?photoid=<%=rs("photoid")%>&picmenuid=<%=rs("picmenuid")%>"  target="_blank">
        <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="120" height="150" border="0"></a>
        <br><font color="#ffffff"><%=rs("phototitle")%></font>
       <br>
      <%'显示文字推荐
      rs.movenext
      for i=2 to rs.recordcount
      Response.Write "<br>"%>
     <a href="looklist.asp?photoid=<%=rs("photoid")%>&picmenuid=<%=rs("picmenuid")%>"  target="_blank">
    <b> <font color="#ffffff"><%=rs("phototitle")%></font></b></a>
     <%rs.movenext
     next 
      %><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <font color="#ffffff"><a href="morephoto.asp?picmenuid=002000" class="l8" target="_blank">更多&gt;&gt;&gt;</font></a></td>
      </tr>
      <%end if
      rs.close
      %>
      
      <tr>
        <td width="100%" bgcolor="#800080"><font color="#FFFFFF"><p align="center"></font><strong><font
        color="#72C8FC"><span style="font-size: 14px">体育调查</span></font></strong></td>
      </tr>
      <%menuid="005020"%>
      <!--#include file="../../include/survey.asp"-->
      </tr>
    </table>