asp简单分页，菜鸟困扰许久，请大侠耐心帮我啊。

lammle 2011-05-05 05:27:17
我做了个分页，查了百度，应该没问题的，但是不知为何，点击下一页后，则变成了最后一页，且此时点击上一页则无效果，请高手帮帮我啊。谢谢啦
<html>



<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>任务列表</title>

</head>



<body style="text-align: center">

<!--#include file= "conn.asp"-->

<%

sql_select ="select * from task order by task_id"

set rs=server.createobject("adodb.recordset")

rs.open sql_select,conn,1,1

rs.pagesize=4

epage=0

if request.querystring("page")<>""then

   epage=request.querystring("page")   

   if request.querystring("page")>rs.pagecount then

      epage=rs.pagecount

    end if

    

   if request.querystring("page")<1 then

      epage=1

      end if 

  else epage=1

end if  

rs.absolutepage=epage



%>

<table border="1" width="31%" id="table1">当前为<%=epage%>页

<%for i=1 to rs.pagesize

if rs.bof or rs.eof then exit for



%>







<tr>

		<td><a href ="<%=rs("task_url")%>"><%=rs("task_name")%></a> </td>

		

	</tr>



<% rs.movenext

next %>

</table>

<p><a href="task_list.asp?page=<%=epage-1%>">上一页</a> <a href="task_list.asp?page=<%=epage+1%>">下一页</a>

<a href="task_list.asp?page=<%=rs.pagecount%>">最后一页</a> 共<%=rs.pagecount%>页 </p>

</body>

<%conn.close()%>

</html>
...全文
68 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
tanshi 2011-05-07
  • 打赏
  • 举报
 回复
看看这个http://blog.csdn.net/tanshi/archive/2010/05/23/5618291.aspx
Rotel-刘志东 2011-05-06
  • 打赏
  • 举报
 回复
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>任务列表</title>
</head>

<body style="text-align: center">
<!--#include file= "conn.asp"-->
<%
sql_select ="select * from task order by task_id"
set rs=server.createobject("adodb.recordset")
rs.open sql_select,conn,1,1
rs.pagesize=4
epage=0
if request.querystring("page")<>""then
epage=request.querystring("page")
if request.querystring("page")>rs.pagecount then
epage=rs.pagecount
end if

if request.querystring("page")<1 then
epage=1
end if
else epage=1
end if
rs.absolutepage=epage

%>
<table border="1" width="31%" id="table1">当前为<%=epage%>页
<%for i=1 to rs.pagecount
if not rs.bof or rs.eof then
%>



<tr>
<td><a href ="<%=rs("task_url")%>"><%=rs("task_name")%></a> </td>

</tr>

<% rs.movenext
next %>
</table>
<p><a href="task_list.asp?page=<%=epage-1%>">上一页</a> <a href="task_list.asp?page=<%=epage+1%>">下一页</a>
<a href="task_list.asp?page=<%=rs.pagecount%>">最后一页</a> 共<%=rs.pagecount%>页 </p>
</body>
<%conn.close()%>
</html>
lammle 2011-05-06
  • 打赏
  • 举报
 回复
感谢，但是cint没有用的啊。请问我的代码没问题吧
xiaoku8891 2011-05-06
  • 打赏
  • 举报
 回复
你用Cint把获取的page值转换一下看看行不。。
偷麦 2011-05-06
  • 打赏
  • 举报
 回复
<%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
dim rs
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")

rs.open "select bookid,bookname,adddate,shjianame,shjiaid,kucun from shop_books order by adddate desc",conn,1,1

if err.number<>0 then
response.write "数据库中无数据"
end if

if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 数据库中无数据！</p>"
else
totalPut=rs.recordcount

if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if

if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"managebook.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"managebook.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"managebook.asp"
end if
end if
end if

sub showContent
dim i
i=0%>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商品查看与修改</font></b></td>
</tr>
<tr >
<td width="6%" align="center" bgcolor="#D9E6FF">序号</td>
<td width="33%" align="center" bgcolor="#D9E6FF">商品名称</td>
<td width="37%" align="center" bgcolor="#D9E6FF">加入时间</td>
<td width="8%" align="center" bgcolor="#D9E6FF">选 择</td>
</tr>
<%do while not rs.eof%>
<tr >
<td align="center" bgcolor="#D9E6FF"><a href=editbook.asp?id=<%=rs("bookid")%>><%=rs("bookid")%></a></td>
<td width="33%" bgcolor="#D9E6FF" STYLE='PADDING-LEFT: 10px'> <a href=editbook.asp?id=<%=rs("bookid")%>>
<% if len(trim(rs("bookname")))>20 then
response.write left(trim(rs("bookname")),18)&".."
else
response.write trim(rs("bookname"))
end if%>
</a><%if rs("kucun")>0 then%> <font color=blue> 热卖中</font> <%else%>
<font color=red> 缺货</font> <%end if%></td>
<td align="center" bgcolor="#D9E6FF"> <%=rs("adddate")%></td>
<td align="center" bgcolor="#D9E6FF">
<input name="selectbookid" type="checkbox" id="selectbookid" value="<%=rs("bookid")%>">
</td></tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
<tr >
<td height="30" colspan="4" align="right" bgcolor="#D9E6FF">全选
<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
<input type="submit" name="Submit" value="删 除" onClick="return test();">
 </td>
</tr>
</table>
<%
End Sub

Function showpage(totalnumber,maxperpage,filename)
Dim n

If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If

Response.Write "<form method=Post action="&filename&"?selectm="&selectm&"&selectkey="&selectkey&" >"
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首页 上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>首页</a> "
Response.Write "<a href="&filename&"?page="¤tPage-1&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>上一页</a> "
End If

If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&selectm="&selectm&"&selectkey="&selectkey&" class='contents'>尾页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"¤tPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"种商品 "
Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="¤tpage&">"
Response.Write " <input type='submit' class='contents' value='GO' name='cndok' ></form>"
End Function
%>
asp.net中分页的问题
我在写asp.net分页代码的时候遇到这样一个问题：点击下页（系统自带的数字页码）没有显示数据但是返回到第一页却可以正常显示第一页的数据.......源代码如下： protected void GridView1_PageIndexChanging(object ...
C#/Entity Frame Core 使用Linq 进行分页 .Skip() .Take() 的使用方法
int pagesize = 分页大小(每一页大小) int pageindex = 第几页(一般这个变量是随循环递增的) 使用方法 .Skip(pagesize*pageindex).Take(pagesize) .Skip() 忽略数，表示从哪里开始分页 .Take() 表示每一页截取...
sql存储过程完全教程
各种存储过程使用指南5.ASP中存储过程调用的两种方式及比较6.SQL存储过程在.NET数据库中的应用 7.使用SQL存储过程要特别注意的问题 1.sql存储过程概述 在大型数据库系统中，存储过程和触发器具有
C++面试题
答：虚拟继承吧……（我想了半天也不记得这个怎么弄了，他也就没有继续难为 我） 14. 虚拟继承的语法是什么？ 答：class C : public A, virtual public B 15. 部分模版特例化（我忘了他当时怎么翻译这个词的了，...
WEB开发文档2 总结
转自：http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid...请大虾指教那
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章