<%
s=1
PAGE=1 ' 设置变量PAGE=1
RS.PAGESIZE = 50 '每页显示记录数
IF NOT ISEMPTY(REQUEST("PAGE")) THEN '如果PAGE已经初始化...
PAGE = CINT(REQUEST("PAGE")) '接收PAGE并化为数字型赋给PAGE变量
IF PAGE > RS.PAGECOUNT THEN '如果接收的页数大于总页数
RS.ABSOLUTEPAGE = RS.PAGECOUNT '设置当前显示页等于最后页
ELSEIF PAGE <= 0 THEN '如果PAGE小于等于0
PAGE = 1 '设置PAGE等于第一页
ELSE
RS.ABSOLUTEPAGE = PAGE '如果大于零,显示当前页等于接收的页数
END IF
END IF
PAGE = RS.ABSOLUTEPAGE
FOR I = 1 TO RS.PAGESIZE
IF RS.EOF THEN
EXIT FOR
END IF '利用FOR NEXT 循环依次读出记录