| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 386 人关注过本帖
标题:[求助]我的分页怎么没有成功?
只看楼主 加入收藏
fzlklmy
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-29
收藏
 问题点数:0 回复次数:1 
[求助]我的分页怎么没有成功?

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>普通用户</title>
<!-- #include file="top1.asp"-->
<!--#include file="inc/conn.asp"-->
</head>

<body>
<%
userid=session("user")
set rs=server.CreateObject("adodb.recordset")
rs.open"select xgqx from wtgl_user where userid='"&userid&"'",conn,1,1
qx=rs("xgqx")
rs.close
sql="select * from wtgl1"
rs.open sql,conn,1,2

rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request("page") '用request获取当前页数,注意page是自己定义的变量并非函数
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if

rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>
</p>
<form name="form1" method="post" action="">
<table width="800" border="1" align="center" bordercolor="#0066FF">
<tr align="center">
<td width="163"><div align="center">类别</div></td>
<td width="163"><div align="center">内容描述</div></td>
<td width="163"><div align="center">修改状态</div></td>
<td width="163"><div align="center">提出时间</div></td>
<td width="163"><div align="center">修改时间</div></td>
<td width="163"><div align="center">所属平台</div></td>
<td width="163"><div align="center">附件地址</div></td>
<td width="163"><div align="center">提出人</div></td>
<td width="163"><div align="center">问题解决者</div></td>
<td width="163"><div align="center">优先级</div></td>
<td width="163"><div align="center">前台/后台</div></td>
<% if qx="具有" then %>
<td width="163"><div align="center">管理操作</div></td>
</tr>
<% end if %>
<% do while not rs.eof %>
<tr align="center">
<td><span class="style4"><% =rs("lb") %></span></td>
<td><span class="style4"><textarea name="textarea" cols="16"><% =rs("nrms") %></textarea></span></td>
<td><span class="style4"><% =rs("xgzt") %></span></td>
<td><span class="style4"><% =rs("tcsj") %></span></td>
<td><span class="style4"><% =rs("xgsj") %></span></td>
<td><span class="style4"><% =rs("sspt") %></span></td>
<td><input name="textfield" type="text" value="<% =rs("fj") %>"> <span class="style4"></span></td>
<td><span class="style4"><% =rs("tcr") %></span></td>
<td><span class="style4"><% =rs("jjr") %></span></td>
<td><span class="style4"><% =rs("yxj") %></span></td>
<td><span class="style4"><% =rs("fl") %></span></td>
<% if qx="具有" then %>
<td><span class="style4"><a href="update_wt.asp?xh=<%=rs("xh")%>">修改</a>|<a href="delete_wt.asp?xh=<%=rs("xh")%>">删除</a></span></td>
</tr>
<%
end if
rs.movenext
loop
%>
</table>
<p><span class="style3"><span class="STYLE1">---------------</span>--------------------------------------------------<span class="style4">------</span><span class="style5"><span class="style4">----</span></span></span>----------共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="user.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="user.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="user.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="user.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="user.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>
</p>
<div align="center">
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</div>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</form>
<p>&nbsp;</p>
<span class="style3"> </span>
</body>
</html>

搜索更多相关主题的帖子: content include title where file 
2006-04-17 18:01
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
收藏
得分:0 
是不是,还是把所有的纪录都显示出来了?
如果是这样的话,在循环输出纪录的 do while .....loop 里面加上一个计数器,比如
i=1
do while not rs.eof
......
i=i+1
if i> 10 then
exit do
end if
rs.movenext
loop
你试试
2006-04-17 23:12
快速回复:[求助]我的分页怎么没有成功?
数据加载中...
 
   



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

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