Copy Code code as follows:
<%
Set Rs=server.createobject ("Adodb.recordset")
exce= "SQL" SQL query statement
Rs.Open exce,conn,1,1
%>
The paging property is then set
<%
Rs. Pagesize=3 ' Set page number
Pagecount=rs. PageCount ' Get total page number
Page=int (Request ("page")) ' receive page numbers
If Page<=0 then page=1 ' judgment
If Request ("page") = "" Then page=1
Rs. Absolutepage=page ' Set page number on this page
%>
Finally, the body of the page display
<%
If Rs.bof and rs.eof then
Response.Write ("NULL")
Else
For I=1 to Rs. PageSize
Response.Write rs ("name")
Response.Write ("Rs.movenext
Next
End If
%>
<p>
<%if page=1 and not Page=pagecount then%>
Home | Previous page
<a href= "log1.asp?page=<%=page+1%>" > next page </a>|
<a href= "log1.asp?page=<%=pagecount%>" > Last </a>
<%elseif page<>1 and not Page=pagcount then%>
<a href= "log1.asp?page=1" > Home </a>|
<a href= "log1.asp?page=<%=page-1%>" > previous page </a>|
<a href= "log1.asp?page=<%=page+1%>" > next page </a>|
<a href= "log1.asp?page=<%=pagecount%>" > Last </a>
<%elseif Page=pagecount then%>
<a href= "log1.asp?page=1" > Home </a>|
<a href= "log1.asp?page=<%=page-1%>" > previous page </a>|
Next Page |
Last
<%end if%>