随机读取得的数据，如何分页显示？

[weifei008]

<%
randomize '随机初始化
for i=1 to n 'N条记录

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from expert where 专家类别 like '%"&search_l&"%' and 工作单位 like '%"&search_j&"%' and 专业特长 like '%"&search_c&"%' and 科别 like '%"&search_k&"%' and 职称 like '%"&search_s&"%' and 职务 like '%"&search_h&"%' and 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

'以下分页
total=n
if Request("page")="" Then
page=1
Else
Page=Int(Abs(Request("page")))
End if

pagesize=20 '设置本页显示记录数
if total mod pagesize =0 then '计算总页数
pagecount=int(total/pagesize)
else
pagecount=int(total/pagesize)+1
end if
recordid=int(abs((page-1)*pagesize)) '计算每一页第一条记录的ID
rs.move [recordid]
%>
<!--页码条-->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="table1" width="100%" id="AutoNumber2" bgcolor="#CACACA">
<tr>
<td width="25%" class=tdtop>　</td>
<td width="25%" class=tdtop>共<%Response.Write rs.recordcount%>条记录 第<%=page%>/<%=pagecount%>页：</td>
<td width="25%" class=tdtop></td>
<td width="25%" class=tdtop><a class=ggg href='vie_expert_select.asp?page=1'>[首页]</a><%if page=1 then%>[上页]<%else%><a class=ggg href='vie_expert_select.asp?page=<%=page-1%>'>[上页]</a><%end if%><%if page>=pagecount then%>[下页]<%else%><a class=ggg href='vie_expert_select.asp?page=<%=page+1%>'>[下页]</a><%end if%><a class=ggg href='vie_expert_select.asp?page=<%=pagecount%>'>[末页]</a></td>
</tr>
</table>
<br>
<!--页码条-->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" class="table1" height=30>
<tr>
<td width="8%" align="center" class="tdtop"><font size="2" color="#400000"><B>姓名</B></font></td>
<td width="5%" align="center" class="tdtop"><font size="2" color="#400000"><B>性别</B></font></td>
<td width="5%" align="center" class="tdtop"><font size="2" color="#400000"><B>年龄</B></font></td>
<td width="5%" align="center" class="tdtop"><font size="2" color="#400000"><B>类型</B></font></td>
<td width="8%" align="center" class="tdtop"><font size="2" color="#400000"><B>科别</B></font></td>
<td width="5%" align="center" class="tdtop"><font size="2" color="#400000"><B>职务</B></font></td>
<td width="12%" align="center" class="tdtop"><font size="2" color="#400000"><B>职称</B></font></td>
<td width="9%" align="center" class="tdtop"><font size="2" color="#400000"><B>专长</B></font></td>
<td width="15%" align="center" class="tdtop"><font size="2" color="#400000"><B>工作单位</B></font></td>
<td width="10%" align="center" class="tdtop"><font size="2" color="#400000"><B>联系电话</B></font></td>
<td width="18%" align="center" class="tdtop"><font size="2" color="#400000"><B>选择</B></font></td>
</tr>
</table>
<%
for k=1 to pagesize
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" class="table3" height=30>
<tr>
<td width="8%" align="center" class="td3a"><font size="2"><%Response.Write rs("姓名")%></font></td>
<td width="5%" align="center" class="td3a"><font size="2"><%Response.Write rs("性别")%></font></td>
<td width="5%" align="center" class="td3a"><font size="2"><%Response.Write rs("年龄")%></font></td>
<td width="5%" align="center" class="td3a"><font size="2"><%Response.Write rs("专家类别")%></font></td>
<td width="8%" align="center" class="td3a"><font size="2"><%Response.Write rs("科别")%></font></td>
<td width="5%" align="center" class="td3a"><font size="2"><%Response.Write rs("职务")%></font></td>
<td width="12%" align="center" class="td3a"><font size="2"><%Response.Write rs("职称")%></font></td>
<td width="9%" align="center" class="td3a"><font size="2"><%Response.Write rs("专业特长")%></font></td>
<td width="15%" align="center" class="td3a"><font size="2"><%Response.Write rs("工作单位")%></font></td>
<td width="10%" align="center" class="td3a"><font size="2"><%Response.Write rs("联系电话")%></font></td>
<td width="18%" align="center" class="td3a">评标正式<input type="checkbox" class=input2 name="id1" value="<%=rs("id")%>">  评标备用<input type="checkbox" class=input2 name="id2" value="<%=rs("id")%>"></td>
</tr>
</table>

<%
rs.movenext
if rs.eof then exit for
next k
end if
end if
%>
以上代码不能分页显示，请教各位大虾。。。

[超级大笨狼]

<SCRIPT LANGUAGE=vbscript >
'洗牌
Dim N,S,D,P
P=54'牌的数量
Set D = CreateObject("Scripting.Dictionary")
do while D.Count<P
Randomize
N=Int(P * Rnd + 1)
if not D.Exists(cstr(N)) then
D.Add cstr(N),cstr(N)
end if
loop
for each K in D.Keys
S=S & K & " "
next
msgbox replace(trim(S)," ",",")
</SCRIPT>

access
select top 5 * from [table] order by rnd(id)

sql server
select top 5 * from [table] order by newid()