revirw.asp

这是一个文章管理的网页源程序

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 align=center>
  <TBODY>
  <TR>
            <TD bgColor="<%=Tablebackcolor%>" height="85"> 
              <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
        <TR>
                  
          <TD bgColor="<%=Tabletitlecolor%>" align="center"><b>评论热点文章</b> </TD>
              </tr>

        <tr bgcolor="<%=Tablebodycolor%>"> 
          <td > <font style=line-height:150%>  
            <% 
	sql="SELECT top 5 * FROM article where daifa=1 order by reviewcount desc" 
	rs.open sql,conn,1,1 
	if rs.eof and rs.bof then 
		response.write "本周无更新文章" 
	else 
	do while not rs.eof   
%> 
            <img src="IMAGES/Go.gif"> <a href="list.asp?id=<%=rs("articleid")%>" title="<%=rs("title")%>[评论:<%=rs("reviewcount")%>篇]" target=_top>
            <%if len(rs("title"))>10 then%>
            <%=left(rs("title"),10)%>...
            <%else%>
            <%=rs("title")%>
            <%end if%>
            </a> <br>    
                  <%
	rs.movenext     
	loop
	end if  
	rs.close   
%>    
</font> 
	</TD></TR>
      </table>
    </td>
  </tr>
  </tbody>
</table>