求大家帮我分页显示数据,跪求。
<%
n=Request("n")
randomize '随机初始化
for i=1 to n 'N条记录
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from expert where num_1=0"
rs.open sql,dbconnection,1,3
Count=rs.recordcount 'Count 是 符合的记录条数
temp=fix(Count*rnd) 'fix 是取整的函数, temp是 1 到 Count
if not rs.eof then
rs.move temp '随机 的一条 记录
rs("num_1")=1 '标记为 已经 读取过
rs.Update
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" class="table3" height=30>
<tr>
<td width="20%" align="center" class="td3a"><font size="2"><%Response.Write rs("姓名")%></font></td>
<td width="20%" align="center" class="td3a"><font size="2"><%Response.Write rs("性别")%></font></td>
<td width="20%" align="center" class="td3a"><font size="2"><%Response.Write rs("年龄")%></font></td>
<td width="20%" align="center" class="td3a"><font size="2"><%Response.Write rs("专家类别")%></font></td>
<td width="20%" align="center" class="td3a"><font size="2"><%Response.Write rs("科别")%></font></td>
</tr>
</table>
<%
rs.movenext
end if
next
rs.close
set rs=nothing
%>
以上是一段随机抽取数据的代码,我想随机抽取后实现分页显示,如何实现?跪求大哥们帮我完善这段代码了!先鞠躬了。