Question

关于ASP分页显示,第一页好用,其它显示不了,请教!!

If rs.recordcount > 0 Then ' 记录集不为空则处理记录
rs.pagesize = 20 ' 设置每页显示的记录数
num=rs.recordcount ' 记录总数
pagenum=rs.pagecount ' 页总数
page=request("page") ' 获取页码的原始信息

' 处理页码原始信息的开始！
If page <> "" then
page = cint(page)
if err.number <> 0 then
err.clear
page = 1
end if
if page < 1 then
page = 1
end if
else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize <num)then
page=1
end if
' 处理页码原始信息的结束！设置当前页码
rs.absolutepage = page
%>
<!--判断当前页是否是最后一页，并根据判断设置记录的重复显示-->
<% if page<>pagenum then
lablenum=rs.pagesize
else
lablenum=num-(page-1)*rs.pagesize
end if
for i=1 to lablenum
%>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><%=(rs.Fields.Item("id").Value)%></div></td>
<td><div align="center"><%=(rs.Fields.Item("STRNAME").Value)%></div></td>
<td><div align="center"><%=(rs.Fields.Item("STRPHONE").Value)%></div></td>
<td><div align="center"><%=(rs.Fields.Item("STRDETAILDESCRIPTION").Value)%></div></td>
<td><div align="center"><%=(rs.Fields.Item("STRTRANSFERTATION").Value)%></div></td>
<td><div align="center"><%=(rs.Fields.Item("STRADDRESS").Value)%></div></td>
• </tr>
<%
rs.movenext
next

%>
<!--当前页的记录显示结束，以下代码为记录集分页链接代码-->
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35" width="600">
<div align="left">
<font color="#333333">共有 <%=num%> 个链接 |<a href=show.asp?page=1>首页</a> | <%if page > 1 then%><a href=show.asp?page=<%=page-1%>><%end if%>上一页</a> | <%if page < pagenum then%>
<a href="show.asp?page=<%=page+1%>"> <%end if%>
下一页</a> | <a href=show.asp?page=<%=pagenum%>>尾页</a> | 页次:<%=page%>/<%=pagenum%>页 | 共<%=pagenum%>页

</font>
</div>
</td>
</tr>
</table>
<!--记录集分页链接代码结束，记录集为空时执行以下代码-->
<%else%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="6"><div align="center"><% response.Write("没有结果可显示！") %>
</div></td>
</tr>
<%
end if
rs.Close()
Set rs = Nothing
%>
请高手帮忙

Answer 1

检查下一此代码前的代码是否有错误的地方,如果有那就只能看到一页了.
实在不行,就用下面的代码来分页:
<%
set rs=server.Createobject("adodb.recordset")
sql=select * from 表名 where 你想满足的条件
rs.open sql,数据库的变量,1,1
if rs.bof and rs.eof then
response.write "没有图片"
else
rs.PageSize=3
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
i=1
do while not rs.eof
if (i mod 4)=0 then
response.write "<br>"
end if
response.write "<img src=你的图片地址>"
rs.movenext
i=i+1
loop
%>

开始分页
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=index.asp?page=1>首页</a> "
response.write "<a href=index.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=index.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=daybook.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
%>