关于分页显示的问题:( - ASP及.net - 5D互动论坛

» 互动论坛 » ASP及.net » 关于分页显示的问题:(

跳转到：

每页显示15条 1/1<<<1>>

编辑历史:[这消息被germchen编辑过(编辑时间2002-08-02 17:26:29)]
[这消息被germchen编辑过(编辑时间2002-08-02 17:26:32)]

主题: 关于分页显示的问题:(

aze_5d
职务：普通成员
等级：1
金币：0.0
发贴：51

引用

#12002/8/2 17:15:28

页面名称为show.asp

在该页中输入条件进行查询
并在本页(show.asp)显示
如果没有输入条件就显示所有

现在的问题是

分页有问题
看网上的代码特长
我现在用的很短
大多数情况用的很好
但就是这次有问题
源码在下面,各位看看哪儿出了问题(数据库连接文件在外面)

<%
aaa=request("hdmc")
szdd=request.form("szdd")
%>

河流名称:

所在地点:

<%
set rs=server.createobject("adodb.recordset")
sql="select * from river where 1=1"
if aaa<>"" then
sql=sql&"and hdmc like '%"&aaa&"%'"
end if
if szdd<>"" then
sql=sql&"and szdd like '%"&szdd&"%'"
end if
rs.open sql,con,1,1
if rs.eof and rs.bof then
response.write("尚无任何信息!")
else
rs.pagesize=25
pageno=request("pageno")
if pageno="" then
pageno=1
end if
rs.absolutepage=pageno

totalcount=25
tag=0
%>

<%
do while not rs.eof and totalcount>0
%>

<%
totalcount=totalcount-1
rs.movenext
loop
%>

河道名称	流域面积	所在流域河道级别	干流全长	堤防总长	所在地点	防洪标准	操作
" target="_blank"><%=rs("hdmc")%>	<%=rs("lymj")%>km²	<%=rs("sslyhdjb")%>	<%=rs("glqc")%>km	<%=rs("dfzc")%>km	<%=rs("szdd")%>	<%=rs("fhbz")%>	&ym=<%=pageno%>" onClick="return check()">删除/" target="_blank">修改
<% if cint(pageno)>1 then pageno1=cint(pageno)-1%> 上一页　 <% end if%> 第<%=pageno%>/<%=rs.pagecount%>页 <% if cint(pageno)pageno2=cint(pageno)+1%> 下一页 <%end if%> <%end if%>

绿茶
职务：普通成员
等级：8
金币：10.0
发贴：19267

引用

#22002/8/2 17:25:11

給你一段代碼，自己看一下
主题数：
<%if obj.recordcount<>"" then
response.write obj.recordcount
else
response.write "0"
end if%>，页次：<%=page%>/<%=totalpage%>

<%
url="show.asp?search="&request("search")
if page=1 then
    response.write "[首页｜上一页"
else
    response.write "[首页｜上一页"
end if
%> <%
if totalpage=1 then
    response.write "｜下一页｜尾页]"
else
    response.write "｜下一页｜尾页]"
end if
%>　跳转到