|
tatalrecord=rs.recordcount ‘獲取記錄總數(shù)目 tatalpages=rs.pagecount ‘獲取分頁的數(shù)目 rs.movefirst ---------------------------- nowpage=request("page") ‘用request獲取當前頁數(shù)，注意page是自己定義的變量并非函數(shù) -------------------------- if nowpage&"x"="x" then ‘處理頁碼為空時的情況 nowpage=1 else nowpage=cint(nowpage) ‘將頁碼轉換成數(shù)字型 end if -------------------------------- rs.absolutepage=nowpage ‘將指針移動到當前顯示頁的第一條記錄 ------------------------------- %> --------------------------------------------- <% n=1 while not rs.eof and n<=rs.pagesize response.Write(rs("user") & "<br>") response.Write(rs("tt") & "<br>") n=n+1 rs.movenext ‘顯示頁面的數(shù)據(jù) wend %> ------------------------------------------- 共:<%=tatalpages%>頁 當前為:<%=nowpage%>頁 <%if nowpage>1 then%> <a href="fy.asp?page=<%=nowpage-1%>">上一頁</a> <%else%> 上一頁 <%end if%> <%for k=1 to tatalpages%> <%if k<>nowpage then %> <a href="fy.asp?page=<%=k%>"><%=k%></a> <%else%> <%=k%> <%end if%> <%next%><<%if nowpage < tatalpages then%> <a href="fy.asp?page=<%=nowpage+1%>">下一頁</a> <%else%> 下一頁 <%end if%> ‘加上頁碼連接 <%if nowpage<>1 then%> <a href="fy.asp?page=<%=1%>"> 首頁</a> <%else%> 首頁 <%end if%> <%if nowpage<>tatalpages then %> <a href="fy.asp?page=<%=tatalpages%>">末頁</a> <%else%> 末頁 <%end if%> |
|
|
