分页问题

dreamcast 2002-05-14 11:02:31
我在做分页浏览时，以前用Excel时先设置rs.pagesize后设置
rs.AbsolutePage = page 和rs.AbsolutePosition = num来设置当前页和当前记录。现在用sqlserver时对rs.AbsolutePage 和rs.AbsolutePosition赋值总提示出错。是不是两个数据库的操作不一样，请大家看一看。
...全文
57 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
shadowkiss 2002-05-14
  • 打赏
  • 举报
 回复
我喜欢自己做分页程序　：）
ChinaOk 2002-05-14
  • 打赏
  • 举报
 回复
一个简单的分页例子
<!--#include file="sqlconn.asp"-->

<html>
<head>
<meta http-equiv="Content-Language" content="English">
<meta name="companylist" content="FrontPage.Editor.Document">
<title>CompanyList</title>
</head>

<body>
<%
dim iLen '每页显示的数量
iLen=3
dim TotalNum '公司的总数量
dim page,allpage
dim name
name=request("name")

Set rs=Server.Createobject("ADODB.Recordset")
rs.pagesize=iLen
rs.CursorLocation=3

SQL="select gongname,gongid from tabgong "
if name<>"" then
if ucase(name)<>"[ALL]" then
Sql=SQL & "where gongname like '%" & Replace(name,"'","''") & "%'"
end if
end if
SQL=SQL & " order by gongid desc"
rs.open SQL,conn,1,1

TotalNum=rs.RecordCount
if (TotalNum mod iLen)=0 then
allpage = TotalNum/iLen
else
allpage = int(TotalNum/iLen)+1
end if

if request.querystring("page") = "" then
page = 1
else
page = cint(request.querystring("page"))
'防止越界
if page<1 then page=1
if page>allpage then page=allpage
end if
'定位到当前页
rs.absolutepage=page
%>

<p>
<img border="0" name="IMGSEARCH" src="pic/mainmanager-search.gif">
<a href="add.asp">
<img border="0" name="IMGADD" src="pic/mainmanager-add.gif" title="Add..."></a>
<img border="0" name="IMGDEL" src="pic/mainmanager-delete.gif">
<img border="0" name="IMGMANAGER" src="pic/mainmanager-manage.gif">
<a href="companylist.asp?page=<%=page-1%>&name=<%=name%>">
<img border="0" name="IMGPRE" src="pic/pre.gif"></a>
<a href="companylist.asp?page=<%=page+1%>&name=<%=name%>">
<img border="0" name="IMGNEXT" src="pic/next.gif"></a></p>
<hr size=1 color=#CC0066>
<div align="left"><font color=#CC0066>共 <b>
<% =allpage %>
</b>页，当前是第 <b>
<% =page %>
</b> 页 <hr size=1 color=#CC0066></div>
<%
i=1
do while not rs.eof
%>
<tr>
<td width="21">
<li>
</td>
<td width="100" nowrap><%=rs("gongname")%></td>
<td width="50" nowrap>
<a href="company.asp?id=<%=rs("gongid")%>"><img border="0" src="pic/more.gif" width="50" height="22"></a></td>
</tr>
<%
i=i+1
if i>iLen then exit do
rs.movenext
loop
rs.close
SET rs=nothing

%>
</table>


</font></font>


</body>

</html>
antiking 2002-05-14
  • 打赏
  • 举报
 回复
<%
dim chname
dat1=request("dat1")
dat2=request("dat2")
chname=request("chekedname")
name=trim(request("CName"))
passwd=trim(request("PASSWRD"))
gooto=trim(request("GooTo"))
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
%>
<%
set conn=server.createobject("adodb.connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\majes.mdb"
conn.open connstr
set CustomerList= server.createobject("adodb.recordset")
sql= "select * from tbuser"
CustomerList.open sql,conn,3,2
if CustomerList.Recordcount=0 then
CustomerList.close
conn.close
response.write "目前没有记录……"
response.end
End If
CustomerList.PageSize = 20
If Not CustomerList.eof Then
CustomerList.AbsolutePage = PAGE
End If
pagecount=CustomerList.pagecount
I=1
do until CustomerList.EOF or I >= CustomerList.PageSize %>
<TR>
<TD width="200" align="center">
<p align="center"><% =CustomerList("id") %>
<TD width="200" align="center">
<p align="center"><% =CustomerList("username") %></TD>
<TD width="200" align="center">
<p align="center"><% =CustomerList("dat") %></TD>
<TD width="200" align="center">
<p align="center"><% =CustomerList("intime") %></TD>
<TD width="200" align="center">
<p align="center"><% =CustomerList("outtime") %></TD>
<TD width="500" align="center">
<p align="center"><% =CustomerList("mem") %></TD>
</TR>
<% CustomerList.movenext
I=I+1
loop
CustomerList.close
conn.close
%>
<%
If page>1 Then
Response.write "<a href=page.asp?page="&page-1&">上一页</a>　"
End If
Response.write "页 <font face=Arial><b>"&pagecount&" / "
Response.write page &"</b></font>　"
For j=1 to pagecount
IF J <> page THEN
response.write "<a href=page.asp?page="&j&">"&j&"</a>　"
End If
Next
If page<pagecount Then
Response.write "<a href=page.asp?page="&page+1&">下一页</a>　"
End If
'end select
%>
dreamcast 2002-05-14
  • 打赏
  • 举报
 回复
在前面 加了 rs.CursorLocation=3，出错提示提前一行

ADODB.Recordset (0x800A0E79)这是什么错误
连接语句用在其他操作上都可以
gshope 2002-05-14
  • 打赏
  • 举报
 回复
一定要rs.CursorLocation=3，否则rs.AbsolutePage 就报错！
sduwjr 2002-05-14
  • 打赏
  • 举报
 回复
不一定是那一行，浏览器的提示总是不准的。希望你能全局的考虑。
顺序的看，不用着急
dreamcast 2002-05-14
  • 打赏
  • 举报
 回复
<%

Sub ShowOnePage( rs, Page )
resoonse.write.........

rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
resoonse.write.........
rs.MoveNext
If rs.EOF Then Exit For
Next

End Sub

%>
浏览器老是提示
rs.AbsolutePage = Page那行出错，怎么解决啊？
关于UICollectionView横向滑动分页的问题
关于UICollectionView的contentSize为什么不起作用
(手机移动web)iscroll+html5+css3+js实现下拉刷新上拉分页的功能
基于iscroll4和html5、css3实现的下拉刷新、上拉分页的demo，兼容pc、android、ios、wp等设备。解决了上拉分页footer存在bug的问题。 支持chrome、ff、opera、360浏览器、百度浏览器、qq浏览器等众多主流浏览器。
mybatis分页查询
mybatis分页查询，spring + maven + mybatis实现分页查询源码
如何解决MySQL 的深度分页问题？
本文分析了 MySQL 的深度分页问题及其解决方案。对于 MySQL 中的深度分页，我们可以通过合理的优化策略来提高查询效率。具体选用什么方案，需要根据具体场景进行分析，但核心在于理解数据库的工作原理，利用索引、优化查询策略、使用标记分页、分区表、缓存结果等优化技术。通过这些方法，可以显著提升分页查询的性能，改善用户体验。
MySql深分页问题详解
MySql深分页问题详解1. 问题描述2. 问题分析3. 环境准备3.1 创建两个表3.2 创建两个函数3.3 编写存储过程3.4 编写存储过程3.5 创建索引3.6 验证测试4. 解决方案4.1 使用索引覆盖+子查询优化4.2 起始位置重定义4.3 降级策略5. 梳理总结 1. 问题描述 日常开发中经常会涉及到数据查询分页的问题，一般情况下都是根据前端传入页数与页码通过mysql的limit方式实现分页，对于数据量较小的情况下没有问题，但是如果数据量很大，深分页可能导致查询效率低下，接口超时的情况。 2.
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章