Pagination | display Display form:
ID NAME
1 JULIET
2 SPIRIT
3 GIRL
4 BOY
[1] [2] [3] [4] Pages: 1/4 pages 4 Records/page Total records: 13
Code:
<!--page4.asp-->
<!--#include file= "conn.asp"-->
<body bgcolor= "#FFFFFF" text= "#000000" >
<table width= "60%" border= "1" align= "Center" >
<%
Dim rs
Dim sql
Msg_per_page = 4 ' defines the number of record bars per page
Set rs = Server.CreateObject ("Adodb.recordset")
sql = "SELECT * from page ORDER by id" "Change to your own SQL statement
Rs.cursorlocation = 3 ' uses client-side cursors to improve efficiency
Rs.pagesize = Msg_per_page ' defines the number of records per page for a paging recordset
Rs.Open sql,conn,0,1
If Err.number<>0 then ' error handling
Response.Write "Database operation failed:" & Err.Description
Err.Clear
Else
If not (rs.eof and RS.BOF) Then ' detects whether the recordset is empty
Totalrec = RS. RecordCount ' Totalrec: Total number of record strips
If rs.recordcount mod msg_per_page = 0 Then ' calculates total number of pages, RecordCount: Total Records of data
n = Rs.recordcount\msg_per_page ' N: Total pages
Else
n = rs.recordcount\msg_per_page+1
End If
CurrentPage = Request ("page") ' CurrentPage: Current page
If currentpage <> "" Then
CurrentPage = CInt (currentpage)
If currentpage < 1 Then
CurrentPage = 1
End If
If Err.Number <> 0 Then
Err.Clear
CurrentPage = 1
End If
Else
CurrentPage = 1
End If
If Currentpage*msg_per_page > Totalrec and Not ((currentpage-1) *msg_per_page < Totalrec) Then
Currentpage=1
End If
Rs.absolutepage = CurrentPage ' AbsolutePage: Set pointer to start of a page
RowCount = Rs.pagesize ' pagesize: Sets the number of data records per page
Dim i
Dim k
%>
<TR align= "center" valign= "Middle" >
<TD width= "50%" >ID</td>
<TD width= "50%" >name</td>
</tr>
<%do while not rs.eof and rowcount > 0%>
<TR align= "center" valign= "Middle" >
<TD width= "25%" ><%=rs ("id")%></td>
<TD width= "25%" ><%=rs ("testname")%></td>
</tr>
<%
Rowcount=rowcount-1
Rs. MoveNext
Loop
End If
End If
Rs.close
Set rs=nothing
%>
</table>
<table border= "0" align= "center" >
<tr>
<TD align= "center" valign= "Middle" >
<%call listpages ()%>
</td>
</tr>
</table>
</body>
<%
Sub Listpages ()
If n <= 1 then Exit Sub
For I=0 to N\msg_per_page-1
For J=1 to Msg_per_page
%>
<font size= "2" color= "#006600" >
<a href= "<%=request. ServerVariables ("Script_name")%>?page=<%=i*msg_per_page+j%> ">[<% =i*msg_per_page+j%>]</a ></font>
<%
Next
Next
endpage = n MoD msg_per_page
For J=1 to EndPage
%>
<font size= "2" color= "#006600" >
<a href= "<%=request. ServerVariables ("Script_name")%>?page=<% =i*msg_per_page+j%> ">[<% =i*msg_per_page+j%>]</a ></font>
<%next%>
<font color=black face= "Arial" >
Page:<%=currentpage%>/<%=n%>pages <%=msg_per_page%>notes/page Total:<%=totalrec%>notes </font>
<%end sub%>
