| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1655 人关注过本帖
标题:[求助]明明在程序设定的rs.pagesize=5可显示不对
只看楼主 加入收藏
zln
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-1-6
收藏
得分:0 
n16AznvY.rar (1.97 KB) [求助]明明在程序设定的rs.pagesize=5可显示不对


2006-06-14 10:15
zln
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-1-6
收藏
得分:0 
不行,以前还可以看到五条记录,但修改后直接就是报错信息,错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/zj/shijianone.asp, 第 56 行
2006-06-14 10:18
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
得分:0 
我晕,你这样有用也才怪呢,真的。你根本就没写到有关分页的代码~
2006-06-14 10:23
mamu123456
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2006-6-5
收藏
得分:0 
你有QQ吗,我帮你改吧,好了我再告诉你,
2006-06-14 10:26
seal520_2008
Rank: 1
等 级:新手上路
帖 子:239
专家分:0
注 册:2006-6-13
收藏
得分:0 

分页代码:

<%
sql="select * from test "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
end if
%>
<table width="748" border="1" cellspacing="0" cellpadding="0">
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if
%>

<tr>
<td><a href="del.asp?id=<%=rs("id")%>">del</a></td>
<td><a href="modify.asp?id=<%=rs("id")%>" target="_self"><%=rs("aa")%></a></td>
<td><%=rs("bb")%></td>
</tr>
<%rs.movenext
next
%>
<!--循环体结束
分页部分:-->
<table width="99%" border="1" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if rs.pagecount > 0 then%>
<td width="13%" align="left">当前页<%=page%>/<%=rs.PageCount%></td>
<%else%>
<td width="41%" align="left">当前页0/0</td><%end if%>
<td width="46%" align="right"> <a href="new1.asp?page=1">首页</a>|
<%if page >1 then%>
<a href="new1.asp?page=<%=page -1%>">上页</a>| <%end if%>
<%if page<pagecount then%>
<a href="new1.asp?page=<%=page +1%>">下页</a> |<%end if%>
<a href="new1.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = page then%>
<option value="new1.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="new1.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</font>
</td>
</tr>
</table>


每晚0:00上线 msn:seal520_2008@ myblog:http://seal.
2006-06-14 10:33
快速回复:[求助]明明在程序设定的rs.pagesize=5可显示不对
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018085 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved