高分请高手帮我看看分页问题 40
高手帮我看下,这个程序可以分页,但却显示所有页码,我数据库有500条信息,他就把250页分页的数字全部显示了出来,但我只想一页显示5个,像这样首页上一页12345下一页未...
高手帮我看下,这个程序可以分页,但却显示所有页码,我数据库有500条信息,他就把250页分页的数字全部显示了出来,但我只想一页显示5个,像这样 首页 上一页 1 2 3 4 5 下一页 未页 当点击下一页时就显示2-6,依此类推,请问怎么解决?还有那个输入页码跳转,当输入小于1时错误,输入超过总页数时就不显示内容了,高手帮我改下代码,谢谢!主要代码如下:
<head>
<style>
<%
dim m,n
set conn=server.createobject("adodb.connection")
conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=;pwd=;dbq="&server.mappath("data/data.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from main"
rs.open sql,conn,3
rs.pagesize=2 '定义一页显示的记录数目
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 '将指针移动到当前显示页的第一条记录
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Rs.EOF))
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rs.MoveNext()
Wend
%>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage<>1 then%>
<a href="fenye.asp?page=<%=1%>"> 首页</a>
<%else%>
<%end if%>
<%if nowpage>1 then%>
<a href="fenye.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="fenye.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="fenye.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="fenye.asp?page=<%=tatalpages%>">末页</a>
<%else%>
<%end if%>
<form action="fenye.asp" method="get">
<p>输入页数:
<input type="text" name="page" size="3" />
页数:<font color="red"><%=page%>/<%=rs.pagecount%></font> </p>
</form>
大家可以说的清楚点吗,帮我把代码改下,我是菜鸟,我想要的形式是第一页显示1-5,点击下一页时显示2-6,高手帮忙 展开
<head>
<style>
<%
dim m,n
set conn=server.createobject("adodb.connection")
conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=;pwd=;dbq="&server.mappath("data/data.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from main"
rs.open sql,conn,3
rs.pagesize=2 '定义一页显示的记录数目
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 '将指针移动到当前显示页的第一条记录
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Rs.EOF))
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rs.MoveNext()
Wend
%>
共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage<>1 then%>
<a href="fenye.asp?page=<%=1%>"> 首页</a>
<%else%>
<%end if%>
<%if nowpage>1 then%>
<a href="fenye.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="fenye.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="fenye.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="fenye.asp?page=<%=tatalpages%>">末页</a>
<%else%>
<%end if%>
<form action="fenye.asp" method="get">
<p>输入页数:
<input type="text" name="page" size="3" />
页数:<font color="red"><%=page%>/<%=rs.pagecount%></font> </p>
</form>
大家可以说的清楚点吗,帮我把代码改下,我是菜鸟,我想要的形式是第一页显示1-5,点击下一页时显示2-6,高手帮忙 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
