Question

求高手 asp代码显示“上一页 下一页”等信息 代码如下 点击都是显示的全部数据

设置的是每页显示20条数据
<form method="post" name="form1" action="newsdetails_all.asp?newsclass=<%=newsclass%>&no=eshop" onSubmit="return ConfirmDel();">
<%
sql1="select * from Conews where 1=1"
if newsclass<>"" then
sql1=sql1&" and classname='"&newsclass&"'"
end if
if keyword<>"" then
sql1=sql1&" and title like '%"&keyword&"%'"
end if
sql1=sql1&" order by id desc"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3

rs1.pagesize=20 '每页显示条数
pagenum=rs1.pagecount

if not isnumeric(pageno) then
%>
<script language="javascript">
<!--
window.history.back()
-->
</script>
<%
response.End()
end if
if pageno="" then
pageno=1
elseif cint(pageno)>pagenum then
pageno=pagenum
elseif cint(pageno)<1 then
pageno=1
end if

if not rs1.eof then
rs1.absolutepage=pageno

for i=1 to rs1.pagesize
%>

<%
rs1.movenext
if rs1.eof then exit for
next

else
'response.Write "目前没有信息！"
end if

%>
</form>
<tr>
<td height="30"></td><form method="post" name="form" action="?newsclass=<%=newsclass%>">
<tr class="a4"><td align="center" height="25" class="font" colspan="4">

<%
if pageno="" or cint(pageno)=1 then
if rs1.pagecount>1 then
%>
<<上一页 <a href="?pageno=2&newsclass=<%=newsclass%>">下一页>></a>
<%end if
elseif cint(pageno) < pagenum then
%>
<a href="?pageno=<%=(pageno-1)%>&newsclass=<%=newsclass%>"><<上一页</a> <a href="?pageno=<%=(pageno+1)%>&newsclass=<%=newsclass%>">下一页>></a>
<%
else
%>
<a href="?pageno=<%=(pageno-1)%>&newsclass=<%=newsclass%>"><<上一页</a> 下一页>>
<%
end if
%>
 共<font color="#ff0000"><%=rs1.recordcount%></font>条信息 第<%=pageno%>页/共<%=rs1.pagecount%>页 
转到
<input name="pageno" type="text" size="2" >
<input type="submit" value="Go">
</td></tr>
</form>
</tr>

</table>
<%
rs1.close
set rs1=nothing
%>
<%
closeconn

%>

Answer 1

我没有看到类似 pageno = Request.QueryString("pageno") 的代码, 不知道是不是你代码没贴全, 但是如果你从没给 pageno 变量赋过值的话,那它在程序里将永远是1, 所以你看到的都是第1页. 检查一下吧.

追加回答:
============================================
用以下代码替换<form ...>标签与</form>标签之间的代码.
<%
sql1="select * from Conews where 1=1"
if newsclass<>"" then sql1=sql1&" and classname='"&newsclass&"'"
if keyword<>"" then sql1=sql1&" and title like '%"&keyword&"%'"
sql1=sql1&" order by id desc"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3
if not rs1.eof then
If pageno = "" Then pageno = 1 Else IF IsNumeric(pageno) Then pageno = CLng(pageno) Else pageno = 1
rs1.PageSize = 20 '每页显示条数
IF pageno < 1 Then pageno = 1
IF pageno > rs1.PageCount Then pageno = rs1.PageCount
rs1.AbsolutePage = pageno
for i=1 to rs1.PageSize
%>

<%
rs1.movenext
if rs1.eof then exit for
next
else
'response.Write "目前没有信息！"
end if
%>
URL参数pageno非数值的情况已经用默认值1处理了,所以把你那个back的JS删掉了.

Answer 2

又不可以调试 你是自己做的分页控件嘛，如果自己做的话 最好用委托和事件来做。那样可以多处用到 而且更专业。
不知道你有没有网上那些做好的分页控件没有
我倒是有 如果你要的话可以找我哈

主要是 你这个那么多代码又不可以调试 不好找问题出来

追问

怎么联系

追答

你是要 什么呢 你说清楚就可以了 我发到你邮箱里