set rs=server.createobject("adodb.recordset")
sql = "select * from person"
if len(didian)<>0 then
sql =sql & " where hka='" & didian & "'"
end if
if len(xueli)<>0 then
sql =sql & " and edu='" & xueli & "'"
end if
rs.open sql,conn,3,3
if not rs.eof then
rs.pagesize=15
page = request("page")
if cint(page)<1 or page="" then
page = 1
end if
if cint(page)>rs.pagecount then
page = rs.pagecount
end if
rs.absolutepage = page
for i = 1 to rs.pagesize
%>
<tr bgcolor="#FFFFFF">
<td> <div align="center"><%=rs("id")%></div></td>
<td> <div align="center"><a href="qnrdetail.asp?qnr_id=<%=rs("qnr_id")%>" target="_blank"><%=rs("iname")%></a></div></td>
<td> <div align="center"><%=rs("school")%></div></td>
<td><div align="center"><%=rs("zye")%></div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
<div align="center">
<script LANGUAGE="VBScript">
function ch_page(n)
'翻页函数
messbox.action="user_message.asp"
messbox.page.value = n
messbox.submit
end function
</script>
<%
'翻页信息
pagenum=checkStr(trim(request("page")))
if pagenum="" then pagenum=1 end if
pagenum=cint(pagenum)
maxn=20'页最多显示行数=============================
set rs=server.createobject("adodb.recordset")
%>
<%
...................
..........
rs.open sql,conn,1,1
n=0
all_num=rs.recordcount
if not (rs.eof or rs.bof) then
rs.move ((pagenum-1)*maxn)'移动到指定位置
end if
while not (rs.eof or rs.bof or n>maxn-1)
n=n+1'数据显示增加1
%>