Question

asp里记录集分页的问题

插入记录集分页后，预览起来，首页底部没有出现首页的字样，而是下一页，最后一页，怎么样让“首页，下一页，上一页，末页”一起出现在每个分页面里

Answer 1

在提交时总有个先后顺序，就算时间再短也算
如果是先分页后，再由另一人添加数据或删除数据、修改等不会影响前面，因为前在的执行过程已经结束。

如果是先删除了数据，另一人再浏览就会出错，在写代码时都要考滤好错误返回信息。
如果是添加了数据，另一人再浏览时就会有这条数据记录。或是被更新过的记录。

在数据库中有无ID不会影响数据的错乱，因为数据库它有自己的一个排列方法，后添加进来的就是要在后面

这就是一个时间问题，我们可能感觉是同一时间提交不同数据，但电脑会区分开的。我们只需要把代码写完整，尽量不要让程序返回错误信息就可以了

Answer 2

<% exec="select * from speaking" '打开表
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
msg_per_page=5 '显示页数
if rs.eof then%>
<font size="5" face="黑体">暂无记录</font>
<%
else
rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else
n = rs.recordcount\msg_per_page+1
end if
if request("pp")="ok" and isnumeric(request("ppp")) then
page=request("ppp")
else
page=request("page")
end if
if request("pp")="ok" then
if cint(page)<0 or cint(page)>n then
response.write "<script language=JavaScript>" & chr(13) & "alert('该页不存在！');" & "history.back()" & "</script>"
end if
end if
currentpage = page 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数
%>
<%do while not rs.eof and rowcount>0%>
<tr>
<td width="8%" align="center"><font size="2"><%=rs("id")%>/<%=ii%></font></td>
<td width="7%" align="center"><font size="2"><%if rs("sh")=true then%><font color="#C0C0C0">是</font><%else%><font color="#FF0000">否</font><%end if%></font></td>
<td width="4%" align="center">
<input type="checkbox" name="list" value="<%=rs("id")%>"></td>
<td align="center" width="7%"><font size="2"><%=rs("people_name")%></font></td>
<td align="center" width="5%"><font size="2"><%=rs("people_xb")%></font></td>
<td align="center" width="8%"><font size="2"><%=rs("people_yingyong")%></font></td>
<td align="center" width="15%"><font size="2"><%=rs("people_email")%></font></td>
<td align="center" width="148">
<textarea rows="4" name="S1" cols="20"><%=rs("people_speaking")%></textarea></td>
<td align="center" width="147">
<textarea rows="4" name="huihu" cols="20"><%=rs("people_hh")%></textarea></td>
</tr><%rowcount=rowcount-1
rs.movenext
loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<form method="POST" action="?pp=ok">
<tr>
<td bgcolor="#FFFFFF" align="center">
<%if currentpage = 1 then%>
<strong>首页</strong>
<%else%>
<a href="<%=request.ServerVariables("script_name")%>?page=1">第一页</a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">上一页</a>
<%end if%>
<%if currentpage = n then%>
完毕<input type=button value=刷新 onclick="history.go(0)">
<%else%>
<b>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下一页</a></b>
<b>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a></b>
<%end if%>
  第<font color="#FF0000"><%=currentpage%>/<%=n%></font>页
  <font color="#FF0000"><%=msg_per_page%></font>个记录/页 
共：<font color="#FF0000"><%=totalrec%></font>个记录    转到<input type="text" name="ppp" size="5"><input type="submit" value="GO" name="B1">
</td>
</tr>
</form>