01.<%
02.pageLen =10
03.pageNo = request.QueryString("page")
04.if pageNo="" then pageNo = 1
05.
06.set rs = Server.CreateObject("ADODB.recordset")
07.sql="SELECT * FROM pm where tblAuthor ='" & Session("AfUsername") & "' and tblCat=3 order by tblDate_save DESC"
08.rs.Open sql, conn,1,3
09.
10.If Rs.EOF Then
11.%>
12.ไม่มีข้อมูล
13.<%
14.Else
15.Mailrecord = Rs.recordcount
16.Rs.pageSize = pageLen
17.totalPage = Rs.PageCount
18.Rs.absolutePage = pageNo
19.%>
20.ใส่ข้อมูล อาจจะเป็นส่วนหัวของตาราง
21.<%
22.recNo=1
23.Do While Not RS.EOF and recNo <= pageLen
24.%>
25.ใส่ข้อมูลที่ต้องการแสดงตรงนี้
26.<%
27.recNo=recNo+1
28.If pageNo="1" Then
29.ResultsCount = recNo
30.Else
31.ResultsCount = (pageNo&"0")+recNo-10
32.End if
33.Scount = (pageNo&"0")-PageLen+1
34.Mcount = ResultsCount-1
35.RS.MoveNext
36.Loop
37.rs.close
38.conn.close
39.%>
40.อันนี้ปุ่มกด Previous page กับ Nextpage
41.<%
42.if cint(pageno) > 1 then %>
43.<input type="button" class="form-site2" value="Previous" onClick="window.location='pm.asp?mailbox=<%=mailbox%>&page=<%=pageNo-1%>'">
44.
45.<% end if
46.if cint(pageno) < totalPage then %>
47.<input type="button" class="form-site2" value="Next" onClick="window.location='pm.asp?mailbox=<%=mailbox%>&page=<%=pageNo+1%>'">
48.<%
49.end if
50.%>
51.<%
52.end if
53.%>
54.
55.<!--ช่วงนี้แสดงสถานะ ว่าคุณอยู่หน้าไหนและ จากรายการไหน ถึง รายการไหน-->
56.
57.หน้าที่ [<%=pageNo%> จากทั้งหมด <%=totalPage%>หน้า] ♥ รายการที่ [<%=SCount%> - <%=MCount%>] จากทั้งหมด <%=Mailrecord%> รายการ
58.
59.
60.<!-- อันนี้คือลิงก์ไปหน้าต่างๆ -->
61.<%
62.if cint(pageno) > 1 then %>
63.<a href="pm.asp?mailbox=<%=mailbox%>&page=<%=pageNo-1%>"><b>«Prev</b></a><%end if%><%for idx = 1 to totalPage
64.%>
65.<a href="pm.asp?mailbox=<%=mailbox%>&page=<%=idx%>" class="searchlink"><% if idx=cint(pageno) then%></a><b style="background-color: indigo; border: 1px solid #0C5444; padding-left: 2px; padding-right: 2px; padding-bottom: 1px;" class="lg-text"><font color=#ffffff><%=idx%></font></b><%else %><%=idx%><%end if%>
66.<%
67.next%><% if cint(pageno) < totalPage then %>
68.<a href="pm.asp?mailbox=<%=mailbox%>&page=<%=pageNo+1%>"><b>Next</b>»</a>
69.<%
70.end if
71.%>
