UC知道asp留言板分页有错,大家交流一下
来源：百度知道 编辑：UC知道 时间：2024/04/28 18:01:31
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim connstr
connstr="provider=Microsoft.Jet.OLEDB.4.0;data Source=" & Server.MapPath("data.mdb")
set cn = server.CreateObject("ADODB.Connection")
cn.open connstr
%>
<%
exec="SELECT * FROM main"
set rs = server.CreateObject ("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.pageSize=6 '指示Recordset 中一页所包含的记录数,定义每一页最多的条数
pagecount=rs.pageCount '使用PageCunt 属性可确定Recordset对象中数据的页数,pagecount=总页数
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.Absolutepage=page '指定
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim connstr
connstr="provider=Microsoft.Jet.OLEDB.4.0;data Source=" & Server.MapPath("data.mdb")
set cn = server.CreateObject("ADODB.Connection")
cn.open connstr
%>
<%
exec="SELECT * FROM main"
set rs = server.CreateObject ("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.pageSize=6 '指示Recordset 中一页所包含的记录数,定义每一页最多的条数
pagecount=rs.pageCount '使用PageCunt 属性可确定Recordset对象中数据的页数,pagecount=总页数
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.Absolutepage=page '指定
还要做这样一个处理，
当 总记录数除以每页记录数的余数不为0时，要把页码加上1，如果为0就不加。。
<%
dim page,page1
rs.pageSize=6
pagecount=rs.pageCount
page1=int(request("page"))
if page1<=0 or page1 ="" then
page=1
else
page = page1
rs.Absolutepage=page
%>
page=int(request("page"))
改成
page=request("page")
然后写上
if page="" then page=0