![]() |
#2
baisl1002011-07-11 08:54
<%
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 %> |
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"))