如果在ASP里要分页显示记录集如何做？？？

Question

Recordset的PageSize、AbsolutePage属性

Answer 1

贴一段代码让你看看
    <%
dim lCount,fChange,lPage
lCount=Session("CTData").pRecordCount
lPage=Request.QueryString("PAGE")
  if lPage<=0 then lPage=1
If lCount > 0 Then
set rst=Session("CTData").pRecordSet
rst.PageSize=14
rst.AbsolutePage=lPage
fChange=False
lCount=1
For lCount=1 to rst.PageSize
if not rst.eof then
fChange=Not fChange
if fChange=True then
Response.Write("<tr bgcolor='#E2EAE1' bordercolor='#23239C'>")
else
Response.Write("<tr bordercolor='#23239C' bgcolor='#F5E0FE'>")
end if
if lCount=1 then
Response.Write("<td id=C" & lCount & "1"> <input type='radio' name='opnStation' value=" & rst(0) & " checked>" & rst(0) & "</td>")
else
Response.Write("<td id=C" & lCount & "1"> <input type='radio' name='opnStation' value=" & rst(0) & ">" & rst(0) & "</td>")
end if
Response.Write("<td id=C" & lCount & ">" & rst(2) & "</td>")
Response.Write("</tr>")
rst.MoveNext
end if
Next
set rst=nothing
End If
%>