asp网页中如何添加上一页 下一页代码, ASP页面中没有上一页和下一页代码,有没有方法可以添加进去?

<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
%>
<%
Set Rs=Server.Createobject("Adodb.recordset")
Sql="Select * from [table] where 1=1"
Rs.open Sql,conn,1,1
If not Rs.bof and not Rs.eof Then
Rs.pagesize=20 '每页显示几条
if PageNo<1 then
PageNo=1
end if
if PageNo>Rs.pagecount then
PageNo=Rs.pagecount
end if

Rs.absolutepage=PageNo
i=0
do while i<Rs.pagesize and not Rs.eof
%>
显示值
<%
Rs.movenext
i=i+1
Loop
End if
%>
<div align="right">记录总数：<font color="red"><%=Rs.recordcount%></font> 条 当前页：<font color="red"><%=PageNo%></font>/<%=Rs.pagecount%> 页大小：<%=Rs.pagesize%> <a href="?PageNo=1">首页</a> <a href="?PageNo=<%=PageNo-1%>">上页</a> <a href="?PageNo=<%=PageNo+1%>">下页</a> <a href="?PageNo=<%=Rs.pagecount%>">末页</a> <input type=text id="goPage" value="<%=PageNo%>" size=2> <input type=button class="Mnue_003" onClick="location='?PageNo='+document.all.goPage.value;" value="GO">
</div>
<%
Rs.close
Set Rs=nothing
%>

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/r2xjjjrrv.html