<%if session("admin")="ok" then %>          返回后台首页面>>留言基本设置>> <%end if%> <% dim rs2 dim sql2 dim name,email,homepage,qq,face,content,ip,dataandtime,reply,id set rs2=server.CreateObject("adodb.recordset") sql2="select * from message order by id desc" rs2.open sql2,conn,1,1 page=1 ' 设置变量PAGE=1 rs2.PageSize = 5 '每页显示记录数 if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化... Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs2.PageCount then '如果接收的页数大于总页数 rs2.AbsolutePage = rs2.PageCount '设置当前显示页等于最后页 elseif Page <= 0 then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 else rs2.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end if End if Page = rs2.AbsolutePage %>