redian.asp

asp的新闻网站

<div align="center"><center> 



<% 
    if  trim(killstr(request("infoid")))="" then  '首次调用，输出专题新闻首页推荐新闻（注：此处只能输出一条信息）
     sql="select top 1  * from news2_specialcommend where menuid='010007' and visible<>'0' order by infoindex "    
    else                           '输出指定新闻专题（注：此处只能输出一条信息）
     sql="select top 1  * from news2_special where infoid='"&trim(killstr(request("infoid")))&"' order by regtime "    
    end if  
    rs.Open sql,conn,3,1    
    if not rs.EOF then    
    infoid=rs.fields("infoid").value   '将本专题的专题号赋给变量infoid，后面输出“最新消息”、“追踪报道”、“网友评论”和“推荐给朋友”时用到 
%> 
<table border="0" width="770" cellspacing="0" cellpadding="0" 
background="../images/bg-010.gif"> 
  
  <tr> 
    <td width="196" valign="top"><img src="../images/pic-141.gif" width="186" height="169"></td> 
    <td width="574" valign="top">　<table border="0" width="100%" cellspacing="0"
    cellpadding="0">
      <tr>
        <td width="41"><img src="../images/pic-143.gif"  width="41" height="24"></td>
        <td width="240" style="border-top: 2px solid rgb(140,204,202)" bgcolor="#32BEB7"><font
        color="#FFFFFF"><span style="letter-spacing: 2px; font-size: 14px"><b><%=rs("newstitle")%></b></span></font> 
        </td>
        <td width="359"
        style="border-right: 2px solid rgb(140,204,202); border-top: 2px solid rgb(140,204,202)">&nbsp; 
        </td>
      </tr>
    </table>
    <table border="0" width="100%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="70%" valign="top"><font size="2"><br>&nbsp;&nbsp;&nbsp; <%showbody(rs("introduction"))%></font><p align="right"><!--<img src="../images/pic-151.gif"  width="12" height="12"><span
        style="LETTER-SPACING: 2px"><a class="l2" href="../looknews_zt.asp?infoid=<%=rs("infoid")%>"        
        target="_blank"> 详细内容 </a></span><img src="../images/pic-151.gif" width="12" height="12">-->&nbsp;&nbsp;&nbsp; </td> 
        <td width="50%" style="border-right: 2px solid rgb(140,204,202)">
        <%if not isnull(rs("smallpic")) then%>
        <p align="center">
         <%if  trim(killstr(request("infoid")))="" then%>
          <img src="<%=smallpicUrl%><%=rs("smallpic")%>" alt="<%=rs("newsTitle")%>" width="120" height="150" border="0">
         <%else %>
          <img src="<%=smallpicUrl%><%=rs("smallpic")%>" alt="<%=rs("newsTitle")%>" width="120" height="150" border="0">
         <%end if%>
       
        <%
        else%>
        <img src="../images/pic-211.gif"  width="120" height="150" border="0">
        <%
        end if%> 
        </td>  
      </tr>  
    </table>  
    </td>  
  </tr>  
</table>  
<%   
    end if      
    rs.Close               
%>   
</center></div>