asp分页显示问题 20

网上找了一段代码实现asp分页显示,首页尾页啥的功能都没有问题,但是所有记录还是显示在一页,求大神帮忙。部分源代码如下:rs2.PageSize=5'每页记录条数iCou... 网上找了一段代码实现asp分页显示,首页尾页啥的功能都没有问题,但是所有记录还是显示在一页,求大神帮忙。
部分源代码如下:
rs2.PageSize =5 '每页记录条数
iCount=rs2.RecordCount '记录总数
iPageSize=rs2.PageSize
maxpage=rs2.PageCount
page=request("page")

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rs2.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x

%>
展开
 我来答
那年夏天MY92
2014-06-20 · 超过75用户采纳过TA的回答
知道答主
回答量:122
采纳率:50%
帮助的人:69.2万
展开全部
<!-- #include file="mdb/conn.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>氧气厂电机数据库</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<%
exec= "SELECT * FROM djcs order by id desc"
set rs=server.Createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.PageSize=16
fycs=rs.PageCount '指示 Recordset 中一页所包含的记录数
page=int(request("page")) '使用 pageCount 属性可确定 Recordset 对象中数据的页数
if page<=0 then page=1
if request("page")="" then page=1
%>
<body>
<table width="520" border="0" align="center" class="TableTitle2">
<tr>
<td height="3"></td>
</tr>
</table>
<%
if rs.EOF and rs.BOF then
response.write ("暂时还没有数据")
else
rs.AbsolutePage=page '指定当前记录所在的页<把这句加在这里!>
for i=1 to rs.PageSize
if rs.EOF then exit for
response.write("<table width='520' border='1' align='center' bordercolor='#C2D1DE' bgcolor='#F4F7F9'>")
response.write("<td><a href=xg-main.asp?id="&rs("id")&">安装地点:"& rs("azdd")&"</a> | 型号:"& rs("xh")&" | 用途:"& rs("yt"))
response.write("</td>")
response.write("<table width='520' border='0' align='center'><tr><td height='3'></td></tr></table>")
rs.MoveNext
next
end if%>

<p align="center">
<% if page=1 and not page=fycs Then %>
第一页|上一页|
<a href="index.asp?page=<%=page+1%>">下一页</a>|
<a href="index.asp?page=<%=fycs%>">最后页</a>|
<% elseif page<>1 and not page=fycs Then%>
<a href="index.asp?page=1">第一页</a>|
<a href="index.asp?page=<%=page-1%>">上一页</a>|
<a href="index.asp?page=<%=page+1%>">下一页</a>|
<a href="index.asp?page=<%=fycs%>">最后页</a>|
<% elseif page=fycs then%>
<a href="index.asp?page=1">第一页</a>|
<a href="index.asp?page=<%=page-1%>">上一页</a>|
下一页|
最后页
<% End If %>
</p>
</body>
</html>

看看我给你改的 应该行!
追问
页面有数据的,但是还显示“暂时还没有数据”
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
登哥32321
2014-06-20 · 超过74用户采纳过TA的回答
知道答主
回答量:136
采纳率:80%
帮助的人:62.8万
展开全部
<!-- #include file="mdb/conn.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>氧气厂电机数据库</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<%
exec= "SELECT * FROM djcs order by id desc"
set rs=server.Createobject("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.PageSize=16
fycs=rs.PageCount '指示 Recordset 中一页所包含的记录数
page=int(request("page")) '使用 pageCount 属性可确定 Recordset 对象中数据的页数
if page<=0 then page=1
if request("page")="" then page=1
%>
<body>
<table width="520" border="0" align="center" class="TableTitle2">
<tr>
<td height="3"></td>
</tr>
</table>
<%
if rs.EOF and rs.BOF then
response.write ("暂时还没有数据")
else
rs.AbsolutePage=page '指定当前记录所在的页<把这句加在这里!>
for i=1 to rs.PageSize
if rs.EOF then exit for
response.write("<table width='520' border='1' align='center' bordercolor='#C2D1DE' bgcolor='#F4F7F9'>")
response.write("<td><a href=xg-main.asp?id="&rs("id")&">安装地点:"& rs("azdd")&"</a> | 型号:"& rs("xh")&" | 用途:"& rs("yt"))
response.write("</td>")
response.write("<table width='520' border='0' align='center'><tr><td height='3'></td></tr></table>")
rs.MoveNext
next
end if%>

<p align="center">
<% if page=1 and not page=fycs Then %>
第一页|上一页|
<a href="index.asp?page=<%=page+1%>">下一页</a>|
<a href="index.asp?page=<%=fycs%>">最后页</a>|
<% elseif page<>1 and not page=fycs Then%>
<a href="index.asp?page=1">第一页</a>|
<a href="index.asp?page=<%=page-1%>">上一页</a>|
<a href="index.asp?page=<%=page+1%>">下一页</a>|
<a href="index.asp?page=<%=fycs%>">最后页</a>|
<% elseif page=fycs then%>
<a href="index.asp?page=1">第一页</a>|
<a href="index.asp?page=<%=page-1%>">上一页</a>|
下一页|
最后页
<% End If %>
</p>
</body>
</html>

看看我给你改的 应该行!
满意请采纳。
追问
不要直接复制别人的,我试过了,不行的,谢谢
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式