| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 502 人关注过本帖
标题:分页问题
只看楼主 加入收藏
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
 问题点数:0 回复次数:8 
分页问题
现在这段代码能分页 但是他所分出的页和我数据库里的内容不一样 错在那了 应该怎么改啊 兄弟们!!!
<!--#include file="conn.asp"-->
<%
set ztrs=server.CreateObject("adodb.recordset")
ztrs.open"select * from zhutlq",conn,1,1
page=request("page")
ztrs.pagesize=3
if page="" or page<1 then
page=1
else
page=cint(page)
end if
if page>ztrs.pagecount then
page=ztrs.pagecount
else
page=cint(page)
end if
if not ztrs.eof then
ztrs.absolutepage=page
for i=1 to ztrs.pagesize
if ztrs.eof then exit for
next %>
<tr>
<td width="83" height="30" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="83" height="30" valign="top"><%=ztrs("status")%></td>
</tr>
</table></td>
<td width="560" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="560" height="30" valign="top"><a href='tlq.asp?boardid=<%=ztrs("boardid")%>'><%=ztrs("tlqname")%></a></td>
</tr>
</table></td>
<td width="137" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="137" height="30" valign="top"><%=ztrs("post")%></td>
</tr>
</table></td>
</tr>
<%
ztrs.movenext
end if
ztrs.close
set ztrs=nothing
%>
</table>
搜索更多相关主题的帖子: request include 数据库 file 
2005-12-15 13:24
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
得分:0 
有人知道吗,可以指点一下吗,谢谢了

2005-12-15 14:11
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
for i=1 to ztrs.pagesize
这个for循环的next在哪?
2005-12-15 16:14
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
得分:0 
for i=1 to ztrs.pagesize
if ztrs.eof then exit for
next
你说的是这个NEXT吗,如果不是,应该在哪加上??还有别的问题吗???

2005-12-15 16:34
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

for i=1 to ztrs.pagesize
if ztrs.eof then exit for
next
你说的是这个NEXT吗,如果不是,应该在哪加上??还有别的问题吗???
哪这个Next的位置不对应该在
<%
ztrs.movenext
next
这个位置是正确的

2005-12-15 16:38
shenglishen
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-12-25
收藏
得分:0 
<!--#include file="conn.asp"-->
<%
set ztrs=server.CreateObject("adodb.recordset")
ztrs.open "select * from zhutlq",conn,1,1
page=cint(request("page"))
ztrs.pagesize=3
if page="" or page<1 then page=1
if page>ztrs.pagecount then page=ztrs.pagecount
if not ztrs.eof then
ztrs.absolutepage=page
for i=1 to ztrs.pagesize%>
<tr>
<td width="83" height="30" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="83" height="30" valign="top"><%=ztrs("status")%></td>
</tr>
</table></td>
<td width="560" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="560" height="30" valign="top"><a href='tlq.asp?boardid=<%=ztrs("boardid")%>'><%=ztrs("tlqname")%></a></td>
</tr>
</table></td>
<td width="137" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="137" height="30" valign="top"><%=ztrs("post")%></td>
</tr>
</table></td>
</tr>
<%
ztrs.movenext
if ztrs.eof then exit for
next
end if
ztrs.close
set ztrs=nothing
%>
</table>
2005-12-25 08:54
shenglishen
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-12-25
收藏
得分:0 
在for next循环中,应当把一条记录中要显示的内容显示完后,再next显示下一条记录。
2005-12-25 08:58
xly8610
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-12-26
收藏
得分:0 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<div align="center">
<%
set rs=Server.CreateObject("adodb.Recordset")
connstr="DBQ="+server.mappath("cj.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
str1="select * from stud_cj where 成绩>='"&"80' order by 成绩 desc"
rs.open str1,connstr,3,3
rs.movefirst
howmany=rs.fields.count '得到表的字段总数
'显示表的列名部分
'每页最多显示10条记录
rs.pagesize=20
curr_page=request("curr_page")
if curr_page="" then
curr_page=1
end if
rs.absolutepage=curr_page
%>
<table border=1>
<tr>
<%for i=0 to howmany-1
%>
<td><%=rs(i).name%></td>
<%next%>
<td><div align="center">操作</div></td>
</tr>
<%k=1
while not rs.eof and k<=20 %>
<tr>
<% '显示每行记录中每列的内容%>
<%for i=0 to howmany-1%>
<td><%=rs(i)%></td>
<%next%>
<td><a href="deit.asp">修改</a> <a href="del1.asp">删除</a></td>
</tr>
<%k=k+1
rs.movenext
wend%>



</table>
<%
'显示页码
for j=1 to rs.pagecount
ref="<a href=table.asp?curr_page="&j&">"&j&"</a>"
response.write ref & " "
next
%>
</div>
</body>
</html>
这是一个完整的表格分页程序

[此贴子已经被作者于2005-12-26 16:44:14编辑过]

2005-12-26 16:38
xly8610
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-12-26
收藏
得分:0 
[原创]
[QUOTE]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<div align="center">
<%
set rs=Server.CreateObject("adodb.Recordset")
connstr="DBQ="+server.mappath("cj.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
str1="select * from stud_cj where 成绩>='"&"80' order by 成绩 desc"
rs.open str1,connstr,3,3
rs.movefirst
howmany=rs.fields.count '得到表的字段总数
'显示表的列名部分
'每页最多显示10条记录
rs.pagesize=20
curr_page=request("curr_page")
if curr_page="" then
curr_page=1
end if
rs.absolutepage=curr_page
%>
<table border=1>
<tr>
<%for i=0 to howmany-1
%>
<td><%=rs(i).name%></td>
<%next%>
<td><div align="center">操作</div></td>
</tr>
<%k=1
while not rs.eof and k<=20 %>
<tr>
<% '显示每行记录中每列的内容%>
<%for i=0 to howmany-1%>
<td><%=rs(i)%></td>
<%next%>
<td><a href="deit.asp">修改</a> <a href="del1.asp">删除</a></td>
</tr>
<%k=k+1
rs.movenext
wend%>



</table>
<%
'显示页码
for j=1 to rs.pagecount
ref="<a href=table.asp?curr_page="&j&">"&j&"</a>"
response.write ref & " "
next
%>
</div>
</body>
</html>

[/QUOTE]

[此贴子已经被作者于2005-12-26 16:41:12编辑过]

2005-12-26 16:40
快速回复:分页问题
数据加载中...
 
   



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

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