ASP分页程序中的确else pageno+1 pageno-1有什么作用

来源：百度知道编辑：UC知道时间：2024/05/14 06:42:18

< %
PgSz=20 '设定开关，指定每一页所显示的帖子数目，默认为20帖一页
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM message order by ID DESC"
'查询所有帖子，并按帖子的ID倒序排列
Conn.Open "bbs"
RS.open sql,Conn,1,1
If RS.RecordCount=0 then
response.write "< P>< center>对不起，数据库中没有相关信息！< /center>< /P>"
else
RS.PageSize = Cint(PgSz) '设定PageSize属性的值
Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数
PageNo=Request("pageno")
if PageNo="" Then
PageNo = 1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
ScrollAction = Request("ScrollAction")
if ScrollAction = " 上一页 " Then
PageNo=PageNo-1
end if
if ScrollAction = " 下一页 " Then
PageNo=PageNo+1
end if
if PageNo < 1 Then
PageNo = 1
end

当 PageNo为空时，将页面默认为第一页。
而下面的
else
PageNo=PageNo+1
PageNo=PageNo-1
纯粹是为了控制 PageNo 在 if...else...end if 程序段中不发生变化。
以便在下面通过 ScrollAction 的值来控制是否翻页。

pageno+1下翻页
pageno-1下翻页

pageno是页码

楼下的看清楚题目再说，问题应该是if PageNo="" Then
PageNo = 1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
里的PageNo+1 PageNo-1 不过我也没看懂。

ASP分页程序中的确else pageno+1 pageno-1有什么作用 asp分页程序问题 ASP 分页程序求asp分页程序关于ASP分页程序 asp分页程序中遇到的一个小错误 ASP中分页问题 ASP中分页显示 ASP高手,,帮个忙,,分页程序 ASP中分页的问题