求救！！！这段代码要加个分页怎么加呀？急呀！！！

来源：百度知道 编辑：UC知道 时间：2024/06/18 00:59:30
<%
set rst=server.createobject("adodb.recordset")
sql="select resume_id,resume_name,resume_sex,resume_birth,edu_name,resume_sumup,resume_announcedate from view_cnresume where resume_cnstatus=1 and resume_openness=0 order by resume_announcedate desc,resume_id desc"
rs.open sql,conn,1,1
for i=1 to rs.recordcount
response.write "<TR"
if i mod 2=0 then
response.write " bgColor='#ffffff'"
else
response.write " bgColor='#F1F4F9'"
end if
response.write ">"
response.write "<TD align=middle width=80 height=25><A class='04d' href='../person/cnresume_view.asp?rid="&rs("resume_id")&"' target=_blank>"&rs("resume_name")&"</A></TD>"
response.write "<TD align=middle width=42 height=22>"
select case rs("resume_sex")
case 1

<%
set rst=server.createobject("adodb.recordset")
sql="select resume_id,resume_name,resume_sex,resume_birth,edu_name,resume_sumup,resume_announcedate from view_cnresume where resume_cnstatus=1 and resume_openness=0 order by resume_announcedate desc,resume_id desc"
rs.open sql,conn,1,1

rs.pagesize=20'每页20行，你可以修改
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage

for i=1 to rs.pagesize
response.write "<TR"
if i mod 2=0 then
response.write " bgColor='#ffffff'"
else
response.write " bgColor='#F1F4F9'"
end if
response.write ">"
response.write "<TD align=middle width=80 height=25><A class='04d&