asp问题 查询时候分页显示怎么实现

sql="select * from [Users] where uid like '%"&UID&"%'"
end if

rs.open sql,conn,1,2

dim MaxPerPage
MaxPerPage=16
'假如没有数据时
'If rs.eof and rs.bof then
'call showpages
'response.write "

还没任何用户订单

"
'response.end
'End if

'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

'call showpages
call list

If Rs.recordcount > MaxPerPage then
end if

'显示帖子的子程序
Sub list()%>
<%
if not rs.eof then
i=0
do while not rs.eof
%>
<%=rs("显示的东东")%>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
'下面是分页
<%
Response.write "-> 全部-"
Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条信息          "
Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " "
If currentpage > 1 Then
response.write "首页 "
Response.write "上一页 "
Else
Response.write "上一页 "
End if
If currentpage < Rs.PageCount Then
Response.write "下一页 "
Response.write "尾页  "
Else
Response.write ""
Response.write "下一页  "
End if
'response.write ""
'response.write "转到： "
'response.write "  "
%>
<%
End sub
rs.close
conn.close
'end if
%>
自己稍改一下.我不知道你主要是用来分什么页面的..

<%
dim hh
dim ee
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
rs.pagesize =4
rs.cachesize =4
ipagecount = rs.pagecount
Response.Write"

"
top=1
if rs.bof and rs.eof then
response.write "

没有任何文件

"
else
cc=rs("btype")
cb=rs("fanwei")
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while not rs.eof and irecordsshown<4
if not rs.eof then
ee=rs("minipic")
hh=mid(ee,instr(ee,"/")+1)
%>

分页
<%
top=top+1
irecordsshown=irecordsshown+1
rs.movenext
end if
if top>4 then exit do
loop
end if
rs.Close
set rs=nothing
Response.Write"

共有 "&ipagecount&" 页 当前为第 "&ipagecurrent&" 页 " if ipagecurrent=1 then Response.Write"首页 | " else Response.Write"首页 | " end if if ipagecurrent=1 then Response.Write"上一页 | " else Response.Write"上一页 | " end if if ipagecount>ipagecurrent then Response.Write"下一页 " else Response.Write"下一页" end if if ipagecount>ipagecurrent then Response.Write"| 末页 " else Response.Write"| 末页 " end if Response.Write"

"
%>

为什么能看到页 也能看到数据 也能看到几页 就是不能点下一页啊
显示22页
问题补充：在线等
提问者：slswan392 - 试用期 一级
回答 共 2 条
sql="select * from [Users] where uid like '%"&UID&"%'"
end if

rs.open sql,conn,1,2

dim MaxPerPage
MaxPerPage=16
'假如没有数据时
'If rs.eof and rs.bof then
'call showpages
'response.write "

还没任何用户订单

"
'response.end
'End if

'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

'call showpages
call list

If Rs.recordcount > MaxPerPage then
end if

'显示帖子的子程序
Sub list()%>
<%
if not rs.eof then
i=0
do while not rs.eof
%>
<%=rs("显示的东东")%>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
'下面是分页
<%
Response.write "-> 全部-"
Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条信息 "
Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " "
If currentpage > 1 Then
response.write "首页 "
Response.write "上一页 "
Else
Response.write "上一页 "
End if
If currentpage < Rs.PageCount Then
Response.write "下一页 "
Response.write "尾页 "
Else
Response.write ""
Response.write "下一页 "
End if
'response.write ""
'response.write "转到： "
'response.write " "
%>
<%
End sub
rs.close
conn.close
'end if
%>
自己稍改一下.我不知道你主要是用来分什么页面的..
回答者：swalia - 试用期 一级 2-21 07:54
<%
'执行sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",a,1,3

'分页
i=50
rs.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu)
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>

当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
首 页
上一页
下一页
末 页

<%
'执行sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",a,1,3

'分页
i=50
rs.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu)
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>

当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
首 页
上一页
下一页
末 页

站长论坛
http://bbs.cnzz18.cn