UC知道asp 分页 问题，最后一页卡死
来源：百度知道 编辑：UC知道 时间：2024/05/28 00:08:16
在一个叫做梦想家的程序（简化的IIS服务器）里测试没有问题。但是上传到空间上点击到最后一页时就会卡死不动。忘给予解释。谢谢
set rs=server.CreateObject("adodb.recordset")
rs.open sqlz,db,1,1
rs.pagesize=10
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1 end if
if request("page")="" then page=1 end if
rs.absolutepage=page
response.Write(kindname+"-"+"文章列表<br>")
if rs.bof and rs.eof then
response.Write("目前还没有内容！！！")
else
%>
<!---省略显示地方---!>
<%if page=1 or page="" and page<rs.pagecount then%>
<a href="newscommand.asp?id=<%=kind%>&page=2" class="STYLE2">下一页</a>
<a href="newscommand.asp?id=<%=kind%>&page=<%=rs.pagecount%>" class="STYLE2">末页</a>
<%end if%>
<%if page>1 and page<rs.pa
set rs=server.CreateObject("adodb.recordset")
rs.open sqlz,db,1,1
rs.pagesize=10
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1 end if
if request("page")="" then page=1 end if
rs.absolutepage=page
response.Write(kindname+"-"+"文章列表<br>")
if rs.bof and rs.eof then
response.Write("目前还没有内容！！！")
else
%>
<!---省略显示地方---!>
<%if page=1 or page="" and page<rs.pagecount then%>
<a href="newscommand.asp?id=<%=kind%>&page=2" class="STYLE2">下一页</a>
<a href="newscommand.asp?id=<%=kind%>&page=<%=rs.pagecount%>" class="STYLE2">末页</a>
<%end if%>
<%if page>1 and page<rs.pa
给你一个小例子看一下
<%
'连接数据库
'执行sql 改你要的sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",conn,1,3
下面的代码就复制用可以了
'分页
i=50
rs.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu)
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>
当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
<a href="?pu=1">首 页</a>
<a href="?pu=<%=cint(PU)-1%>">上一页</a>
<a href=