请问有关分页技术。
我把分页技术弄好了，但是到最后一页的时后，我在点下一页他还是会进行下去只不过没显示内容。，那要怎么办啊。还有问题就是设置那个绝对页号的属性absolutepage具体有什么用。
[此贴子已经被作者于2005-5-20 19:28:35编辑过]
2005-05-20 19:25
2005-05-20 21:26
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网站公告页面</title> <!--#include file="CONDB.inc"--> <!--引用数据库连接文件--> <% '声明数据库记录集对象 Dim rsano '创建数据库记录集对象 Set rsano=Server.CreateObject("ADODB.Recordset") '设定数据库记录集游标类型 rsano.cursortype=3 '打开记录集对象 rsano.Open "select * From ANOUCE ORDER BY AnnounceID DESC",con '设定每页显示记录数 rsano.pagesize=25 '得到请求的页号 page=clng(request("page")) IF request("page")<>"" then page=clng(request("page")) Else page=1 End IF IF page<1 Then page=1 If page>rsano.pagecount Then page=rsano.pagecount rsano.absolutepage=page %> <!--去除超连接下划线样式表和字体大小设定代码--> <STYLE type=text/css> A { TEXT-TRANSFORM: none; TEXT-DECORATION: none } UNKNOWN { TEXT-DECORATION: underline } .style22 {font-size: 12px} .style16 {font-size: 14px} BODY { background-color: #f7f7ff; } </STYLE> </head>
<BODY>
<table width="294" height="46" border="0" cellspacing="0"> <tr> <td width="338"><div align="center" class="style22">公告标题</div></td> <td width="95"><div align="center" class="style22">发布日期</div></td> </tr> <% '定义循环变量 dim iPage For iPage=1 to rsano.Pagesize 'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式 Response.Write("<tr>") Response.write("<td><span class=style16><a href=announceview.asp?anbh="&rsano.Fields(0).Value&" target=_self>"&rsano.Fields(1).Value&"</a></span></td>") Response.Write("<td><span class=style22>"&rsano.Fields(4).Value&"</span></td>") Response.Write("</tr>") rsano.MoveNext IF rsano.EOF Then Exit For End If Next %> </table> <table width="293" border="0"> <tr> <% '翻页控制代码 IF page<>1 Then Response.Write("<td><span class=style22><a href=announce.asp?page=1>第一页</a></span></td>") Response.Write("<td><span class=style22><a href=announce.asp?page="&(page-1)&">上一页</a></span></td>") Else Response.Write("<td><span class=style22>第一页</span></td>") Response.Write("<td><span class=style22>上一页</span></td>") End IF IF page<>rsano.pagecount then Response.Write("<td><span class=style22><a href=announce.asp?page=" & (page+1) & ">下一页</a></span></td>") Response.Write("<td><span class=style22><a href=announce.asp?page=" & rsano.pagecount & ">最后一页</a></span></td>") Else Response.Write("<td><span class=style22>下一页</span></td>") Response.Write("<td><span class=style22>最后一页</span></td>") End IF %> <td><span class=style22>共<%=rsano.pagecount%>页</span></td> <td><span class=style22>当前第<%=page%>页</span></td> </tr> </table> <% '网页对象析构代码 rsano.Close con.Close Set rsano=Nothing Set con=Nothing %> </body> </html> 懒得讲，这个是本人做的一个Asp分页例子。里面注释得很清楚，注意红字的地方，记录集游标类型必须在记录机打开之前先设置。
2005-05-20 21:47
2005-05-22 17:27
2005-06-15 15:50
2005-06-15 17:25
2005-06-15 17:28
2005-06-16 16:34
2005-06-16 22:46
2005-06-17 13:00
