<%
set rs9=server.CreateObject("ADODB.RecordSet")
rs9.Source="select top 7 * from "& db_News_Table &" where istop=1 order by newsid desc"
rs9.Open rs9.Source,conn,1,1
do while not rs9.EOF
title=trim(rs9("title"))
%>
<img src="images/dot_blue.gif"> <a class=middle target="_blank" href="ReadNews.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>"> <font color=<%=rs9("titlecolor")%>>[<%=CutStr(htmlencode4(rs9("title")),20)%>]</font> </a> <a class=middle target="_blank" href="ReadNews.asp?NewsId=<%=rs9("newsid")%>" title="<%=htmlencode4(title)%>"><%=CutStr(nohtml(rs9("Content")),15)%></a>
<!--评-->
<%if reviewable="1" then%>
<% if rs9("titlesize")>=1 then %>
<A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs9("NewsID")%>" target="_blank" > <font color=red><b>评</b></font></A>
<%end if %>
<%end if %>
<!--评-->
<br>
<%
rs9.movenext
loop
rs9.close
set rs9=nothing
%>