|
tatalrecord=rs.recordcount ‘獲取記錄總數(shù)目 tatalpages=rs.pagecount ‘獲取分頁(yè)的數(shù)目 rs.movefirst ---------------------------- nowpage=request("page") ‘用request獲取當(dāng)前頁(yè)數(shù)，注意page是自己定義的變量并非函數(shù) -------------------------- if nowpage&"x"="x" then ‘處理頁(yè)碼為空時(shí)的情況 nowpage=1 else nowpage=cint(nowpage) ‘將頁(yè)碼轉(zhuǎn)換成數(shù)字型 end if -------------------------------- rs.absolutepage=nowpage ‘將指針移動(dòng)到當(dāng)前顯示頁(yè)的第一條記錄 ------------------------------- %> --------------------------------------------- <% 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 ‘顯示頁(yè)面的數(shù)據(jù) wend %> ------------------------------------------- 共:<%=tatalpages%>頁(yè) 當(dāng)前為:<%=nowpage%>頁(yè) <%if nowpage>1 then%> <a href="fy.asp?page=<%=nowpage-1%>">上一頁(yè)</a> <%else%> 上一頁(yè) <%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%>">下一頁(yè)</a> <%else%> 下一頁(yè) <%end if%> ‘加上頁(yè)碼連接 <%if nowpage<>1 then%> <a href="fy.asp?page=<%=1%>"> 首頁(yè)</a> <%else%> 首頁(yè) <%end if%> <%if nowpage<>tatalpages then %> <a href="fy.asp?page=<%=tatalpages%>">末頁(yè)</a> <%else%> 末頁(yè) <%end if%> |
|
|
來(lái)自： dlimit > 《asp技術(shù)研究》
