查询结果分页显示的问题？

[when23]

如何实现分页显示，最好查询一部分后就马上显示，然后用按钮翻页

[ghost986212]

关于分页这里有很多例子，要查询的，只要利用SQL语句就行了
sql="select * from 表 where 条件"

[azh9703]

<%
'以下定义一个显示表格的函数TABDISP(),参数TAB,被显示的表名,DISPFILD,要显示的字段,FINDFILD,查询字段,PAGEN,每页显示数量,fh,显示的方向
'如显示成功,返回值为真,不成功,返回值为假.
'多个字段间用,分隔
'查询字段一定要包含在显示字段中.
'如字段名与要显示的名称不一样,用<分隔,前面是字段名,后面是显示的名字,而要进行搜索的字段则一定要用<分隔要字段名和显示字符
'FH显示方向为"H"时作横向显示,为"S"时作纵向显示 区分大小写
FUNCTION TABDISP(TAB,DISPFILD,FINDFILD,PAGEN,FH)
On Error Resume Next
IF DISPFILD="" THEN DISPFILD="*"
IF PAGEN="" THEN PAGEN=15
DISPFILD1=DISPFILD&","
findfild1=findfild&","

dim findl(10),findr(10)
i1=1
do while instr(findfild1,",")<>0
star=instr(findfild1,",")
findl(i1)=left(findfild1,star-1)
findr(i1)=findl(i1)
fildbak=findl(i1)
findl(i1)=left(fildbak,instr(fildbak,"<")-1)
findr(i1)=right(fildbak,len(fildbak)-instr(fildbak,"<"))
findfild1=right(findfild1,len(findfild1)-star)
i1=i1+1
loop

Response.Write "<table border='0' width='100%' cellspacing='0'><tr><form method='GET'>"
Response.Write "<TD > " 'width='50%'
IF SESSION("FLMENULBUP")<>"" THEN
Response.Write "当前栏目：<A HREF='FLMEN.ASP?MENULB="&SESSION("FLMENULBUP")&"'>"&MID(SESSION("FLMENULBUP"),4,200)&"</A>"
END IF
IF SESSION("flmenulb")<> SESSION("FLMENULBUP") THEN
Response.Write " >> <A HREF='FLMEN.ASP?menulb="&SESSION("FLMENULBUP")&"&LB="&SESSION("flmenulb")&"'>"&MID(SESSION("flmenulb"),4,200)&"</A>"
END IF
Response.Write "</TD><td align='right' ></td><td align='right'><table border='0' cellspacing='0' cellpadding='0'> "
Response.Write "<tr><td rowspan='2'><img src='img/SEARCH.GIF' width='50'> </td>"
for i3=1 to i1-1
Response.Write "<td>"&findr(i3)&"：</td>"
next
Response.Write "</tr><tr>" '<td></td>
for i2=1 to i1-1
Response.Write "<td><input type='text' name='key_word"&i2&"' size='8' value=''></td>"
next

Response.Write "<tr></table></td><td width='20%'> <input type='checkbox' name='find_fr' value='yes'>精确 <input type='submit' value='开始' name='B_FIND'></td>"
Response.Write "</form> </tr></table>"
find_fr=request("find_fr")
TJ=""
urllr="&find_fr="&find_fr
findlrdisp=""
FOR I3=1 TO I1-1
TJ1=request("KEY_WORD"&I3)
urllr=urllr&"&key_word"&i3&"="&tj1
IF TJ1=FINDR(I3) OR TJ1="" THEN
TJ1=""
ELSE
if find_fr<>"yes" then
findlrdisp=findlrdisp&findr(i3)&"包含“"&TJ1&"”　"
tj1=" AND "&findL(I3)&" like '%"&TRIM(TJ1)&"%' "
else
findlrdisp=findlrdisp&findr(i3)&"是“"&TJ1&"”　"
tj1=" AND "&FINDL(I3)&" = '"&TRIM(TJ1)&"' "
end if
END IF
TJ=TJ&TJ1
IF TJ="" THEN
TOPSN=" TOP 300 "
ELSE
TOPSN=""
END IF
NEXT

dim fild(35),dispfil(35),dispfildlr
dispfildlr=""
i=1
dispfild1=dispfild1
do while instr(dispfild1,",")<>0
star=instr(dispfild1,",")
fild(i)=left(dispfild1,star-1)
dispfil(i)=fild(i)
if instr(fild(i),"<")<>0 then
fildbak=fild(i)
fild(i)=left(fildbak,instr(fildbak,"<")-1)
dispfil(i)=right(fildbak,len(fildbak)-instr(fildbak,"<"))
end if
dispfildlr=dispfildlr&fild(i)&","
dispfild1=right(dispfild1,len(dispfild1)-star)
i=i+1
loop
dispfildlr=left(dispfildlr,len(dispfildlr)-1)
SQL="SELECT "&topsn&" id,"&DISPFILDlr&" FROM "&TAB&" WHERE ID<>-1 "&tj&" order by -ID"
'Response.Write sql
session("tabsql")=sql
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if not rs.eof then
pagesn=request("pagesn")
if pagesn<=0 or pagesn="" then pagesn=1
rs.pagesize=pagen
pagezs=rs.pagecount
IF cint(PAGESN)>pagezs THEN pagesn=PAGEZS
zs=rs.recordcount
page=(pagesn-1)*pagen
rs.move page,1
if findlrdisp<>"" then Response.Write "经搜索，"&findlrdisp&"的记录如下："
Response.Write "<table border='0' width='90%'>"
if zs>=300 and topsn<>"" then
Response.Write "<tr> <form method='POST' action='?"&urllr&"'><td width='54%'>总数很多,当前显示前"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页</td>"
else
Response.Write "<tr> <form method='POST' action='?"&urllr&"'><td width='54%'>一共"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页</td>"
end if
Response.Write "<td width='11%' align='center'><a href='?PAGESN="&PAGESN-1&urllr&"'>上一页</A></td>"
Response.Write "<td width='11%' align='center'><a href='?PAGESN="&PAGESN+1&urllr&"'>下一页</A></td>"
Response.Write "<td width='24%' ALIGN='RIGHT'>跳转到第 "
Response.Write "<input type='text' name='PAGESN' size='2'>页<input type='submit' value='GO' name='B1'></td></form> "
Response.Write "</tr></table> "
if fh="H" THEN
Response.Write " <table border='0' width='100%' cellspacing='1' cellpadding='0'>"
Response.Write " <tr bgcolor='#EDBAA5' align='center'> "
for ii=1 to i-1
Response.Write "<td>"&dispFIL(ii)&"</td>"
next
Response.Write "</tr>"
for iii=1 to pagen
Response.Write "<tr bgcolor='#FFFAEE'>"
FOR II=1 TO I-1
Response.Write "<td>"&RS(fild(II))&"</td>"
NEXT
Response.Write "</tr>"
RS.MOVENEXT
if rs.eof then exit for
next
Response.Write "</table>"
ELSE
Response.Write " <table border='0' width='100%' cellspacing='1' cellpadding='0'>"
for iii=1 to pagen
FOR II=1 TO I-1
Response.Write "<tr><td bgcolor='#EDBAA5' ALIGN='RIGHT' WIDTH='20%'>"&dispFIL(ii)&"：</td><td bgcolor='#FFFAEE'>"&RS(fild(II))&"</td></tr>"
NEXT
Response.Write "<tr height='1'><td bgcolor='#CFBA9E' colspan='2' ALIGN='RIGHT' WIDTH='20%'> </td></tr>"
RS.MOVENEXT
if rs.eof then exit for
next
Response.Write "</table>"
END IF
rs.close
Response.Write "<table border='0' width='90%'>"
if zs>=300 and topsn<>"" then
Response.Write "<tr> <form method='POST' action='?"&urllr&"'><td width='54%'>总数很多,当前显示前"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页</td>"
else
Response.Write "<tr> <form method='POST' action='?"&urllr&"'><td width='54%'>一共"&ZS&"条，分"&PAGEZS&"页，现在是第"&PAGESN&"页</td>"
end if
Response.Write "<td width='11%' align='center'><a href='?PAGESN="&PAGESN-1&urllr&"'>上一页</A></td>"
Response.Write "<td width='11%' align='center'><a href='?PAGESN="&PAGESN+1&urllr&"'>下一页</A></td>"
Response.Write "<td width='24%' ALIGN='RIGHT'>跳转到第 "
Response.Write "<input type='text' name='PAGESN' size='2'>页<input type='submit' value='GO' name='B1'></td></form> "
Response.Write "</tr></table> "
else
Response.Write "没有找到合适的记录"
end if
if er() then
tabdisp=False
else
tabdisp=True
end if
END FUNCTION

Function Er() '错误处理函数
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
%>

[tiandiqing]

记着把你查询的变理在上一页、下一页的连接上传递就行了！
如：

name = request("name")
sex = request("sex")
'====================================
'===========你的处理过程=============
'====================================

<a href="111.asp?page =*****&name=<%=name%>&sex=<%=sex%>">上一页</a>
<a href="111.asp?page =*****&name=<%=name%>&sex=<%=sex%>">下一页</a>

[超级大笨狼]

ASP学习史上最强的数据分页方法

　　我观前辈的帖子，皆由于数据库的SQL大不一致，且SQL SERVER,ACCESS等菜鸟级数据库没有如rowid,_n_,obs等之类的辅助列，空有BETWEEN运算符而无用武之地，
又无如except之类的数据集运算符，真是令无数英雄尽折腰



　　偶详观各数据库SQL，得出是数据库就有取前面N条记录的SQL语法，如什么select top n*****之类的语法，而数据分页的关键问题是取后N条记录的语法偶深思良久，最后小悟，故出此言，还忘前辈们多多指点
　　
　　取记录集后N条记录的大法：
　　
　　假设：
　　
　　 1.有一sql语句将产生1000条记录 (select 唯一ID，其他字段 from 表集 where 条件 order by 排序)
　　 2.每页显示20条记录
　　 3.当前显示第5页
　　
　　实现如下：
　　 select * from
　　 (
　　 select * from (select top 20*4 唯一ID，其他字段 from 表集 where 条件 order by 排序) as a
　　 union all
　　 select * from (select top 20*5 唯一ID，其他字段 from 表集 where 条件 order by 排序) as b
　　 )
　　 a
　　 group by 唯一ID，其他字段 having count(唯一ID)=1 order by 排序
　　
　　运行此SQL，至此取记录集后N条记录大法就些完毕
　　
　　详细说明：
　　
　　此SQL语句的关键应用技巧在于union all和分组上的条件过滤语句
　　
　　大家可以根据此技巧完全可以做出一个通用的分页方法，如直接由用户传入sqlstr(sql语句)，NumPerPage（每页显示数），currpage（当前页），自己在再函数内组织成通成的SQL分页语句
　　
　　备注：
　　
　　当前页为1的话就不需要运行该SQL了，直接TOP一下就OK了
　　由于没有环境，该SQL性能无法测试，但相信不会低效
　　运行平台在access,sqlserver上都可运行，其它数据库平台只需改top关键字应该就可以就地运行了