最近搞了新闻方面的ASP ,在其他地方都很好了.就是相关文章没有限制,
有多少它出来多少,影响整体美观!希望哪位大侠给点意见!!

<table width="100%" border=0 cellpadding=2 cellspacing=0 >
<% if rs.bof and rs.eof then
Response.write "没有相关新闻！"
else
%>
<% While not rs.eof %>
<tr><td width=100%>
<% Response.write "<a title=" & trim(rs("Title")) & " href=ReadNews.asp?NewsID=" & rs("NewsID") & "&BigClassID=" & rs("BigClassId") & "&SmallClassID=" & rs("SmallClassID") & " target=_blank> <img src='pic/news.gif' border=0> " & trim(rs("Title")) & "(" & YEAR(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) &"-"& Day(rs("UpdateTime")) & ")</a>" %>
</td></tr>
<% rs.movenext
wend
end if

rs.close
set rs=nothing
%>
                     </table>

MaxRecords 属性


指示通过查询返回 Recordset 的记录的最大数目。

设置和返回值

设置或返回长整型值。默认值为零（没有限制）。

说明

使用 MaxRecords 属性可对提供者从数据源返回的记录数加以限制。该属性的默认设置为零，表明提供者返回所有所需的记录。Recordset 关闭时，MaxRecords 属性为读/写，打开时为只读。

该范例使用 MaxRecords 属性打开包含标题表中 10 个最有价值标题的 Recordset。

Public Sub MaxRecordsX()

   Dim rstTemp As ADODB.Recordset
   Dim strCnn As String

   ' 打开包含标题表中 10 个最有价值标题的记录集。
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set rstTemp = New ADODB.Recordset
   rstTemp.MaxRecords = 10
   rstTemp.Open "SELECT Title, Price FROM Titles " & _
      "ORDER BY Price DESC", strCnn, , , adCmdText

   ' 显示记录集内容。
   Debug.Print "Top Ten Titles by Price:"

   Do While Not rstTemp.EOF
      Debug.Print "  " & rstTemp!Title & " - " & rstTemp!Price
      rstTemp.MoveNext
   Loop
   rstTemp.Close

End Sub