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%>
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.